如何用VBA把csv文件里面数据提取到excel里面？

约定的童话

用VBA实现把csv格式文件里面那5列数据提取到excel的A3位置，并清除第一行内容，红圈中为关键字：Designator，Footprint，Mid X，Mid Y，Rotation！谢谢大神！（采用弹窗选择文件的形式）

约定的童话

找到解决方案了
Sub 提取CSV()
strfile = Application.GetOpenFilename("EXCEL文档(*.CSV*),", , "请选择记录文件")
If strfile = "" Then Exit Sub
With Workbooks.Open(strfile)
    ar = .Sheets(1).UsedRange
    L1 = .Sheets(1).Rows(1).Find("Designator", , , xlWhole).Column
    L2 = .Sheets(1).Rows(1).Find("Footprint", , , xlWhole).Column
    L3 = .Sheets(1).Rows(1).Find("Mid X", , , xlWhole).Column
    L4 = .Sheets(1).Rows(1).Find("Mid Y", , , xlWhole).Column
    L5 = .Sheets(1).Rows(1).Find("Rotation", , , xlWhole).Column
    .Close 0
End With
ReDim br(1 To 1000, 1 To 5)
For i = 2 To UBound(ar)
    If Len(ar(i, L1)) Then
        If Right(ar(i, L1), 1) = "," Then x = Left(ar(i, L1), Len(ar(i, L1)) - 1) Else x = ar(i, L1)
            n = n + 1
            br(n, 1) = ar(i, L1)
            br(n, 2) = ar(i, L2)
            br(n, 3) = ar(i, L3)
            br(n, 4) = ar(i, L4)
            br(n, 5) = ar(i, L5)
     End If
Next
Cells.ClearContents
Range("a3").Resize(n, 5) = br
End Sub

cai2532

收藏学习了。

taller

建议使用Power Query导出，轻松处理数据，无需VBA代码

约定的童话

taller 发表于 2023-1-7 05:27
建议使用Power Query导出，轻松处理数据，无需VBA代码

18年的帖子，你们咋又看到了

lcluck2002

约定的童话 发表于 2023-1-7 09:55
18年的帖子，你们咋又看到了

18年就那么帅了----你的头像。