vba 如何合并多个csv文件为一个文件

yaoyouqing

zhaogang1960 发表于 2011-10-23 17:21
附件有两个问题：
1、两个csv文件都不是真正的csv文件，每个文件都有三个工作表，csv文件只能有一个工作 ...

您好，我又遇到其他问题：
1.合并的文件中缺失值？
2.合并的数据格式不对，我原来数据是希望保留小数后8位，结果只有第一行符合？
3.合并的文件行数不对，两个文件，一个是36行，一个是741行，总的应该是777，但结果只有776？
[attach]

zhaogang1960

yaoyouqing 发表于 2014-6-4 12:53
您好，我又遇到其他问题：
1.合并的文件中缺失值？
2.合并的数据格式不对，我原来数据是希望保留小数后 ...

Dos命令：

1. Sub 如何合并多个csv文件为一个文件()
   
2.     On Error Resume Next
   
3.     MyPath = ThisWorkbook.Path
   
4.     Kill MyPath & "\total.csv"
   
5.     On Error GoTo 0
   
6.     ChDrive Split(MyPath, ":")(0)
   
7.     ChDir MyPath
   
8.     Shell Environ$("comspec") & " /c ""Copy *.csv total.csv"
   
9. End Sub

复制代码

zhaogang1960

请测试附件
新建文件夹1.rar (19.8 KB, 下载次数: 58)

2014-6-4 15:52 上传

点击文件名下载附件

VBA万岁

zhaogang1960 发表于 2014-6-4 15:52
请测试附件

学习了，感谢赵老师及楼主！

yuk_yu

zhaogang1960 发表于 2014-6-4 15:52
请测试附件

版主太牛了，学习的榜样....

aman1516

需要用到，学习一下

hansome221

zhaogang1960 发表于 2014-6-4 15:46
Dos命令：

赵老师，请问，CVS文件在不同路径（路径为变量），如何用dos命令实现