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

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-4-7 15:58 | 只看該作者

回復 1# t8899

Option Explicit
Sub Ma3333()
Dim A As Workbook
Set A = Workbooks.Open("v:\program\supertsc\" & Format(Date, "eemmdd"))
Workbooks.Open Filename:="a - 5.xls"
'Workbooks.Open Filename:="a - 5" & ".xls" '或是
Workbooks("a - 5" & ".xls").Activate
'Workbooks("a - 5.xls").Activate '或是
End Sub
Sub Macro2() '1.假如開的檔案存在則跳到123的語法是???
'2只能開到 1030401 , 接下是 1030399 不是 1030331 ****看不懂???
Dim k As Integer, A As String
For k = 1 To 15
A = "v:\program\supertsc" & "\" & Format(Date, "eemmdd") - k & ".xls" '完整的路徑檔案名稱
If Dir(A) <> "" Then '檔案存在則 Dir(A)傳回檔案名稱
Workbooks.Open A
Exit For '離開回圈
' GoTo 123 '或是到 123
End If
Next
123:
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-12-23

3^#

發表於 2014-4-7 18:57 | 只看該作者

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

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

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-12-23

4^#

發表於 2014-4-7 19:52 | 只看該作者

回復 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"
出問題==>"應用程式或物件定義錯誤??

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-12-23

5^#

發表於 2014-4-7 20:32 | 只看該作者

本帖最後由 t8899 於 2014-4-7 20:40 編輯

回復 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

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2014-4-7 20:33 | 只看該作者

本帖最後由 GBKEE 於 2014-4-7 20:53 編輯

回復 4# t8899

Format(Date - k, "eemmdd")

複製代碼

當前的所在目錄沒有這檔案,會有應用程式或物件定義錯誤

MsgBox CurDir '當前的所在目錄
Workbooks.Open Filename:="a - 5.xls"
'Workbooks.Open Filename:="完整路徑檔案名稱.xls"

複製代碼

檔案名稱的後面有多餘的也加入符合條件的判斷，要怎麼改?

Option Explicit
Sub Ex()
Dim k
k = "1030407.xls"
If k Like "#######.xls" Then MsgBox k '# ->數字
k = "1030407.xls"
If k Like "######.xls" Then MsgBox k '? ->字元
k = "1030407 adef.xls"
If k Like "####### ????.xls" Then MsgBox k
k = "1030407 adef.xls"
If k Like "####### ???.xls" Then MsgBox k
k = "1030407 bf.xls"
If k Like "####### ??.xls" Then MsgBox k
k = "1030407 bf.xls"
If k Like "####### ???.xls" Then MsgBox k
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-12-23

7^#

發表於 2014-4-7 20:43 | 只看該作者

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

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

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2014-4-7 20:56 | 只看該作者

回復 7# t8899
Set ->指定變數為物件

Set A = Workbooks.Open("v:\program\supertsc\" & Format(Date, "eemmdd"))

複製代碼

Workbooks.Open 是開啟檔案的指令

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-12-23

9^#

發表於 2014-4-8 06:48 | 只看該作者

本帖最後由 t8899 於 2014-4-8 06:51 編輯

回復 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
檢查檔案有過
但開檔過不了 ?

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2014-4-8 07:48 | 只看該作者

回復 9# t8899

Dim K As Integer, B As String
For K = 0 To 0
B = "v:\program\supertsc" & "\" & 1030403 - K & "?????" & ".xls" '完整的路徑檔案名稱
'請你必須知道 1030403 - K & "?????" & ".xls" <> 1030403注意有問題.xls
[o1] = B
MsgBOX Dir(B) '可知檔案是否存在
If Dir(B) <> "" Then
Workbooks.Open Filename:=B
end if
next
檔名為 1030403注意有問題.xls

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.