Импорт текстового (CSV) файла в таблицу Excel с использованием макросов VBA - PullRequest
Новая
       11

Импорт текстового (CSV) файла в таблицу Excel с использованием макросов VBA

0 голосов
/ 05 октября 2018

Я пытаюсь автоматически импортировать текстовый файл в Excel.Кажется, что он отлично импортируется с кодом следующим образом, однако, если я хочу, чтобы он импортировал его в таблицу, он не делает этого и приводит к перемещению таблицы вправо. 

path = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(ThisWorkbook.path)    

Sheets("Sheet1").Activate
    Sheets("Sheet1").Select
    Sheets("Sheet1").Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & path & "\Users 
Roles Entitlements.csv", Destination:=Sheets("Sheet1").Range("A1"))
    .Name = "positions_1"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 857
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = True
    .TextFileCommaDelimiter = True
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
    End With

Предположим, чтоИмя таблицы - Таблица1.

Буду признателен, если кто-нибудь предложит поправку к этому коду, чтобы он импортировался непосредственно в Таблицу 1 и соответствующим образом перенастраивал таблицу Excel.

...