Excel VBA QueryTables.Add: деактивировать преобразование даты - PullRequest
0 голосов
/ 21 ноября 2018

к сожалению, я не смог найти решение для своей проблемы, хотя я много гуглил: D

На мой взгляд, вопрос, который должен иметь простое решение:

То естьмой стандартный код импорта:

Private Sub Import(x)


Sheets("Buffer").Activate

    With ActiveSheet.QueryTables.Add(Connection:="URL;" & x, _
        Destination:=Range("A1"))
           ' .Name = "VPE"
            .FieldNames = False 'x
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = False 'x
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlEntirePage
            .WebFormatting = xlWebFormattingNone
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
     End With

End Sub

Моя проблема в том, что мой импортированный файл (.htm) автоматически преобразует ячейки.Например, версия продукта: 6.0, 6.08, 6.48.> Excel интерпретировал это как дату, и я больше не могу обрабатывать данные.Что я уже пробовал:

  1. Преобразование листа "Буфер" в текст / только цифры> Excel переопределяет его
  2. Я посмотрел на официальном сайте объекта таблицы запросов (https://docs.microsoft.com/de-de/office/vba/api/excel.querytable) но мне не удалось найти правильное утверждение / флаг
  3. Установка разделителя из "," в "."

Надеюсь, вы сможете мне помочь =)

привет

Флориан

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...