Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/25.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
运行时错误1004:方法';范围';对象的'_全球';在excel vba中失败_Excel_Vba_Runtime Error_Data Export - Fatal编程技术网

运行时错误1004:方法';范围';对象的'_全球';在excel vba中失败

运行时错误1004:方法';范围';对象的'_全球';在excel vba中失败,excel,vba,runtime-error,data-export,Excel,Vba,Runtime Error,Data Export,我正在尝试将宏记录的数据集导出到单独的csv文件中。 为此,我在工作簿中有以下关于“BeforeClose”事件的vba代码: 但我得到了“运行时错误1004:对象的方法“范围”\u Global“在excel vba中失败”错误 当我尝试调试时,它会在代码中突出显示-Path1=Range(“Config!Path”)-string。(我在本规范中引用为(4)) 在启用宏的工作表中,我有“配置”工作表,内容如下: 求求你,救命 B2单元是命名区域吗?@FunThomas谢谢!!!是的,我忘了

我正在尝试将宏记录的数据集导出到单独的csv文件中。 为此,我在工作簿中有以下关于“BeforeClose”事件的vba代码:

但我得到了“运行时错误1004:对象的方法“范围”\u Global“在excel vba中失败”错误

当我尝试调试时,它会在代码中突出显示-Path1=Range(“Config!Path”)-string。(我在本规范中引用为(4))

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


求求你,救命

B2单元是命名区域吗?@FunThomas谢谢!!!是的,我忘了根据代码命名。如果是这样,我将投票结束这个问题。无意冒犯,但我认为保持它的打开是没有用的。
xlOpenXMLWorkbook
应该这样做,但您不应该给文件扩展名
.csv
。要么更改单元格B2的内容,要么用代码将
csv
替换为
xlsx
。@FunThomas是的,只是忘记更改为.xlsx问题已经解决!
       '
       ' 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