返回列表 上一主題 發帖

[發問] 不打開excel檔案，搜尋符合資料的表格內容，全部列印出來

0939875756

帖子
23 
主題
10 
精華
0 
積分
85 
點名
0  
作業系統
windows 7 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2010-9-11 
最後登錄
2022-3-10 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-12-3 10:53 | 只看該作者

[發問] 不打開excel檔案，搜尋符合資料的表格內容，全部列印出來

本帖最後由 0939875756 於 2010-12-3 14:16 編輯

請問excel有辦法做，不打開excel檔案，使用vba的方式去搜尋，符合的內容，並列印出來嗎??
例：我現在有7個檔案，可以依照下圖所框起來的資料，去搜尋符合資料的表格，然後列印出來嗎???


忘了上傳我的檔案
10月.rar (52.19 KB)
要這麼做是因為…之前印給客戶的報告都弄不見了(之前有遇過補印超過上百份)，所以才想請問各位大大，vba有這個功能嗎???
收藏 分享

沙拉油
　暱稱: 沙拉油
　頭銜: 正港A水電工

超級版主Rank: 8Rank: 8

帖子
44 
主題
2 
精華
0 
積分
49 
點名
0  
作業系統
Windows XP SP3 
軟體版本
Office 2003 
閱讀權限
150 
性別
男 
來自
呆丸 
註冊時間
2010-5-1 
最後登錄
2013-1-27 

論壇貢獻勳章終身榮譽會員勳章
2#
發表於 2010-12-3 14:04 | 只看該作者
本帖最後由 沙拉油 於 2010-12-3 14:30 編輯

你可以做到讓使用者無法察覺有檔案被開啟
但是不開啟檔案就是無法讀取檔案內的資料

活頁簿的 window 物件的 visible 屬性設 false 就不會顯示
application 的 ScreenUpdating 設 false 可以阻止顯示子視窗的切換動作
一卵三四、驚到嘸代誌

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
3#
發表於 2010-12-3 14:28 | 只看該作者
若能解決這個問題，下一步來解決不打開保險箱拿裡面的錢了。

TOP

0939875756

帖子
23 
主題
10 
精華
0 
積分
85 
點名
0  
作業系統
windows 7 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2010-9-11 
最後登錄
2022-3-10 
4#
發表於 2010-12-3 14:28 | 只看該作者
回復 2# 沙拉油


    我這麼作是為了常有需要補印客戶的報告,有時候三五十份也很常見.....

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2010-12-3 16:42 | 只看該作者
本帖最後由 GBKEE 於 2010-12-3 16:44 編輯

回復 4# 0939875756
修改你提問 http://forum.twbts.com/thread-2036-1-3.html
Hsieh版主給的
  1. Sub Ex()
  2.     Dim fd$, fs$
  3.     fd = "D:\10月\" '更改成你的10月資料夾目錄
  4.     fs = Dir(fd & "*.xls")
  5.     Application.ScreenUpdating = False
  6.     Do Until fs = ""
  7.         With Workbooks.Open(fd & fs)
  8.             .Sheets("模製").PrintOut
  9.             .Close 0
  10.         End With
  11.         fs = Dir
  12.     Loop
  13.     Application.ScreenUpdating = True
  14. End Sub
複製代碼

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題