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