[發問] EXCEL請益，開啟特定資料夾內，不特定檔名的.xlsx檔案

帖子: 50
主題: 15
精華: 0
積分: 75
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2024-6-14

2^#

發表於 2021-8-23 13:16 | 顯示全部帖子

回復 2# samwang
您好，感謝您的回答。
目前測試結果，會出現開啟檔案視窗，但選擇檔案後，無法順利開啟檔案，如下圖。

有沒有辦法，會讓程式自動判斷開啟日期。
L-M AA R S L(XXX0001)20210820-20210823.xlsx

固定檔名L-M AA R S L，會不定時變更的檔名(XXX0001)20210820-20210823。
不定時變更的檔名範例
範例A: (XXX0002)20210824-20210827
範例B: (XXX0003)20210828-20210831

假設日期今天日期2021/08/22，程式能不能開啟20210820-20210823的這個檔案?

麻煩您了，謝謝!

帖子: 50
主題: 15
精華: 0
積分: 75
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2024-6-14

3^#

發表於 2021-8-23 15:55 | 顯示全部帖子

回復 4# samwang
感謝您協助處理，目前測試結果，沒辦法開啟檔案，點擊按鈕會閃一下，就沒反應。
如下圖。

我是將程式放在左方按鈕。

帖子: 50
主題: 15
精華: 0
積分: 75
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2024-6-14

4^#

發表於 2021-8-23 17:34 | 顯示全部帖子

回復 6# samwang

感謝 samwang 大大協助處理問題，已經是我想要的樣子了，謝謝您。

您提供的程式如下↓

Sub test()
Dim Arr(), T$, d$, d1$, d2$, xY$, xM$, xD$
T = Date
Set fs = CreateObject("Scripting.FileSystemObject")
a = "D:\AA\BB\CC\DD"
Set f = fs.GetFolder(a)
Set fc = f.Files
For Each f1 In fc
d = Split(Split(f1.Name, ")")(1), "-")(0)
xY = Left(d, 4): xM = Mid(d, 5, 2): xD = Right(d, 2)
d1 = DateSerial(xY, xM, xD)
d = Split(Split(Split(f1.Name, ")")(1), "-")(1), ".")(0)
xY = Left(d, 4): xM = Mid(d, 5, 2): xD = Right(d, 2)
d2 = DateSerial(xY, xM, xD)
If T >= d1 And T <= d2 Then
      ReDim Preserve Arr(n)
      Arr(n) = f1.Path
      n = n + 1
End If
Next

If n > 0 Then
For i = 0 To n - 1
Set WB = Workbooks.Open(Arr(i))
'主程式需求

WB.Close ← 將這段移除，就是我要的樣子。
Next
End If
End Sub

再次感謝您，一直以來的協助處理問題，謝謝!

帖子: 50
主題: 15
精華: 0
積分: 75
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2024-6-14

5^#

發表於 2021-9-5 14:16 | 顯示全部帖子

回復 4# samwang

您好，我使用此段程式碼↓
Sub test()
Dim Arr(), T$, d$, d1$, d2$, xY$, xM$, xD$
T = Date
Set fs = CreateObject("Scripting.FileSystemObject")
a = "D:\AA\BB\CC\DD"
Set f = fs.GetFolder(a)
Set fc = f.Files
For Each f1 In fc
d = Split(Split(f1.Name, ")")(1), "-")(0)
xY = Left(d, 4): xM = Mid(d, 5, 2): xD = Right(d, 2)
d1 = DateSerial(xY, xM, xD)
d = Split(Split(Split(f1.Name, ")")(1), "-")(1), ".")(0)
xY = Left(d, 4): xM = Mid(d, 5, 2): xD = Right(d, 2)
d2 = DateSerial(xY, xM, xD)
If T >= d1 And T <= d2 Then
      ReDim Preserve Arr(n)
      Arr(n) = f1.Path
      n = n + 1
End If
Next

If n > 0 Then
For i = 0 To n - 1
Set WB = Workbooks.Open(Arr(i))
'主程式需求

Next
End If
End Sub

今天我在 D:\AA\BB\CC\DD 路徑下又新增不同檔名的檔案，就會出現問題。
如下圖↓

我新增的檔案及名稱如下圖

新增檔案名稱如下

20170831-請協助打上檔案名稱-Xjl
ZXZ0099X0.0-部品名冊清單-2019
ZXZ0099X1.0-20190101標示

主要是指針對以下檔名開啟

不會因為其他檔名而開啟不了檔案。

目前個人認為可能是Split，這邊的問題吧?

還請大大協助，謝謝!

帖子: 50
主題: 15
精華: 0
積分: 75
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2021-7-21
最後登錄: 2024-6-14

6^#

發表於 2021-9-6 10:57 | 顯示全部帖子

回復 9# samwang
感謝大大協助，已經可以了。

回復 10# quickfixer
謝謝您的協助。