excel - Excel 中的 VBA 代码

Question

我有这个代码，虽然它声明有一个错误。我想要做的是从当前活动工作表中完成 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

Answer 1

如果您想要将单元格的值作为字符串，请询问它:)

strName = Range("A2").Value

这两行不会做任何事情，所以删除它们：

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 的内容将始终是有效的文件名，否则您可能会遇到问题，除非您添加一些额外的验证。