Создайте файл CSV с VBA без пустых столбцов и строк - PullRequest
Новая
       10

Создайте файл CSV с VBA без пустых столбцов и строк

1 голос
/ 17 июня 2020

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

Dim FileName As String
    Dim Path As String
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs FileName:= _
        "FILEPATH&NAME ".txt", FileFormat:=xlText, CreateBackup:=False

    Application.DisplayAlerts = True

Проблема: Файлы, созданные с помощью этого метода, очень большие (20 046 Ko) и все замедляют (сохраняя для пользователя и впоследствии запросы Excel). Похоже, это связано с тем, что он сохраняет тысячи пустых столбцов, тогда как в моих файлах должно быть только 27 столбцов.

Что я пробовал: Я пытался сохранить как CSV вместо этого имеет ту же проблему с размером.

Как я могу закодировать его для создания файла без пустых столбцов и строк?

Спасибо за помощь!

1 Ответ

0 голосов
/ 17 июня 2020

Это не xlText, а xlCSV. 

Sub test()
    Dim Wb As Workbook
    Dim Ws As Worksheet
    Set Wb = ActiveWorkbook
    Set Ws = Wb.ActiveSheet
    'Wb.SaveAs Filename:="myTest.text", FileFormat:=xlCSV
    Ws.SaveAs Filename:="myTest.text", FileFormat:=xlCSV

End Sub
...