0

我正在尝试将宏记录的数据集导出到单独的 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))。

在我的启用宏的工作表中,我有“配置”表,其中包含以下内容:

在此处输入图像描述

请帮忙!

4

0 回答 0