標題:
[發問]
不打開excel檔案，搜尋符合資料的表格內容，全部列印出來
[打印本頁]
作者:
0939875756
時間:
2010-12-3 10:53
標題:
不打開excel檔案，搜尋符合資料的表格內容，全部列印出來
本帖最後由 0939875756 於 2010-12-3 14:16 編輯
請問excel有辦法做，不打開excel檔案，使用vba的方式去搜尋，符合的內容，並列印出來嗎??
例：我現在有7個檔案，可以依照下圖所框起來的資料，去搜尋符合資料的表格，然後列印出來嗎???
[attach]3899[/attach]
忘了上傳我的檔案
[attach]3904[/attach]
要這麼做是因為…之前印給客戶的報告都弄不見了(之前有遇過補印超過上百份)，所以才想請問各位大大，vba有這個功能嗎???
作者:
沙拉油
時間:
2010-12-3 14:04
本帖最後由 沙拉油 於 2010-12-3 14:30 編輯
你可以做到讓使用者無法察覺有檔案被開啟
但是不開啟檔案就是無法讀取檔案內的資料
活頁簿的 window 物件的 visible 屬性設 false 就不會顯示
application 的 ScreenUpdating 設 false 可以阻止顯示子視窗的切換動作
作者:
oobird
時間:
2010-12-3 14:28
若能解決這個問題，下一步來解決不打開保險箱拿裡面的錢了。
作者:
0939875756
時間:
2010-12-3 14:28
回復
2#
沙拉油
我這麼作是為了常有需要補印客戶的報告,有時候三五十份也很常見.....
作者:
GBKEE
時間:
2010-12-3 16:42
本帖最後由 GBKEE 於 2010-12-3 16:44 編輯
回復
4#
0939875756
修改你提問
http://forum.twbts.com/thread-2036-1-3.html
Hsieh版主給的
Sub Ex()
Dim fd$, fs$
fd = "D:\10月\" '更改成你的10月資料夾目錄
fs = Dir(fd & "*.xls")
Application.ScreenUpdating = False
Do Until fs = ""
With Workbooks.Open(fd & fs)
.Sheets("模製").PrintOut
.Close 0
End With
fs = Dir
Loop
Application.ScreenUpdating = True
End Sub
複製代碼
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
