VBA’da Dışa Aktarırken Özel Yolu Ayarla

Bu gönderimin, benim gönderdiğim bir yanıt için kabul edilen yanıtını kullanıyorum .

Yanıta göre, benim ihraç kaydeder .csvskinTenimde dosyayı C:\Users\username\AppData\Roaming\Microsoft\Excel\XLSTART.

Bununla birlikte, bu dışa aktarma işlemine veri alanını veriyorum. OlmalıC:\Users\username\Desktop\Sample_Files\Excel_to_csv_export

Cevabı temel alarak aşağıdakileri denedim:

Sub ExportTable()

    Dim wb As Workbook, wbNew As Workbook
    Dim ws As Worksheet, wsNew As Worksheet
    Dim wbNewName As String


   Set wb = ThisWorkbook
   Set ws = ActiveSheet

   Set wbNew = Workbooks.Add

   'I set the path below, which did not work
   Set Path = 'C:\Users\username\Desktop\Sample_Files\Excel_to_csv_export'

   With wbNew
       Set wsNew = wbNew.Sheets("Sheet1")
       wbNewName = ws.ListObjects(1).Name
       ws.ListObjects(1).Range.Copy
       wsNew.Range("A1").PasteSpecial Paste:=xlPasteAll
       .SaveAs Filename:=wb.Path & "\" & wbNewName & ".csv", _
             FileFormat:=xlCSVMSDOS, CreateBackup:=False
   End With

End Sub

Yolu istediğiniz yola nasıl ayarlayabilirim? Herhangi bir yardım çok iyi olurdu!