如何用vbs来合并多个excel文件

你是要全部复制到一个文档里面吗 粘贴为数值就可以了

在存放文件的目录之外打开一个空的Excel文档
运行下面分宏：（注意文件目录）e79fa5e98193e58685e5aeb9338
Sub cfl()
Dim fs, f, f1, fc, s, x
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("e:\test\") '存放文件的目录
Set fc = f.Files
For Each f1 In fc
If Right(f1.Name, 3) = "xls" Then
x = x + 1
Workbooks.Open (f1.Path)
For i = 1 To 255
Workbooks(1).Sheets(1).Cells(x, i).Value = _
Workbooks(2).Sheets(1).Cells(1, i).Value
Next
Workbooks(2).Close savechanges:=False
End If
Next
End Sub

1、打开电脑，然后打开文百件夹将这些excel文件都复制到一个文件夹下。注意，文件夹下不要有其他的excel文件；

度查看大图" class="ikqb_img_alink">

2、切知换到【数据】菜单，点击【新建查询】，选择【从文件】下的【从文件夹】；

3、接下来输入刚刚的文件夹路径，找到道并点击【确定】选项；

4、然后会出现一个新的页面，接着找到并点击【合并】下的【合并和加载回】选项；

5、选择要合并的工作表名称，最后点击【确定】选项；

6、这时就完成了多个excel文件的合并。从答筛选菜单中可以看到本例中的4个文件都这一份表格中。

sub 多文件写入
Dim XLS
Xls = Dir(excel文件夹路径zd & "\*.xls")　 '指定要遍历excel文件的路径及回文件类型
Do While Xls <> ""
Set Xls = Workbooks.Open(excel文件夹路径 & "\" & Xls) 　'打开excel文件
Sheets(1).Select
Sheets(1).Cells(1, 1).Value = "AAAA" '在A1单元格输入AAAA　（行序号答，列序号）
Xls.Close True
Xls = Dir '下一个excel文件
Loop
Set Xls = Nothing '释放变量内存
end sub