Импорт из текстового файла с условием

[MSD]

Добрый день. Есть данные с промышленного сканера в тхт, разделители запятые, пример прилагаю, необходимо импортировать в эксель с сохранением формата т.к. у многих штрихкодов есть впереди нули и эксель их съедает при вставке.... подскажите как лучше сделать, спасибо.

[Hugo121]

Данные - импорт из текста - с разделителями.
В мастере ставите этим столбцам текстовый формат.
Всё.

[MSD]

А как это сделать автоматом? Макросом то есть.....??

[Hugo121]

Запишите процесс в макрос.

[MSD]

Нужен пример самого макроса я же попросил, я в этом не особо шарю а дальше я уже сам...)

[Hugo121]

Включаем рекордер, производим импорт, выключаем рекордер. Что там сложного, что там нужно знать, кроме меню программы?

Option Explicit

Sub Макрос1()
'
' Макрос1 Макрос
'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Downloads\Файл со сканера.txt" _
        , Destination:=Range("$A$1"))
        .Name = "Файл со сканера"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 866
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

[MSD]

спасибо за подсказку... но еще маленький вопрос, как дописать чтобы файл со сканера можно было выбирать а не привязываться к определенному месту? Спасибо.

[Hugo121]

Option Explicit

Sub Макрос1()
    Dim SelectedItem$

    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Выберите файл для отчета"    'надпись в окне диалога
        'путь по умолчанию к папке /где расположен исходный файл
        .InitialFileName = ThisWorkbook.Path & Application.PathSeparator & "*.txt"
        .AllowMultiSelect = False    'запрет выбора нескольких файлов
        If .Show = False Then Exit Sub
        SelectedItem = .SelectedItems(1)
    End With

    With ActiveSheet.QueryTables.Add(Connection:= _
                                     "TEXT;" & SelectedItem _
                                     , Destination:=Range("$A$1"))
        .Name = "Файл со сканера"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 866
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub