我正在尝试将宏记录的数据集导出到单独的 csv 文件中。为此,我在工作簿中的“BeforeClose”事件中有以下 vba 代码:
'
' Exporting Data:
'
Dim wbkExport As Workbook
Dim shtToExport As Worksheet
Dim Path1 As String
(4) Path1 = Range("Config!Path")
Set shtToExport = ThisWorkbook.Worksheets("Sheet1") 'Sheet to export as CSV
Set wbkExport = Application.Workbooks.Add
shtToExport.Copy before:=wbkExport.Worksheets(wbkExport.Worksheets.Count)
Application.DisplayAlerts = False 'Possibly overwrite without asking
'FileFormat:=xlOpenXMLWorkbook
wbkExport.SaveAs Filename:=Path1, FileFormat:=xlCSV
Application.DisplayAlerts = True
wbkExport.Close savechanges:=False
Application.DisplayAlerts = False
Application.Quit
但我收到“运行时错误 1004:对象 '_Global' 的方法 'Range' 在 excel vba 中失败”错误
当我尝试调试时,它会突出显示 - Path1 = Range("Config!Path") - 我的代码中的字符串。(我在代码中引用为(4))。
在我的启用宏的工作表中,我有“配置”表,其中包含以下内容:
请帮忙!