返回列表 上一主題 發帖

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

'檢查資料檔案是否已開啟, 若未開啟則以[唯讀]開啟, 並以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
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

若要抓的檔案只有一個,
最好強制在G5指定[路徑及檔名], 以避免誤抓~~
也省去多餘的程式碼~~
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

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

生產日報表中的〔機台/日期/生產代碼〕, 是事先輸入的?
須三個都符合才抓〔投產數量〕??
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

回復 13# ABK

12樓的問題還是沒有說明,
抓資料的依據是什麼??
根據事先輸入的條件抓? 還是有資料全抓進來?
上次的抓檔資料要不要清除?
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

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

xN = xN & ".xls"  記得改成 xN = xN & ".xlsx"
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

        靜思自在 : 有智慧才能分辨善惡邪正;有謙虛才能建立美滿人生。
返回列表 上一主題