VBA:保存为CSV时出错:运行时错误';424';:所需对象
在Mac上的excel 2016中,我试图将单个工作表保存为excel中的CSV,并不断获取 “运行时错误'424':需要对象”错误或运行时错误:“1004” 我已经搜索了很长时间,但根本找不到合适的答案/解决方案: 粗体错误行 副AV_来宾_宏() ' 'AV_来宾_宏VBA:保存为CSV时出错:运行时错误';424';:所需对象,vba,excel,csv,Vba,Excel,Csv,在Mac上的excel 2016中,我试图将单个工作表保存为excel中的CSV,并不断获取 “运行时错误'424':需要对象”错误或运行时错误:“1004” 我已经搜索了很长时间,但根本找不到合适的答案/解决方案: 粗体错误行 副AV_来宾_宏() ' 'AV_来宾_宏 LastRow = Range("aa1").Value "复制公式", Range("L2:U2").Copy Range("L3:U" & LastRow).Select ActiveSheet.Paste
LastRow = Range("aa1").Value
"复制公式",
Range("L2:U2").Copy
Range("L3:U" & LastRow).Select
ActiveSheet.Paste
RowCheck = 2
Do Until RowCheck > LastRow
'删除包含重复电子邮件的行
如果范围为(“N”&RowCheck).Value=“排除”,则
范围(“X”&行检查)。EntireRow.Delete
LastRow = LastRow - 1
Else 'this row will be imported
RowCheck = RowCheck + 1
End If
环路
Application.DisplayAlerts=False
CurrentWorkbook.Sheets(“用户”)。另存为文件名:=_
“\Users\Jhartley416\Desktop\JB\u Test\AV\u Users\u Update\u 2016”_
,FileFormat:=6,CreateBackup:=False
Application.DisplayAlerts=True
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows("AB JB Template - JLH2.xlsm").Activate
Sheets("Users").Activate
Sheets("Users").Range("A4:U10000").ClearContents
Range("A1").Select
End Sub引用所选工作簿的正确方法是使用ActiveWorkbook,而不是CurrentWorkbook:
ActiveWorkbook.SaveAs Filename:= _ "\Users\Jhartley416\Desktop\JB_Test\AV_Users_Update_2016" _ , FileFormat:=6, CreateBackup:=False
引用所选工作簿的正确方法是ActiveWorkbook,而不是CurrentWorkbook:
ActiveWorkbook.SaveAs Filename:= _ "\Users\Jhartley416\Desktop\JB_Test\AV_Users_Update_2016" _ , FileFormat:=6, CreateBackup:=False
我使用的是旧版本的Excel,但可能有一些更改,但在我的版本中,您将使用
此工作簿
而不是当前工作簿
。我看不到任何地方。您是否启用了选项Explicit
?我使用的是旧版本的Excel,但可能有一些更改,但在我的版本中,您将使用此工作簿
而不是当前工作簿
。我看不到任何地方。您是否启用了显式选项?我也这么认为,但测试了它,显然您可以保存工作表。我也这么认为,但测试了它,显然您可以保存工作表。