к сожалению, я не смог найти решение для своей проблемы, хотя я много гуглил: 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 интерпретировал это как дату, и я больше не могу обрабатывать данные.Что я уже пробовал:
- Преобразование листа "Буфер" в текст / только цифры> Excel переопределяет его
- Я посмотрел на официальном сайте объекта таблицы запросов (https://docs.microsoft.com/de-de/office/vba/api/excel.querytable) но мне не удалось найти правильное утверждение / флаг
- Установка разделителя из "," в "."
Надеюсь, вы сможете мне помочь =)
привет
Флориан