VBA 从以 Workbook 命名的工作表创建 CSV答案

【问题标题】：VBA create CSV from sheet named after WorkbookVBA 从以 Workbook 命名的工作表创建 CSV
【发布时间】：2020-04-03 15:19:30
【问题描述】：

我正在尝试从我的工作簿中的工作表创建一个新的 CSV 文件，该文件以原始工作簿命名减去标题中的几个单词。目前我无法弄清楚如何以我的工作簿命名它，更不用说从工作簿标题中减去几个单词了。澄清一下：工作簿名称“abc def”，希望新的 CSV 文件命名为“abc”

    Sub SaveActiveSheet_CSV ()
    Dim myCSVFileName As String

    Application.DisplayAlerts = False
    myCSVFileName = ThisWorkbook.Path & "abcd"
    ThisWorkbook.Sheets("Sheet1").Copy

    ActiveWorkbook.SaveAs Filename:=MyCSVFileName, FileFormat:=xlCSV, CreateBackup:=False
    ActiveWorkbook.Close

    Application.DisplayAlerts = True

    End Sub

任何帮助将不胜感激

【问题讨论】：

*希望 CSV 文件与工作簿命名相同
使用这个：myCSVFileName = ThisWorkbook.fullname & "abcd"
试试myCSVFileName = ThisWorkbook.Path & "\" & "abcd.csv"

标签： excel vba csv naming

【解决方案1】：

如果按照您的建议，您当前的文件名为“abc def”，那么您可以使用Split() 来获取新文件的名称。所以你需要.Path 和.FullName 属性。

因此：

Dim myCSVFileName As String

myCSVFileName = ThisWorkbook.Path & "\" & Split(ThisWorkbook.Name, " ")(0) & ".csv"

或者，或者：

myCSVFileName = Split(ThisWorkbook.FullName, " ")(0) & ".csv"

【讨论】：