如何导入一个CSV文件到表格？

ykcbf1100

一次选择多个文件导入。

注意：选择多个文件时，要先按住Ctrl键，再用鼠标点选所需要的文件即可。

ykcbf1100

一次选择多个文件导入。

1. Sub ykcbf()   '//2024.7.21 一次选择导入多个CSV文件
   
2.     Dim fns
   
3.     Set fso = CreateObject("scripting.filesystemobject")
   
4.     Application.ScreenUpdating = False
   
5.     Set sh = ThisWorkbook.Sheets("原始数据")
   
6.     sh.UsedRange.Clear
   
7.     With Application.FileDialog(msoFileDialogFilePicker)
   
8.         .Title = "请选择文件夹"
   
9.         .InitialFileName = ThisWorkbook.Path & ""
   
10.         .AllowMultiSelect = True
    
11.         .Filters.Clear
    
12.         .Filters.Add "CSV Files", "*.csv"
    
13.         If .Show Then Set fns = .SelectedItems Else Exit Sub
    
14.     End With
    
15.     For Each f In fns
    
16.         Set wb = Workbooks.Open(f, 0)
    
17.         m = m + 1
    
18.         With wb.Sheets(1)
    
19.             If m = 1 Then
    
20.                 .UsedRange.Copy sh.[a1]
    
21.             Else
    
22.                 r = sh.Cells(Rows.Count, 1).End(3).Row
    
23.                 .UsedRange.Offset(1).Copy sh.Cells(r + 1, 1)
    
24.             End If
    
25.         End With
    
26.         wb.Close False
    
27.     Next
    
28.     Application.ScreenUpdating = True
    
29.     MsgBox "OK！"
    
30. End Sub
    
31. 
    

复制代码

明天会更好zj

用Power Query导入没有问题

明天会更好zj

后面的数据还是有点问题。

飞天篮球猪

解析csv文件的时候可以让各种括号里的逗号不当成分隔符来拆