將文件保存爲CSV並獲取文件名消息框

Question

我試圖爲此獲取VBA代碼。

我有一個.xlsm文件，我想將一個WORKSHEET保存到一個新的工作簿中。

我也想防止excel警報我將失去的數據（因爲im從宏excel切換到逗號分隔值表）。

我做什麼，希望Excel提示是一個MsgBox請求文件名稱爲新的文檔或與特定的詞和當前月份和年份保存（SAMPLE - 月YYYY）

我想能夠放置類似「TEST」的文件，並將其保存爲與正在運行的工作簿相同的文件夾中的「text.csv」。

的代碼，我是：

Private Sub Save_Click() 

ThisWorkbook.Sheets("Carriers").Copy 
Application.DisplayAlerts = False 
ActiveWorkbook.SaveAs "C:\NewWorkbook.csv", FileFormat:=xlCSVWindows 
Application.DisplayAlerts = True 


End Sub 

請讓我知道男人。提前致謝！

Answer 1

請試試這個：

Private Sub Save_Click() 

    Dim PathCSV As String 
    Dim NameCSV As String 

    PathCSV = "C:\" 
    NameCSV = "SAMPLE - " & Format(Date, "mmmm yyyy") & ".csv" 

    ThisWorkbook.Sheets("Carriers").Copy 
    Application.DisplayAlerts = False 
    With ActiveWorkbook 
     .SaveAs Filename:= _ 
     PathCSV & NameCSV, _ 
     FileFormat:=xlCSV, _ 
     CreateBackup:=False 
     .Close False 
    End With 
    Application.DisplayAlerts = True 

    Msgbox "CSV file successfully save to " & PathCSV & NameCSV 

End Sub 

希望這有助於。