本文目录一览：

如何csv转换成excel

复制，然后到EXCEL表格是粘贴就是了，但是，粘贴过去以后都是文本格式数据，如果要计算需要通过，“复制，选择性粘贴，运算，乘”这样的操作把文本的数据变成数字，并且要把多余的空格通过，批量替换，否则对数据的计算会有影响 。

如何快速批量将csv转换成excel文件

快速批量将csv转换成excel文件步骤如下：

1、首先随便打开一个表格文件。

2、在开发工具标签页下有个宏功能。

3、打开宏窗口后，随便起个名字，新建。

4、箭头指的部分准备粘贴代码，代码粘贴下面的，其中目录部分换成你的csv文件所在的目录。

5、书写程序：

ChDir "C:/Users/Administrator/Desktop/新建文件夹"  

Dim sDir As String  

Dim curdir As String  

curdir = "C:/Users/Administrator/Desktop/新建文件夹"  

sDir = Dir(curdir "/*.csv")  

While Len(sDir)      

Workbooks.Open Filename:=curdir "/" sDir      

Dim temp As String      

temp = Left(sDir, Len(sDir) - 4)      

ActiveWorkbook.SaveAs Filename:=curdir "/" temp ".xls", _          

FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _          

ReadOnlyRecommended:=False, CreateBackup:=False      

ActiveWorkbook.Close    

sDir = Dir  

Wend

6、点击运行按钮运行。

7、在页面中等待一会儿。

8、现在所有csv文件都有一分转化为xls的文件了。

在excel宏中，批量处理csv变为excel，用什么代码能使csv汉字乱码变正常，且批量把csv变为excel格式

用导入文本数据的方式吧，不会自己写的可以先录制一个宏，然后看录制的代码。批量的话，流程是这样的：先打开选择文件对话框，设置可以多选，过滤文件类型为csv类型，然后把结果数组做循环，分别导入处理（假如需要处理的话），最后再另存为Excel合适文件。

csv文件转excel文件，菜鸟不知道怎么做，求详细步骤！

1、原始方法

如果是少量的Excel文件可以采用打开——另存为。。，选择想要转换的格式就OK了！

2、利用小软件

这款软件的名字叫CSVtoExcel，是一款完全免费的批量CSV转EXCEL转换器，输出格式为xls和xlsx，转换时需要将csv文件都放到同一文件夹下，一键转换即可完成。

如何批量将CSV格式的文件转化成excel格式

会写代码的话，直接遍历文件夹下所有.csv的文件，将文件名修改为.xls就OK了。速度会飞快

如何批量读取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 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