Сохранить файл как CSV, продолжает появляться как.xlsx

Question

Я пытаюсь вывести копию рабочей книги в виде файла CSV. У меня есть код ниже, но при сохранении он отображается в виде файла в виде книги Excel.

Sub SAVE_CSV()

Dim FileName As String
FileName = "CSV Import File"

Dim fPth As Object
Set fPth = Application.FileDialog(msoFileDialogSaveAs)

With fPth
    .InitialFileName = FileName
    .Title = "Save Your Import File"
    .InitialView = msoFileDialogViewList
    If .Show <> 0 Then
        ThisWorkbook.SaveAs FileName:=.SelectedItems(1) & "*.csv", FileFormat:=xlCSV
    End If
End With

Answer 1

Заменить:

ThisWorkbook.SaveAs FileName:=.SelectedItems(1) & ".csv"

Следуйте приведенной ниже логике:

1. Путь - Каталог
2. "\"
3. Имя файла
4. Тип файла - .csv

Answer 2

Вы знаете имя, под которым хотите сохранить его, так что, возможно, это просто выбор правильной папки:

Sub SAVE_CSV()

    Dim FileName As String
    FileName = "CSV Import File Again"

    Dim fPth As Object
    Set fPth = Application.FileDialog(msoFileDialogFolderPicker)

    With fPth
      .InitialFileName = "C:\Users\Testing\Documents\Can be deleted\" 'Change as required.
      .Title = "Save Your Import File"
      .InitialView = msoFileDialogViewList

      If .Show <> 0 Then
        ThisWorkbook.SaveAs FileName:=.SelectedItems(1) & "\" & FileName & ".csv", FileFormat:=xlCSV
          End If
    End With

End Sub