批量转换一个文件夹里的csv格式为xls或xlsx格式，直接转换有部分数据不可读

liyheng0524

各位大神，在实际工作中遇到需要把很多个csv格式另存为xls或xlsx格式的。我知道可以打开csv文件后可以选择另存为xls或xlsx格式，但是这种方法工作效率很低，现在就想知道能否通过VBA代码批量进行操作。要求：把一个文件夹里面所有csv格式的文档全部转换为xls或xlsx格式，文件名字就是原来csv文件的名字。求帮助，谢谢。

源文件中还有分隔符，用EXCEL导入后，选择分隔符再导出才行，用了很多格式转换，仅转换了格式，内容无法阅读。我现在的方法是 导入来自文本  按照文本向导下一步，第二步要勾选空格，在下一步下一步就可读。之后再改成软件要求的烈属，复制为TXT文件，再导入软件。
全部要求是，csv转换为XLS，并且所有数据完整，数据列（第3列）再复制5列，更改格式为常规，再复制进TXT，再导入软件。
最好能直接一个文件夹的CSV按上述要求变成TXT文件
若不能直接全部流程完成，至少要完成CSV转XLS，并保证数据完整可读。
再次感谢各位大神。

duquancai

苦力活。。。。。。

xyxcc177

Sub test()

Dim Path As String
Dim fileName, newName As String
Path = ThisWorkbook.Path
fileName = Dir(Path & "\*.csv")
Dim bk As Workbook
Do While fileName <> ""

Set bk = Application.Workbooks.Open(Path & "\" & fileName)
   newName = Left(fileName, Len(fileName) - 3) & "xlsx"
  bk.SaveAs Path & "\" & newName
  bk.Close True
   fileName = Dir

Loop


End Sub

liyheng0524

xyxcc177 发表于 2017-11-25 17:07
Sub test()

Dim Path As String

直接贴代码不太会，直接贴进EXCEL的VB，保存后怎么运行。

xyxcc177

看这个。。。

liyheng0524

xyxcc177 发表于 2017-11-25 17:13
看这个。。。

生成的XLSX文件提示损坏，更名为XLS后可以打开。
另外，生成的文件内容不可读
我贴图，应该生成为正常的数据格式

xyxcc177

liyheng0524 发表于 2017-11-25 17:22
生成的XLSX文件提示损坏，更名为XLS后可以打开。
另外，生成的文件内容不可读
我贴图，应该生成为正常 ...

加501214014给你处理

xyxcc177

这个文本文件更好些

liyheng0524

大神们  求出没

cai2532

转换格式学习了。