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

Question

我正在尝试为此获取 VBA 代码。

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

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

我希望 excel 提示的是一个 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

希望对您有所帮助。