cowww

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2023-4-25 10:42 | 只看該作者

[發問] 檔名不同如何判斷

請求各位大大的幫忙
我有個檔案早上會去開起其他檔案撈資料
有一個外單位的檔案突然改了檔名
請問要如何讓系統判斷找不到"檔名A"就去找"檔名B"

這是原先的檔名"日期+空格+名"
六幅異動表.PNG

今天莫名改了檔名"日期+名"
六幅異動表2.PNG

Dim T$, B$, i%
T = "\\shl-group.com\dept\MFMG\B.各組資料 (Team inform)\E.生管組 (PPC group)\X.自動化工具(勿刪)\模具異動-六福(急件1.9專用)\"
For i = 0 To 10
B = Format(Date - i, "yyyy.mm.dd")
If Dir(T & B & " 每日模具異動.xlsx") <> Empty Then GoTo i01

Next
MsgBox "找不到 " & Date & " ~ " & Date - 10 & " 檔案": Exit Sub
i01: Workbooks.Open filename:=T & B & " 每日模具異動.xlsx", ReadOnly:=True

樓主熱帖

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1527
主題: 40
精華: 0
積分: 1551
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2025-11-4

2^#

發表於 2023-4-25 11:08 | 只看該作者

回復 1# cowww

Dim T$, B$, i%
T = "\\shl-group.com\dept\MFMG\B.各組資料 (Team inform)\E.生管組 (PPC group)\X.自動化工具(勿刪)\模具異動-六福(急件1.9專用)\"
For i = 0 To 10
B = Format(Date - i, "yyyy.mm.dd")
If Dir(T & B & " 每日模具異動.xlsx") <> Empty Then GoTo i01
If Dir(T & B & "每日模具異動.xlsx") <> Empty Then GoTo i02
Next
MsgBox "找不到 " & Date & " ~ " & Date - 10 & " 檔案": Exit Sub
i01: Workbooks.Open filename:=T & B & " 每日模具異動.xlsx", ReadOnly:=True:Exit Sub
i02: Workbooks.Open filename:=T & B & "每日模具異動.xlsx", ReadOnly:=True

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

cowww

中學生 Rank: 2

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

3^#

發表於 2023-4-25 11:43 | 只看該作者

回復 2# Andy2483

非常感謝Andy2483大大的解惑

我突然想到個問題，如果開啟的檔名跟"複製"&"關閉"的檔名不一樣
執行時是不是會出現異常
'複製2023.04.13 每日模具異動.xlsx中LF工作表的A欄到AG欄
Workbooks(B & " 每日模具異動.xlsx").Worksheets("LF").Columns("A:AG").Cells.Copy

'關閉六幅異動表
Workbooks(B & " 每日模具異動.xlsx").Close

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1527
主題: 40
精華: 0
積分: 1551
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2025-11-4

4^#

發表於 2023-4-25 11:48 | 只看該作者

本帖最後由 Andy2483 於 2023-4-25 11:51 編輯

回復 3# cowww

On Error Resume Next
Workbooks(B & " 每日模具異動.xlsx").Close
Workbooks(B & "每日模具異動.xlsx").Close
On Error Goto 0

===========================
補充:
建議前輩先可以用之後再研究如何簡化,讓更易視讀

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

cowww

中學生 Rank: 2

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

5^#

發表於 2023-4-25 13:12 | 只看該作者

回復 4# Andy2483

成功了
非常感謝Andy2483大大的解惑

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

6^#

發表於 2023-4-25 18:47 | 只看該作者

本帖最後由准提部林於 2023-4-25 19:55 編輯

Dim T$, B$, i%, xBook as workbook
T = "\\shl-group.com\dept\MFMG\B.各組資料 (Team inform)\E.生管組 (PPC group)\X.自動化工具(勿刪)\模具異動-六福(急件1.9專用)\"
For i = 0 To 10
B = Format(Date - i, "yyyy.mm.dd")
If Dir(T & B & " 每日模具異動.xlsx") <> "" Then
set xBook=Workbooks.Open(T & B & " 每日模具異動.xlsx", ReadOnly:=True)
exit for
Next
if xbook is nothing then MsgBox "找不到目標檔案": Exit Sub
xbook.sheets("LF").Columns("A:AG").Cells.Copy
~~do something ~~
xbook.Close 0

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1527
主題: 40
精華: 0
積分: 1551
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2025-11-4

7^#

發表於 2023-4-26 07:46 | 只看該作者

回復 6# 准提部林
回復 5# cowww

謝謝論壇,謝謝前輩指導
後學學習心得註解如下,請前輩再指教

Option Explicit
Sub TEST()
Dim T$, B$, i%, xBook As Workbook
'↑宣告變數:(T,B)是字串變數,i是短整數,xBook是活頁簿變數
T = "\\shl-group.com\dept\MFMG\B.各組資料 (Team inform)\E.生管組 (PPC group)\X.自動化工具(勿刪)\模具異動-六福(急件1.9專用)\"
'↑令T這字串變數是路徑字串
For i = 0 To 10
'↑設順迴圈!i從0到 10
B = Format(Date - i, "yyyy.mm.dd")
'↑令B這字串變數是今天日期-i變數後,
'轉換為4碼西元年,2碼月,2碼日,中間點間隔的字串
If Dir(T & B & " 每日模具異動.xlsx") <> "" Then
'↑如果T變數連接B變數,再連接" 每日模具異動.xlsx"組成新字串查到這檔案?
   Set xBook = Workbooks.Open(T & B & " 每日模具異動.xlsx", ReadOnly:=True)
   '↑令xBook這活頁簿變數是被打開的,
   '被打開的T變數連接B變數,再連接" 每日模具異動.xlsx"組成新字串的檔案
   Exit For
   '↑結束迴圈
End If
Next
If xBook Is Nothing Then MsgBox "找不到目標檔案": Exit Sub
'↑如果xBook變數是沒有載入物件!就跳出提示窗,結束程式執行
xBook.Sheets("LF").Columns("A:AG").Cells.Copy
'↑繼續以變數xBook指向目標可以讓程式簡潔易視讀
'~~do something ~~
xBook.Close 0
'↑令xBook不存檔關閉
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

cowww