作者:乔山办公网日期:
返回目录:excel表格制作
csv文件知是逗号分隔文件,xlsx是Excel文件,两者没法用命令道行直接转换,可以用命令行把多个csv文件回合并,copy 文件1+文件2+文件3 新文件。例如 copy file1.csv+file2.csv+file3.csv final.csv。然后在Excel里面打开final.csv,另存成xlsx格式。答
到zzllrr豆瓣小站,快速查百相应VBA代码 http://site.douban.com/127068/room/956006/
你使用第度四个知话题的代码:
【道VBA】每张Sheet另存xls文件到内当前文件夹
代码稍微改一下即可容。
除了逐一打开复制粘贴外,还可以用VBA编写程序,打开CSV,复制其中内容,到一个EXCEL表中粘贴 的。你将全部文档发到网盘,让大家帮你做。
代码如下:
Sub test()
Dim wb As Workbook, mary, f As String, mPath As String
'数据环境初始化
If Workbooks.Count > 1 Then MsgBox "关闭其他工作簿后重试": Exit Sub
'设置路径
MsgBox "选择原始数据所在的文件夹!"
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
If .SelectedItems.Count = 0 Then MsgBox "你放弃了操作!e5a48de588b6e79fa5e98193361": Exit Sub
mPath = .SelectedItems(1)
End With
Application.ScreenUpdating = False
f = Dir(mPath & "\*.csv")
Do While f <> ""
Set wb = Workbooks.Open(mPath & "\" & f)
mary = wb.Worksheets(1).[a1].CurrentRegion
wb.Close 0
With ThisWorkbook.Worksheets(1)
mrow = Application.CountA(.Range("A:A")) + 1
.Cells(mrow, 1).Resize(UBound(mary, 1), UBound(mary, 2)) = mary
End With
f = Dir
Loop
Application.ScreenUpdating = True
MsgBox "处理完成!"
End Sub