csv批量转xls | excel按行数拆分

heqiyu34

于 2016-07-06 16:08:36 发布

阅读量2.5k

点赞数

分类专栏：其他

其他专栏收录该内容

13 篇文章

订阅专栏

本文提供了一段使用VBA实现CSV文件批量转换为XLS格式的代码，并分享了一个按行数拆分Excel文件的方法。CSV转换功能通过遍历指定目录下的所有CSV文件并将其逐一转换为XLS格式；而Excel拆分则能够将一个大型工作表按固定行数拆分为多个独立文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Csv批量转xls：

Sub 转换()

ChDir "d:\user\828604\桌面"

Dim sDir As String
Dim curdir As String

curdir = "d:\user\828604\桌面"
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

End Sub

excel按行数拆分：

Sub 拆分()
MsgBox ThisWorkbook.Sheets("Sheet3").UsedRange.Columns.Count
For i = 1 To 4
Set nb = Workbooks.Add
nb.SaveAs Filename:=ThisWorkbook.Path & "\" & i
nb.Activate
With ThisWorkbook.Sheets("Sheet3")
.Rows(1).Copy [a1]
.Range(.Cells(2500 * (i - 1) + 2, 1), .Cells(2500 * i + 1, 14)).Copy [a2]

End With
ActiveWorkbook.Save
ActiveWorkbook.Close
Next
End Sub