VBA：保存为 CSV 时出错：运行时错误“424”：需要对象答案

【问题标题】：VBA: Error when savings as CSV: Run-time error '424': Object requiredVBA：保存为 CSV 时出错：运行时错误“424”：需要对象
【发布时间】：2016-03-01 19:43:31
【问题描述】：

在 Mac 上的 excel 2016 中，我试图在 excel 中将单个工作表另存为 CSV，但我不断收到

运行时错误“424”：需要对象

或

运行时错误：'1004'

我已经搜索了很长时间，但根本找不到合适的答案/修复：

Sub AV_Guest_Macro()
'
' AV_Guest_Macro Macro

    LastRow = Range("aa1").Value
   
   'Copy Formulas
    
    Range("L2:U2").Copy
    Range("L3:U" & LastRow).Select
    ActiveSheet.Paste
     
    
    RowCheck = 2
    
    Do Until RowCheck > LastRow
    
        'Delete rows that have duplicate emails
        If Range("N" & RowCheck).Value = "Exclude" Then
            Range("X" & RowCheck).EntireRow.Delete
    
            LastRow = LastRow - 1
    
        Else 'this row will be imported
            RowCheck = RowCheck + 1
       
        End If
     
    Loop

    Application.DisplayAlerts = False

' ERROR ON THIS LINE
    CurrentWorkbook.Sheets("Users").SaveAs Filename:= _
        "\Users\Jhartley416\Desktop\JB_Test\AV_Users_Update_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

【问题讨论】：

我使用的是旧版本的 Excel，但可能发生了一些变化，但在我的版本中，您将使用 ThisWorkbook 而不是 CurrentWorkbook。我没有在任何地方看到 CurrentWorkbook 声明。你有Option Explicit 吗？

标签： vba excel csv

【解决方案1】：

引用所选工作簿的正确方法是 ActiveWorkbook 而不是 CurrentWorkbook：

ActiveWorkbook.SaveAs Filename:= _ "\Users\Jhartley416\Desktop\JB_Test\AV_Users_Update_2016" _ , FileFormat:=6, CreateBackup:=False

【讨论】：

我也这么认为，但测试了一下，显然你可以保存工作表。