Festlegen des benutzerdefinierten Pfads beim Exportieren in VBA

548
user9431057

Ich verwende die akzeptierte Antwort dieses Beitrags für einen meiner Exporte.

Basierend auf der Antwort speichert es meine exportierte .csvDatei in meinem C:\Users\username\AppData\Roaming\Microsoft\Excel\XLSTART.

Ich brauche diesen Export jedoch in meinen Dateispeicherort, von wo aus ich Daten exportiere. Es sollte seinC:\Users\username\Desktop\Sample_Files\Excel_to_csv_export

Basierend auf der Antwort habe ich Folgendes versucht:

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

Wie kann ich den gewünschten Pfad festlegen? Jede Hilfe wäre toll!

0
Du hast nicht "Path" erklärt. Versuchen Sie, `Dim Path as String` hinzuzufügen und entfernen Sie` Set` aus `Set Path = ...` DavidPostill vor 6 Jahren 0
@ DavidPostill ♦ Nach einiger Zeit fand ich diesen [post] (https://stackoverflow.com/questions/18507042/saving-excel-workbook-to-constant-path-with-filename-from-2-fields). Ich habe `.SaveAs Filename:" C: \ Users \ Benutzername \ Desktop \ Sample_Files \ Excel_to_csv_export.csv "` hinzugefügt und es wird exportiert, aber ich muss es manuell speichern. Irgendwelche Ideen, warum wird nicht automatisch gespeichert? user9431057 vor 6 Jahren 0
Sie sollten etwas Zeit damit verbringen, VBA zu verstehen, anstatt Code mithilfe von zufälligen Ausschnitten aus dem Internet zu schreiben. DavidPostill vor 6 Jahren 1
@DavidPostill stimmte zu, ich bin neu in VBA und dies ist eine der Aufgaben, die ich mir vorgenommen habe, um mich zu automatisieren. Ich habe von heute an angefangen zu lernen. user9431057 vor 6 Jahren 0
[Workbook.Save-Methode (Excel)] (https://msdn.microsoft.com/en-us/vba/excel-vba/articles/workbook-save-method-excel) DavidPostill vor 6 Jahren 0
Die einfachste Methode, die ich Ihnen vorschlagen kann, ist "Dim FromPath As String" `Dim ToPath As String" `FromPath =" C: \ Users \ Abc \ Data "` `ToPath =" C: \ Users \ ABC \ Test "` * * Der Text, den ich verwendet habe, um den Dateipfad anzuzeigen, ist eine Art von Daten, und für jedes Datum ist ein Datenelement erforderlich, das als Variable bezeichnet wird, um den Wert zu speichern. Damit Sie zuerst die Variable deklarieren müssen und dann den Pfad (Wert) zuweisen, wird dies funktionieren. ** Rajesh S vor 6 Jahren 0

0 Antworten auf die Frage

Verwandte Probleme