A. 如何用vba合并多个excel文件到一个sheet里
新建一个工作薄，将所有EXCEL表的文件名填到A列中，复制下面VBA代码到工作薄中，保存为excel.xls后执行Subxls()Application.ScreenUpdating=False'Arr数组由所有EXCEL文件名组成arr=[A1:A10]Fori=1ToUBound(arr)Workbooks.Open"文件夹路径\"&arr(i,1)Workbooks(arr(i)(1)).ActivateForj=1ToActiveWorkbook.Sheets.CountSheets(j).CopyAfter:=Workbooks("excel.xls").Sheets(Workbooks("excel.xls").Sheets.Count)NextWorkbooks(arr(i,1)).CloseFalseNextEndSub
B. 一个VBA程序怎么处理多个excel 表格
EXCEL VBA里面需要顺序执行多个宏的时候，可以另外建立一个宏，按顺序依次调用这些宏即可，例如下面的test宏依次调用宏1、宏2、宏3：Sub test() Call 宏1 Call 宏2 Call 宏3End Sub
C. 求一个VBA，一个文件夹中多个EXCEL工作簿合并成一个工作表
1、将需要合并的EXCEL文件与目的EXCEL文件放在一个文件夹下。
D. 用VBA如何将多个excel文件中数据自动导入另外一个excel文档
vba倒是可以，不过没必要了，下面有两个现成的工具1.Excel汇总专家 4.0中文特别版1)汇总格式相同的工作表将多个行、列格式相同的工作表的内容汇总到单个工作表对应单元格中。参加汇总的工作表可以在一个Excel文件中，也可以在不同Excel文件中。您不需要编写任何Excel公式就能实现Excel表格数据的快速高效汇总，尤其适合参加合并的Excel文件数目不定，不便使用公式的情况。2)汇总多个Excel文件的工作表有时你需要处理的工作表在多个不同的Excel文件中，不方便处理，而且Excel文件较多，逐一手工拷贝费时费力。本项功能可以将多个Excel文件的工作表快速拷贝到一个Excel文件中，如果有同名的工作表，自动重命名。这样就便于处理了.3)汇总工作表行数据本项功能可以把多个Excel文件内工作表的行数据复制到指定的单一工作表中。4)分类汇总工作表行数据本项功能和“汇总工作表行数据”类似的是，同样可以把多个Excel文件内工作表的行数据复制到指定的单一工作表中。所不同的是，可以指定一个关键列，所有这一列的值相同的行，都会被汇总成一行。此项功能可以在不使用公式的情况下实现Excel表格数据快速高效汇总，尤其适合参加合并的Excel文件数目不定且各工作表行数不等，排列顺序不同，不能使用公式的情况。5)合并工作表的列数据本项功能可以根据关键列合并两个工作表的列，并且不要求两个工作表的行按照顺序一一对应，程序可以根据关键列的值自动匹配对应行，然后把两个工作表中的行拼接成一行。6)提取两工作表共有的行本项功能可以将2个Excel工作表中具有相同关键列值的数据行输出到目的Excel文件中。这两个工作表可以在同一个Excel文件中，也可以在不同Excel文件中。7)除去工作表1中与工作表2共有的行本项功能将工作表1除去与工作表2具有相同关键列值的数据行。下载地址：2.合并Excel(ConExcel) 1.0，共享版，不是破解的
E. VBA脚本如何在多个Excel文件间共享
将代码拷贝到一个新工作簿，另存为加载宏.xla或者.xlam，再双击这个文件即可。
F. VBA 如何关闭指定的多个excel文件，如果指定的多个文件中有几个并未打开，如何跳过未打开的文件。
您可以参考下面的代码，看看能否帮到你Sub closeObject()Dim xlExcel As Object, wb1 As Workbook, wb2 As Workbook, wb3 As Workbook, wb4 As Workbook, wb5 As WorkbookSet xlExcel = CreateObject("excel.application")Set wb1 = xlExcel.workboos("1#站每日库存表.xlsm")Set wb2 = xlExcel.workboos("4#站每日库存表.xlsm")Set wb3 = xlExcel.workboos("16#站每日库存表.xlsm")Set wb4 = xlExcel.workboos("27#站每日库存表.xlsm")Set wb5 = xlExcel.workboos("76#站每日库存表.xlsm")If wb1 Is Nothing Then MsgBox "1#站每日库存表 不存在", vbOKOnly, "===> Warning" Else wb1.Close FalseEnd IfIf wb2 Is Nothing Then MsgBox "4#站每日库存表.x不存在", vbOKOnly, "===> Warning" Else wb2.Close FalseEnd IfIf wb3 Is Nothing Then MsgBox "16#站每日库存表 不存在", vbOKOnly, "===> Warning" Else wb3.Close FalseEnd IfIf wb4 Is Nothing Then MsgBox "27#站每日库存表 不存在", vbOKOnly, "===> Warning" Else wb4.Close FalseEnd IfIf wb5 Is Nothing Then MsgBox "76#站每日库存表 不存在", vbOKOnly, "===> Warning" Else wb5.Close FalseEnd IfEnd Sub
G. 我在VBA程序里实现对同一个文件夹下的多个excel文件只运行一次宏，如何自动实现。
Suball()Fori=1To5'把这个数字改成你的文件总数Setexcel_Book=Workbooks.Open("E:excel"&i&".xlsx")'地址写作"E:xxxxxx"保留英文双引号Setexcel_Sheet=excel_Book.Worksheets("Sheet1")'这里调用你的subCall文件NextSetexcel_Sheet=NothingSetexcel_Book=NothingEndSub
H. excel vba 汇总多个文件数据
Sub aa()'首先要引用 microsoft activex data objects… Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset For I = 1 To 3 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=d:\" & I & "月.xls;" & _ "Extended Properties=""Excel 8.0;""" rs.Open "Select * from [" & I & "月$]", cnn, adOpenKeyset, adLockOptimistic If Worksheets("汇总").Range("a1") = "" Then Worksheets("汇总").Range("a1") = rs.Fields(0).Name Worksheets("汇总").Range("b1") = rs.Fields(1).Name End If n = Worksheets("汇总").Range("a65536").End(xlUp).Row Worksheets("汇总").Range("a" & n + 1).CopyFromRecordset rs rs.Close cnn.Close Next I End Sub大至就是这样了。
I. 用vba合并excel多个文件
加上这句可以删除活动工作表第一列的空白单元格所在行ActiveSheet.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete加上这句可以删除活动工作表第一列的文本单元格所在行ActiveSheet.Columns(1).SpecialCells(xlCellTypeConstants,xlTextValues).EntireRow.Delete
J. VBA修改多个Excel的内容
用VBA修改多个Excel指定的内容，需要先循环工作簿，再循环工作表， 然后再循环单元格。 关键是，看你的工作表是不是指定的工作表，你的单元格区域是否固定，如果不固定就得循环，如果固定就先指定。以下代码你可以看一下行不行。可以使用dir函数来实现工作簿的循环。其他循环则看具体情况。另外，多个工作簿是在指定目录还是在当前目录，这个也很重要。是否是打开状态也很重要。代码假定在代码工作簿所在的目录，全部关闭的情况下。Sub 修改内容()pth = ThisWorkbook.Pathwbn = Dir(pth & "\*.xls*")Do While wbn <> "" If wbn <> ThisWorkbook.Name Then Set wb = Workbooks.Open(pth & "\" & wbn, , False) For Each st In wb.Worksheets For Each rg In st.UsedRange If rg Like "*K1+500*" Then rg = Replace(rg.Value, "K1+500", "K2+350") End If Next Next wb.Close True End If wbn = DirLoopEnd Sub可以试一下。如果不行，要看具体的表才能确定你需要的代码怎么写。
未经允许不得转载：山九号 » vba多个excel文件|excel vba 汇总多个文件数据
