[發問] 請教一下此句巨集錯誤如何改?

t8899

Sub Ma3333()
Dim a As String
set a=v:\program\supertsc" & "\" & Format(Date, "eemmdd)
Workbooks.Open Filename:="a - 5 & ".xls"
"a - 5 & ".xls".Activate
End Sub
另外一個問題
Sub Macro2()
for k=1 to 15
On Error Resume Next
Workbooks.Open Filename:="v:\program\supertsc" & "\" & Format(Date, "eemmdd")-k & ".xls"
  next
123:
End Sub
1.假如開的檔案存在則跳到123的語法是???
2只能開到 1030401 , 接下是 1030399  不是 1030331??

t8899

GBKEE 發表於 2014-4-7 15:58
2只能開到 1030401 , 接下是 1030399  不是 1030331  ****看不懂???

當K=8 傳回是 v:\program\supertsc\1030399.xls
不是 v:\program\supertsc\1030331.xls ??

t8899

回復  t8899
GBKEE 發表於 2014-4-7 15:58

Set A = Workbooks.Open("v:\program\supertsc\" & Format(Date, "eemmdd")) 此行執行完就會開啟檔案1030407.XLS
導致下一行 Workbooks.Open Filename:="a - 5.xls"
出問題==>"應用程式或物件定義錯誤??

t8899

回復  t8899
GBKEE 發表於 2014-4-7 15:58
A = "v:\program\supertsc" & "\" & Format(Date, "eemmdd") - k & ".xls"  '完整的路徑檔案名稱
    If Dir(A) <> "" Then

檔案名稱的後面有多餘的也加入符合條件的判斷，要怎麼改?
又要如何開啟正確的檔案名稱?
1030407.xls
1030407adef.xls
1030407bf.xls

t8899

回復  t8899 當前的所在目錄沒有這檔案,會有應用程式或物件定義錯誤
GBKEE 發表於 2014-4-7 20:33

為何set 指令就會執行開啟的動作?(還沒真正執行open)

t8899

回復  t8899 當前的所在目錄沒有這檔案,會有應用程式或物件定義錯誤檔案名稱的後面有多餘的也加入符合條件的 ...
GBKEE 發表於 2014-4-7 20:33

    Dim K As Integer, B As String
    For K = 0 To 0
    B = "v:\program\supertsc" & "\" & 1030403 - K & "?????" & ".xls" '完整的路徑檔案名稱
        [o1] = B
         If Dir(B) <> "" Then
      Workbooks.Open Filename:=B
       end if
        next

檔名為 1030403注意有問題.xls
檢查檔案有過
但開檔過不了 ?

下載 (29.26 KB)

2014-4-8 06:48

t8899

回復  t8899
GBKEE 發表於 2014-4-8 07:48

謝謝，我的問題應該改成
我想找C 根錄下的檔案 (只有根目錄)
檔名為1030415.xls
包括 1030415後面都算 (副檔名限xls)
例如
1030415a.xls
1030415b.xls
1030415123b.xls
....
找到後再開檔,不知此程序如何寫?