乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 如何把一个或几个CSV文件中的数据读取到<em>Excel</em>表格中-tcl excel,

如何把一个或几个CSV文件中的数据读取到<em>Excel</em>表格中-tcl excel,

作者:乔山办公网日期:

返回目录:excel表格制作


首先肯定要用宏来实现。

可以把要打开的文件放到一个统一目录里,使用宏依次打开并读取数据,然后根据你的逻辑写入新文件中。
下面是个简单例子,测试通过。
读取宏文e69da5e887aae79fa5e98193361件和csv文件在一个目录里,宏通过当前程序得到当前目录,从当前目录里依次打开每个文件(当前宏文件跳过),读取每个csv文件第2行,贴到当前宏文件里。
注意运行前只打开宏文件,另外,若需要,手工删除sheet1里存在内容,不了解你具体详细的需求,就做个例子提供一下参考。
Sub zzh_abc()
On Error GoTo out1
Dim Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")

Set folder = Fso.GetFolder(ThisWorkbook.Path)
i = 1
For Each f In folder.Files
If InStr(f.Name, ThisWorkbook.Name) = False Then
Filename = ThisWorkbook.Path & "\" & f.Name
Workbooks.Open Filename:=Filename
Rows("2:2").Select 'select row to copy
Selection.Copy
Application.DisplayAlerts = False
Workbooks(2).Close savechanges:=False
'Worksheets("sheet1").Select
Cells(i, 1).Select 'copy by increasing one new line
ActiveSheet.Paste
i = i + 1
End If
Next
Exit Sub

out1:
End Sub

在excel中,找打开按钮,选择文件格式为 .csv的,然后选择你要导入的CSV文件,会自动弹出文本导入向导,选择数据的分隔符,可以选择空格或者tab,更可以选择你实际在CSV文件中使用的符号
新建个导出,看看手上原来的csv的格式是否正确,不正确的话就改下。 csv可以用excel打开的,和正常的文件比较一下就可以了。

没看懂,你要同时出示原本的数据和转换后的数据,才能有比较

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网