Question

我是VBA的新手。如何从CSV数据中提取唯一列并将其放置在电子表格中的任何位置？

我有一个来自API / URL的CSV文件

A,B,C,D,E
1,2,3,4,5
6,7,8,9,10
11,12,13,14
14,15,16,17

我有此代码，但它显示所有CSV数据。如何仅从数据中获取一两列并将其放置在电子表格中的任何位置？

Sheets(1).Range(Range("A1"), Range("A1").End(xlDown)).TextToColumns _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=True, Space:=False, Other:=False, _
FieldInfo:= _
Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 1), Array(5, 2))

Answer 1

对于FieldInfo中包含的两个元素数组中的每个，第一个元素指定列号（从1开始），第二个元素指定数据类型。要跳过一列，请将第二个元素或数据类型设置为9。因此，例如，假设您要跳过第1、3和4列，则需要按以下步骤进行设置...

FieldInfo:=Array(Array(1, 9), Array(2, 2), Array(3, 9), Array(4, 9), Array(5, 2))

Excel VBA如何只能将CSV中的一列提取到电子表格中

1 个答案: