从CSV文件中提取数据

时间:2018-06-27 13:36:29

标签: excel excel-vba csv export vba

我有一个从Linkedin导出的数据(通过我的连接),我想将数据提取为可用的格式。

这是设置列的方式(请注意,它们都位于一个列中):

First Name,Last Name,Email Address,Company,Position,Connected

因此,它看起来像这样:

<table>
  <tr>
    <td style="border:1px solid black">Column A</td>
    <td style="border:1px solid black">Column B</td>
    <td style="border:1px solid black">Column C</td>
    <td style="border:1px solid black">Column D</td>
    <td style="border:1px solid black">Column E</td>
  </tr>
  <tr>
    <td style="border:1px solid black">Markus,Lanz,markus.lanz@example.com,Example CompanyCEO</td>
    <td style="border:1px solid black">empty</td>
    <td style="border:1px solid black">empty</td>
    <td style="border:1px solid black">empty</td>
    <td style="border:1px solid black">empty</td>
  </tr>
</table>

但是我想将数据导出为可用格式,以将其添加到数据库中(请注意,我正在尝试使用表复制列和行)

<table>
  <tr>
    <td style="border:1px solid black">First Name</td>
    <td style="border:1px solid black">Last Name</td>
    <td style="border:1px solid black">Email Address</td>
    <td style="border:1px solid black">Company</td>
    <td style="border:1px solid black">Position</td>
  </tr>
  <tr>
    <td style="border:1px solid black">Markus</td>
    <td style="border:1px solid black">Lanz</td>
    <td style="border:1px solid black">markus.lanz@example.com</td>
    <td style="border:1px solid black">Example Company </td>
    <td style="border:1px solid black">CEO</td>
  </tr>
</table>

如果您能帮助我解决这个问题以及如何解决它,那将是惊人的。 您会提出什么建议?使用Excels框架本身还是使用VBA?

事先考虑

1 个答案:

答案 0 :(得分:1)

使用逗号作为分隔符,

数据>文本到列就足够了。

或者您可以使用 Power Query (获取和转换数据):

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Split Column by Delimiter" = Table.SplitColumn(Source, "Column1", Splitter.SplitTextByDelimiter(",", QuoteStyle.Csv), {"First Name", "Last Name", "Email", "Company", "Positionn"})
in
    #"Split Column by Delimiter"
相关问题