㈠ 怎样将近百个csv文件导入到ACCESS后汇总再导出到一张excel表中
打开D:下载内容暂存csv文件汇总.xlsx文件，按ALT+F11，随便双击一个表，粘贴代码，最后如下图，回到EXCEL按ALT+F8运行这个宏即可。
Sub 宏1()
Dim P As String, F As String
P = "D:下载内容暂存" 'CSV文件所在文件夹，必须以结尾
F = Dir(P & "*.CSV")
While F <> ""
With Workbooks.Open(P & F) '打开CSV文件
ActiveSheet.UsedRange.Copy Me.Cells(Me.UsedRange.Rows.Count + 1, 1)
.Close
End With
F = Dir '寻找下一个文件
Wend
End Sub
㈡ Excel如何批量导入csv文件
请参照本人发布网络经验：
网页链接
试试，应该可以满足你的要求
㈢ 如何批量读取csv格式的文件名及文件内容到新的Excel中
首先肯定要用宏来实现。可以把要打开的文件放到一个统一目录里，使用宏依次打开并读取数据，然后根据你的逻辑写入新文件中。下面是个简单例子，测试通过。读取宏文件和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 Selection.Copy Application.DisplayAlerts = False Workbooks(2).Close savechanges:=False 'Worksheets("sheet1").Select Cells(i, 1).Select ' by increasing one new line ActiveSheet.Paste i = i + 1 End If Next Exit Subout1:End Sub
㈣ Excel 中用VBA批量导入 多个.csv格式的数据分别按名称导入Excel 对应工作表
答：以下代码是在原Excel文件后面新增工作表的方法导入CSV文件，每个工作表名对于CSV文件名。CSV文件与运行宏的这个文件在同一个文件夹里。
SubDemo()DimFilenameAsStringDimrAsLong,cAsIntegerDimtxtAsString,CharAsString*1DimDataDimiAsIntegerDimNewSheetAsWorksheetDimNewCellAsRangeOnErrorResumeNextFilename=Dir(ThisWorkbook.Path&"*.CSV")DoWhileFilename<>""SetNewSheet=Worksheets.Add(after:=Sheets(Sheets.Count))NewSheet.Name=FilenameSetNewCell=NewSheet.Range("A1")OpenThisWorkbook.Path&""&FilenameForInputAs#1r=0c=0txt=""Application.ScreenUpdating=FalseDoUntilEOF(1)LineInput#1,DataFori=1ToLen(Data)Char=Mid(Data,i,1)IfChar=","ThenNewCell.Offset(r,c)=txtc=c+1txt=""ElseIfi=Len(Data)ThenIfChar<>Chr(34)Thentxt=txt&CharNewCell.Offset(r,c)=txttxt=""ElseIfChar<>Chr(34)Thentxt=txt&CharEndIfNextic=0r=r+1LoopClose#1Filename=DirLoopApplication.ScreenUpdating=TrueEndSub
㈤ 如何把多个CSV文件的数据变成一个EXCEL表格
1.首先介绍下CSV的合并方法。第一步将csv全部放在一个文件夹，并同时复制到C盘或者其他盘第一路径下。下面以D盘介绍。2.复制完毕，开始合并准备工作。打开cmd命令提示符。输入cmd，按下enter后，切换到D盘符下。输入合并指令（注意英文输入法输入）：*.CSVall.csv(意思是合并D盘下第一路径中的所有的csv文件为一个，并命名为all.csv，另外，表格最多大约支持107w条数据，如果多余这些，建议分表合并了)。3.合并完毕，建议打开另存为excel，既xlsx格式的表格。这样原表可作为备份。接下来再介绍下excel格式的表格合并，区别于csv稍有不同，需借助“excel汇总专家”工具来实现。可以网络搜素并下载安装。该软件可将多个excel文件合并，具体如下。4.将所需要的合并软件全部放在一个文件夹内，如附件图。其次打开该软件，另外，该软件为绿色软件，无需安装。双击文件名为：excel汇总专家.exe。5.运行完毕，选择汇总表格行数据，其次在选择你要合并的文件夹（既你所新建的文件夹）。默认为第2行数据到最后一行（因为表头的原因），如果没有表格，记住选择第一行开始。在取一个表格名称。6.点击开始运行，运行完毕，查看，再另存表格一份。以上介绍完毕。
㈥ 怎样把多个csv一次导入同一个excel表中
1、用word打开文本文件，或者将文本复制到word文档中来2、选中需要转换的文本部分;3、点击“插入 -> 表格 -> 文本转换成表格”4、设置列数、行数和文字分隔位置，点击“确定”按钮。5、这样就可以轻松的将文本转换成表格了，非常适用于导出成csv的各类文件。
㈦ Excel怎么导入CSV数据 急救！！！
1、确保csv文件是直接下载未经Excel修改过的，文件下载请使用浏览器另存为单线程下载方式，请勿使用其他下载工具下载。
2、新建Excel文档，选择数据=>自文本。
3、选择需要导入的csv文件。
4、设置csv文件编码，务必按图中高亮部分设置简体中文GB18030编码 以及选择分隔符号。
㈧ 快速将CSV文件导入Excel文件
方法一、使用导入功能，选择菜单数据、获取外部数据、来自文本文件，选择你的文件，接下来进入导入向导，第一步选择分隔符方式（另外一个是固定宽度），第二步选择具体的分隔符（逗号），第三部设置每一列的格式，一般使用常规即可（无需修改），只是当出现全是数字的长内容（例如身份证号码）时，需要选择那一列为文本方式，最后完成即可。如果有不需要的列，在选择类型的地方选择“忽略”即可。 方法二、复制粘贴发，用记事本（或者WORD)打开文本文件，全选、复制，然后到EXCEL里面粘贴即可。此时，所有内容都进入了EXCEL，但是全在A列里面，不是表格。现在需要选择菜单数据、分列，先选中A列再选择分列功能，此功能与导入向导的界面是一样的，也是选择分列方式、分隔符、列类型三个步骤。
㈨ 如何将一个文件夹里面的94个CSV文件合并到一个EXCEL表里面
建议写代码处理。写这个函数，然后调用：
PublicFunctionReadCSVFile(ByValstrFilePathAsString,ByValstrFileNameAsString)DimIAsIntegerDimintCountAsLong'打开数据链接关键conn.Open"Driver={MicrosoftTextDriver(*.txt;*.csv)};"&_"DBQ="&strFilePath&";Extensions=asc,csv,tab,txtersistSecurityInfo=False"Withrs.CursorType=2.LockType=3.CursorLocation=3.ActiveConnection=connEndWithSQLcsv="SELECT*FROM["&strFileName&"]"rs.OpenSQLcsvrs.Move(1)'移动到指定记录intCount=DCount("[ship]","info","[ship]='"&rs(16)&"'")'获取表中记录重复数IfintCount>1Then'进行判断Response=MsgBox("是否要覆盖原有［"&rs(16)&"］,点是将更新所有［"&rs(16)&"］数据?",4+32+256,"系统提示")IfResponse=vbNoThen'当用户按下“否”。rs.Closeconn.CloseSetrs=NothingSetconn=NothingExitFunctionEndIfDoCmd.SetWarningsFalseDoCmd.RunSQL"DELETE*frominfowhereship='"&rs(16)&"'"'删除重复数据DoCmd.SetWarningsTrueEndIfSetconn1=CurrentProject.Connectionsql="Select*Frominfo"rs1.Opensql,conn1,1,3DoUntilrs.EOF'循环更新数据表rs1.AddNewForI=0To26rs1(I)=rs(I)Nextrs.MoveNextLooprs1.UpdateBatchrs1.Closeconn1.CloseSetrs1=Nothingrs.Closeconn.CloseSetrs=NothingSetconn=NothingEndFunction
这个函数是导入csv，导入后再用联合查询处理下，然后导出Excel即可。
未经允许不得转载：山九号 » excel怎么把多个csv文件同时导入|如何批量读取csv格式的文件名及文件内容到新的Excel中
