Импорт VBA-соединения - изменение соединения при импорте - PullRequest
Новая
       6

Импорт VBA-соединения - изменение соединения при импорте

0 голосов
/ 14 ноября 2018

Я не уверен, что мне здесь не хватает, но по какой-то причине мне сложно определить имя соединения, когда я импортирую файл CSV в Excel.У меня есть ячейка, которая находится на две строки выше импортированных данных, которая должна быть именем соединения.По какой-то причине после ввода данных имя соединения по-прежнему задается именем файла, а не значением, определенным в данных «MyInput».Чего мне не хватает? 

Sheets("CSV - Session Data").Range("A100000").End(xlUp) = MyInput

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileName, Destination:=Sheets("CSV - Session Data").Range("A100000").End(xlUp).Offset(2, 0))
    .Name = MyInput
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 65001
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = True
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = True
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
End With

Спасибо,

Марк

...