需要有关将 CSV 文件导出到自定义地图的帮助答案

【问题标题】：Need help regards exporting CSV file to custom map需要有关将 CSV 文件导出到自定义地图的帮助
【发布时间】：2021-02-08 13:16:48
【问题描述】：

原帖：Export sheet as UTF-8 CSV file (using Excel-VBA)

有人可以帮我编辑这个，以便我可以将文件保存在我桌面上的文件夹中吗？到目前为止，该代码可以满足我的所有需求，但它会将 CSV 文件保存在我的文档中。

Sub SaveWorkSheetAsCSV()

Dim wbNew As Excel.Workbook
Dim wsSource As Excel.Worksheet, wsTemp As Excel.Worksheet
Dim name As String



    Set wsSource = ThisWorkbook.Worksheets(1)
    name = "test"
    Application.DisplayAlerts = False 'will overwrite existing files without asking
    Set wsTemp = ThisWorkbook.Worksheets(1)
    Set wbNew = ActiveWorkbook
    Set wsTemp = wbNew.Worksheets(1)
    wbNew.SaveAs name & ".csv", xlCSVUTF8 'new way
    wbNew.Close
    Application.DisplayAlerts = True

End Sub

【问题讨论】：

这能回答你的问题吗？ Replace file path in VBA with user name
我认为stackoverflow.com/a/17551579/7599798 给出了更好的答案。

标签： excel vba

【解决方案1】：

我没有测试，但试试这个：

Sub SaveWorkSheetAsCSV()

Dim wbNew As Excel.Workbook
Dim wsSource As Excel.Worksheet, wsTemp As Excel.Worksheet
Dim name As String

Dim Fld As FileDialog
Dim BrowseToFolderPath As String


    Set Fld = Application.FileDialog(msoFileDialogFolderPicker)
    
    If Fld.Show = -1 Then
        BrowseToFolderPath = Fld.SelectedItems(1)
    Else
        MsgBox "No path selected"
        Exit Sub
    End If


    Set wsSource = ThisWorkbook.Worksheets(1)
    name = BrowseToFolderPath & "test"
    Application.DisplayAlerts = False 'will overwrite existing files without asking
    Set wsTemp = ThisWorkbook.Worksheets(1)
    Set wbNew = ActiveWorkbook
    Set wsTemp = wbNew.Worksheets(1)
    wbNew.SaveAs name & ".csv", xlCSVUTF8 'new way
    wbNew.Close
    Application.DisplayAlerts = True

End Sub

请记住 xlCSVUTF8 参数来自 Excel 2016

【讨论】：