Excel中的VBA代码

我有这个代码，尽管它声明有一个错误。 我要做的是从当前活动工作表中完成csv文件导出，并将其与当前单元格

A2

中的信息一起保存

Sub exportCSV()
     ' export Macro

    Range("A:F").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    strName = AprilPayslips.Range("A2")
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & strName
    , FileFormat:=xlCSV, CreateBackup:=False
    Application.DisplayAlerts = False
    Application.DisplayAlerts = True
End Sub

---

如果要将单元格的值作为字符串，请询问：）

这两条线在它们站立时不会起任何作用，因此请移除它们：

Application.DisplayAlerts = False
Application.DisplayAlerts = True

路径应始终包含尾随斜杠，因此无需将其添加到：

Sub exportCSV()
    strName = Range("A2").Value
    Range("A:F").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & strName, FileFormat:=xlCSV, CreateBackup:=False
End Sub

---

但是，如果您不能确保A2的内容始终是有效的文件名，您可能会遇到问题，除非您添加一些额外的验证。

发布错误将有助于澄清您的问题

Sub exportCSV()
    strName = Range("A2").Value
    Range("A:F").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & strName, FileFormat:=xlCSV, CreateBackup:=False
End Sub