Задать пользовательский путь при экспорте в VBA

320
user9431057

Я использую принятый ответ этого поста для одного моего экспорта.

Исходя из ответа, он сохраняет мой экспортированный .csvфайл в моем C:\Users\username\AppData\Roaming\Microsoft\Excel\XLSTART.

Однако мне нужен этот экспорт в папку, в которую я экспортирую данные. Так должно бытьC:\Users\username\Desktop\Sample_Files\Excel_to_csv_export

Я попробовал следующее на основе ответа:

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

Как я могу установить путь к желаемому пути? Любая помощь будет отличной!

0
Вы не объявили `Путь`. Попробуйте добавить `Dim Path as String` и удалите` Set` из `Set Path = ...` DavidPostill 5 лет назад 0
@ DavidPostill ♦ После поиска некоторое время я нашел это [сообщение] (https://stackoverflow.com/questions/18507042/saving-excel-workbook-to-constant-path-with-filename-from-2-fields). Я добавил `.SaveAs Имя файла:" C: \ Users \ username \ Desktop \ Sample_Files \ Excel_to_csv_export.csv "`, и он экспортируется, но я должен сохранить вручную. Есть идеи, почему он не сохраняется автоматически? user9431057 5 лет назад 0
Вы должны потратить некоторое время на изучение vba вместо того, чтобы пытаться писать код, используя случайные фрагменты из Интернета. DavidPostill 5 лет назад 1
@DavidPostill согласился, я новичок в VBA, и это одна из задач, которую я думал сделать для автоматизации. С сегодняшнего дня я начал учиться. user9431057 5 лет назад 0
[Workbook.Save Method (Excel)] (https://msdn.microsoft.com/en-us/vba/excel-vba/articles/workbook-save-method-excel) DavidPostill 5 лет назад 0
Самый простой способ, который я могу вам предложить, `Dim FromPath As String`` Dim ToPath As String` `FromPath =" C: \ Users \ Abc \ Data "` `ToPath =" C: \ Users \ ABC \ Test "` * * Текст, который я использовал, чтобы показать путь к файлу, является своего рода данными, и для каждых данных требуется некоторый элемент данных, называемый переменной, для хранения значения. Так что вам нужно сначала объявить переменную, а затем присвоить ей путь (значение), будет работать. ** Rajesh S 5 лет назад 0

0 ответов на вопрос

Похожие вопросы