Vba 偵錯

excel vba

milsewu01 2023-11-16 15:32:45 ‧ 560 瀏覽

分享至

請大大們指正誤區，這個巨集指令修正後無法執行，原定功能是要將每日好幾個xml檔，依序彙整到同一個工作表的每一列。如下：

巨集1
'
IfMYFile.FileExists("C:\Users\hayes\Desktop\新增資料夾 - 複製\每日下載檔案(限50筆)\1.xml") = True Then
Range("A2").Select
ActiveWorkbook.XmlMaps("TALENTS_Map").Import Url:= _
"C:\Users\hayes6646\Desktop\新增資料夾 - 複製\每日下載檔案(限50筆)\1.xml"

IfMYFile.FileExists("C:\Users\hayes\Desktop\新增資料夾 - 複製\每日下載檔案(限50筆)\2.xml") = True Then

ActiveCell.Offset(1, 0).Select

ActiveWorkbook.XmlMaps("TALENTS_Map").Import Url:= _
    "C:\Users\hayes6646\Desktop\新增資料夾 -

複製\每日下載檔案(限50筆)\1.xml"
End If
End Sub

rain_yu iT邦新手 1 級 ‧ 2023-11-16 15:53:32 檢舉

你檢查一下語法錯誤和路徑錯誤
‵‵‵‵‵‵
Sub ImportXMLFiles()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists("C:\Users\hayes\Desktop\新增資料夾 - 複製\每日下載檔案(限50筆)\1.xml") Then
Range("A2").Select
ActiveWorkbook.XmlMaps("TALENTS_Map").Import Url:= _
"C:\Users\hayes\Desktop\新增資料夾 - 複製\每日下載檔案(限50筆)\1.xml"
End If

If fso.FileExists("C:\Users\hayes\Desktop\新增資料夾 - 複製\每日下載檔案(限50筆)\2.xml") Then
ActiveCell.Offset(1, 0).Select
ActiveWorkbook.XmlMaps("TALENTS_Map").Import Url:= _
"C:\Users\hayes\Desktop\新增資料夾 - 複製\每日下載檔案(限50筆)\2.xml"
End If
End Sub
‵‵‵‵‵‵

登入發表討論