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的內容總是有效的文件名，否則你可能會遇到問題，除非你添加一些額外的驗證。