Question

我试图为此获得VBA代码。

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

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

我想要excel提示的是MSGBox请求新文档的文件名或使用特定单词和当前月份和年份保存（SAMPLE - MONTH YYYY） < / strong>

我希望能够输入类似“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

希望得到这个帮助。

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

1 个答案: