将文件保存为CSV并获取文件名消息框

我试图得到这个VBA代码。

我有一个.xlsm文件，我想将一个WORKSHEET保存到一个新的工作簿。

我也想要防止excel提醒我将丢失的数据（因为im从macrosexcel切换到逗号分隔值表）。

我所要做的就是优先提示是一个MSGBox请求新文件的文件名或者用一个特定的词和当前的月份和年份保存（SAMPLE – MONTH 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 

希望这个帮助。