Проблемы с подключением к соединению данных

Question

Я все еще новичок в VBA, и у меня есть небольшая проблема. У меня есть настройка подключения к данным, и импорт вытягивает все данные из таблицы. Проблема, с которой я сталкиваюсь, состоит в том, что в третьих столбцах содержится число, состоящее из 16 цифр. Когда импорт происходит, мне нужно, чтобы этот столбец был импортирован как текстовое поле, иначе импорт заменит последнюю цифру на 0. Вот код для моего импорта. Любая помощь будет оценена.

Worksheets("Equip Related").Visible = True 
    Dim WK As Worksheet 
Application.ScreenUpdating = False 

On Error Resume Next 
    Application.DisplayAlerts = False 
     Sheets("Feedback").Delete 
    On Error GoTo 0 

    Sheets.Add.Name = "Feedback" 

With ActiveSheet.QueryTables.Add(Connection:= _ 
     "URL;WEB ADDRESS HERE", Destination:= _ 
     Range("$A$1")) 
     .Name = "feedbacklog" 
     .FieldNames = True 
     .RowNumbers = False 
     .FillAdjacentFormulas = False 
     .PreserveFormatting = True 
     .RefreshOnFileOpen = False 
     .BackgroundQuery = True 
     .RefreshStyle = xlInsertDeleteCells 
     .SavePassword = False 
     .SaveData = True 
     .AdjustColumnWidth = True 
     .RefreshPeriod = 0 
     .WebSelectionType = xlAllTables 
     .WebFormatting = xlWebFormattingNone 
     .WebPreFormattedTextToColumns = True 
     .WebConsecutiveDelimitersAsOne = True 
     .WebSingleBlockTextImport = False 
     .WebDisableDateRecognition = False 
     .WebDisableRedirections = False 
     .Refresh BackgroundQuery:=False 
    End With 

Answer 1

Вы можете поместить результаты из querytabel в resultsobject и установите тип данных каждого столбца:

Set myResults = ActiveSheet.QueryTables.Add(Connection:= _ 
    "URL;WEB ADDRESS HERE", Destination:= _ 
    Range("$A$1")) 

With myResults 
    .TextFileColumnDataTypes := _ 
     Array(xlGeneralFormat, xlGeneralFormat, xlTextFormat) 
    .Refresh 
End With