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

0939875756

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

下載 (128.8 KB)

2010-12-3 10:53

忘了上傳我的檔案
10月.rar (52.19 KB)

下載次數: 17

2010-12-3 14:09

要這麼做是因為…之前印給客戶的報告都弄不見了(之前有遇過補印超過上百份)，所以才想請問各位大大，vba有這個功能嗎???

沙拉油

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

活頁簿的 window 物件的 visible 屬性設 false 就不會顯示
application 的 ScreenUpdating 設 false 可以阻止顯示子視窗的切換動作

oobird

若能解決這個問題，下一步來解決不打開保險箱拿裡面的錢了。

0939875756

回復 2# 沙拉油


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

GBKEE

回復 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

複製代碼