Модуль макросов для копирования данных в новую книгу, сохранения в виде файла CSV и удаления пустых строк - PullRequest
Новая
       37

Модуль макросов для копирования данных в новую книгу, сохранения в виде файла CSV и удаления пустых строк

0 голосов
/ 04 августа 2020

У меня есть базовый макрос c копирования данных в новую книгу и сохраняю файл как файл формата CSV, но как файл TXT. Скрипт работает чисто, за исключением того факта, что в файле TXT много строк с пустыми данными. Как я могу удалить эти строки «,,,,,,,,,»?

Пример в файле TXT, поскольку CSV показывает все строки с правильно отформатированными данными:

01, 05, Store001,9999999`` 20200802,20200803`` 1, ,,,,,,,,, ,,,,,,,,, ,,,,,,,, 

Sheets("Create").Select
    Range("A1:J1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
    Application.CutCopyMode = False
    Dim MyFile As String
    MyFile = Format(Range("F2"), "YYYYMMDD") & ".txt"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs ("'file path is here" & MyFile), FileFormat:=xlCSV, CreateBackup:=False
    ActiveWindow.Close
    Sheets("Master").Select
...