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

xuanexcel

版主，神人，还这么耐心，{:soso_e130:}

云过境

zhaogang1960 发表于 2011-10-23 15:29
请测试
Sub 如何合并多个csv文件为一个文件()
    Dim cnn As Object, SQL$, MyPath$, MyFile$, m&

zhaogang1960老师，我运行的时候这个语句"cnn.Execute SQL"报错了，提示是——运行时间错误'-2147277900(80040e14)': Syntax error in FROM clause，  请问如何解决？
多谢多谢！!

云过境

新建文件夹.zip (913.56 KB, 下载次数: 10)

2013-11-14 22:25 上传

点击文件名下载附件

张老师，这是几十个需要合并的csv文件中的两个，现在需要通过vba来实现这些文件在同一个xls的同一个sheet中的合并。。
多谢大师指点啊！！

云过境

云过境 发表于 2013-11-13 21:44
zhaogang1960老师，我运行的时候这个语句"cnn.Execute SQL"报错了，提示是——运行时间错误'-2147277900( ...

赵老师，已经上传附加了。。。

云过境

zhaogang1960 发表于 2011-10-23 18:42
MyPath = ThisWorkbook.Path
    ChDrive Split(MyPath, ":")(0)
    ChDir MyPath

已经上传附件，多谢老师！

zhaogang1960

云过境 发表于 2013-11-14 22:29
张老师，这是几十个需要合并的csv文件中的两个，现在需要通过vba来实现这些文件在同一个xls的同一个sheet ...

请测试：

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
   
10. 
    

复制代码

zhaogang1960

请看附件
新建文件夹.rar (810.83 KB, 下载次数: 79)

2013-11-15 00:49 上传

点击文件名下载附件

云过境

zhaogang1960 发表于 2013-11-15 00:49
请看附件

赵老师果然名不虚传！

现在我已经在一个xlsm文件中编写好了一系列用于数据处理的vba程序，现在想通过一个vba程序实现:1首先对特定csv文件的选择[通过选择窗口]，2其次将所选择的csv文件全部合成到之前已经创建好的xlsm文件中，接着再对其进行数据整理。。。 目标csv文件还是如之前上传得附件一样。
如何实现这一目标？

多谢赵老师！！

zhaogang1960

云过境 发表于 2013-11-15 16:35
赵老师果然名不虚传！

现在我已经在一个xlsm文件中编写好了一系列用于数据处理的vba程序，现在想通过一 ...

对于不规则文本文件的合并，Dos命令最为合适，你说的方法可能不好实现，或速度很慢
可先复制你要合并的文件到一个新文件夹中，合并后再删除该文件夹

云过境

zhaogang1960 发表于 2013-11-15 16:43
对于不规则文本文件的合并，Dos命令最为合适，你说的方法可能不好实现，或速度很慢
可先复制你要合并的文 ...

赵老师帮帮忙，能不能通过程序实现我的这种设想，万分着急在线等！
感激不尽！！