返回列表 上一主題 發帖

[發問] 關閉特定excel檔案

回復 1# pointchi

'FPath= "D:\Link.xls"
Set WB = Workbooks.Open('FPath檔案來源路徑)
WB.Close

TOP

回復 3# pointchi

我將您說明的字串加入我的VBA,當檔案為Link是可以自動關閉,可是Link(1)...Link(N-1)時仍無法關閉,請問是否我有哪邊錯誤,附上我的VBA
>> 看你的程式只有針對Link動作,其它的沒有,還是方便可以附上檔案,描述需求結果,謝謝

TOP

S大您好,
附檔解壓縮後,TEST1是我的主檔,Link是我的資料來源檔案。
我會將Link整頁手工複製貼上至 TES ...
pointchi 發表於 2021-11-18 22:47


如果我帳號一直沒有登出,第N次就會轉出檔名Link(N-1).xls的資料檔
>>只要登入後沒有執行任何動作,ERP會自動幫你轉出資料檔嗎? 轉出後會自動幫你存檔?

我會將Link整頁手工複製貼上至 TEST1的Raw標籤頁,然後開始執行VBA處理資料,最後我想省下一道工,就是用VBA也將Link.xls關閉(不用存檔)。目前我可以自動關閉Link的檔案。
>>建議登入ERP後下載資料檔後,然後用VBA執行,選取由ERP轉出資料檔-->執行處理資料-->關閉資料檔案

TOP

本帖最後由 samwang 於 2021-11-19 12:14 編輯

回復 7# pointchi

我會將Link整頁手工複製貼上至 TEST1的Raw標籤頁,然後開始執行VBA處理資料,最後我想省下一道工,就是用VBA也將Link.xls關閉(不用存檔)。目前我可以自動關閉Link的檔案。
>>建議登入ERP後下載資料檔後,然後用VBA執行,選取由ERP轉出資料檔-->執行處理資料-->關閉資料檔案
>>ERP下載資料檔後,我原本也想用VBA執行,可是同樣遇到我要選取的檔案Link.xls可行,可是第2次以後變成Link(1).xls,VBA就無法找到。
      因此我才每次先手動複製至作業主檔TEST1的Raw標籤頁,最少VBA可以執行我大部分重複工作,只是開頭要手動複製頁面,結尾要手動關閉檔案。
>>所以建議人工選取由ERP轉出資料檔-->VBA執行處理資料-->VBA關閉資料檔案,選取由ERP轉出資料檔(由人工選取需求檔案),這樣流程是否有比較好?

TOP

回復 11# pointchi

看了准大回覆,套用他的回覆,應該可以符合您的需求了,請測試看看,謝謝

Dim wb As Workbook
For Each wb In Workbooks
    If LCase(wb.Name) Like "link*.xls*" Then wb.Close 0
Next

TOP

        靜思自在 : 吃苦了苦、苦盡廿來,享福了福、福盡悲來。
返回列表 上一主題