Сохранить как результаты CSV по-другому с VBA и диалоговое окно - PullRequest
Новая
       18

Сохранить как результаты CSV по-другому с VBA и диалоговое окно

0 голосов
/ 07 февраля 2019

Я пытаюсь экспортировать файл Excel как CSV.Однако мне не нужен файл, разделенный запятыми.

Когда я использую диалоговое окно Сохранить как, чтобы сохранить файл как .csv, у меня есть то, что я хочу следующим образом:

enter image description here

Когда я делаю ту же процедуру с макросом записи, у меня следующий код: 

ActiveWorkbook.SaveAs Filename:="C:\...path...\Kitap20.csv", _
    FileFormat:=xlCSV, CreateBackup:=False
ActiveWindow.Close

Поскольку я хочу записать дату в имени файла, я делаю следующие изменения в коде(это прекрасно работает для части имени файла); 

ActiveWorkbook.SaveAs Filename:=strDesktopPath & "\my_file_" & DateF & 
".csv", _
    FileFormat:=xlCSV, CreateBackup:=False

Поскольку я не касаюсь настроек формата файла в коде, я ожидаю, что у меня будет тот же выходной файл, однако он создает файл с разделением запятыми, какследует;

enter image description here

Любая помощь будет оценена.

С наилучшими пожеланиями,

1 Ответ

0 голосов
/ 07 февраля 2019

Попробуйте это: 

ActiveWorkbook.SaveAs Filename:=strDesktopPath & "\my_file_" & DateF & 
".csv", _
    FileFormat:=xlCSV, CreateBackup:=False, Local:=True
...