Использование разделителей для разделения данных таблицы запросов на строки

Question

Мне нужны данные таблицы запросов в Excel, чтобы использовать запятую в качестве разделителя для столбцов и фигурную скобку '{' в качестве разделителя для строк.

Я знаю, что могу использовать свойство ".TextFileOtherDelimiter", чтобы использоватьфигурная скобка в качестве разделителя.Но как мне получить данные для перехода в следующую строку?

CODE

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & url & "", Destination:=Worksheets("temp").Range("$A$1"))
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh
End With

Приведенный выше код отлично работает для разделения данных запятыми на разные столбцы.

Answer 1

Сделайте это сначала

Dim X As Variant
X = Split(Range("A1").Value, "{") 'or X = Split(YourVariable, "{")
Worksheets("temp").Range("$A$1").Resize(UBound(X) - LBound(X) + 1).Value = Application.Transpose(X)

, затем введите текст в столбцы с кодом

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & url & "", 
Destination:=Worksheets("temp").Range("$A$1"))
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh
End With