使用VBA跨檔案抓取多個工作表裡的資料 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 使用VBA跨檔案抓取多個工作表裡的資料

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

[發問] 使用VBA跨檔案抓取多個工作表裡的資料

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

1^# 跳轉到 »

發表於 2018-9-11 09:49 | 顯示全部帖子

'檢查資料檔案是否已開啟, 若未開啟則以[唯讀]開啟, 並以uChk標示為1
On Error Resume Next
uChk = 0: Set 資料檔 = Workbooks(檔名)
On Error GoTo 0
If 資料檔 Is Nothing Then uChk = 1: Set 資料檔 = Workbooks.Open(路徑檔名, ReadOnly:=True)

'關閉檔案_不存檔 (若資料檔不是程式所開啟, 則不關閉)
If uChk = 1 Then 資料檔.Close 0

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

2^#

發表於 2018-9-11 09:52 | 顯示全部帖子

若要抓的檔案只有一個,
最好強制在G5指定[路徑及檔名], 以避免誤抓~~
也省去多餘的程式碼~~

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

3^#

發表於 2018-9-11 10:16 | 顯示全部帖子

本帖最後由准提部林於 2018-9-11 10:19 編輯

生產日報表中的〔機台/日期/生產代碼〕, 是事先輸入的?
須三個都符合才抓〔投產數量〕？？

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

4^#

發表於 2018-9-13 12:17 | 顯示全部帖子

回復 13# ABK

12樓的問題還是沒有說明,
抓資料的依據是什麼??
根據事先輸入的條件抓? 還是有資料全抓進來?
上次的抓檔資料要不要清除?

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

5^#

發表於 2018-9-13 16:25 | 顯示全部帖子

三廠生產記錄01.rar (18.49 KB)

xN = xN & ".xls" 記得改成 xN = xN & ".xlsx"

靜思自在 : 心中常存善解、包容、感思、知足、惜福。

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