Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.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
VBA:保存为CSV时出错:运行时错误';424';:所需对象_Vba_Excel_Csv - Fatal编程技术网

VBA:保存为CSV时出错:运行时错误';424';:所需对象

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

在Mac上的excel 2016中,我试图将单个工作表保存为excel中的CSV,并不断获取

“运行时错误'424':需要对象”错误或运行时错误:“1004”

我已经搜索了很长时间,但根本找不到合适的答案/解决方案:

粗体错误行

副AV_来宾_宏() ' 'AV_来宾_宏

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,但可能有一些更改,但在我的版本中,您将使用
此工作簿
而不是
当前工作簿
。我看不到任何地方。您是否启用了显式选项?我也这么认为,但测试了它,显然您可以保存工作表。我也这么认为,但测试了它,显然您可以保存工作表。