使用定界符将查询表数据拆分为行

时间:2019-02-15 18:08:44

标签: vba

我需要Excel中的查询表数据才能使用逗号作为列的定界符,并使用大括号'{'作为行的定界符。

我知道我可以使用“ .TextFileOtherDelimiter”属性将大括号用作定界符。但是我如何获取要进入下一行的数据?

代码

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

上面的代码可以很好地将逗号分隔为不同的列。

1 个答案:

答案 0 :(得分:0)

先做

 error: conversion from ‘Rcpp::Matrix<14>::ConstRow {aka Rcpp::ConstMatrixRow<14>}’ to non-scalar type ‘std::vector<double>’ requested
   std::vector<double> b = B(i,_) ;

然后将您的文本输入列代码

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)