麻辣家族討論版版 » Excel程式區 » 不打開excel檔案，搜尋符合資料的表格內容，全部列印出來

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 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: 8 Rank: 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 可以阻止顯示子視窗的切換動作

一卵三四、驚到嘸代誌

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

3^#

發表於 2010-12-3 14:28 | 只看該作者

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

中學生 Rank: 2

帖子: 23
主題: 10
精華: 0
積分: 85
點名: 0
作業系統: windows 7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-9-11
最後登錄: 2022-3-10

4^#

發表於 2010-12-3 14:28 | 只看該作者

回復 2# 沙拉油

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

超級版主 Rank: 8 Rank: 8

帖子: 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版主給的

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

複製代碼

靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！

返回列表下一主題上一主題