• 新记

    • 急求excel导入宏定义功能，将多个excel文件里的数据导入到一个excel文件中去。

    我有10几个excel文件，里面都只有sheet1里有数据；想在一个新建excel里曾加一个宏定义导入功能，点击导入按钮，选中的excel文件，自动将数据导入到新建的excel文件中去，数据自动分别写到sheet2、sheet3、sheet4、sheet5……
    然后将导入数据表的张数统计写到sheet1某个单元格里。
    谢谢哥们了！ 447532243@qq.com
    谢谢大侠们，我先看看哪个好使再给分。能不能给我邮箱我，不懂的给你邮箱联系。

    举报该文章
    相关建议   推荐于2016-11-05
    Sub 小晕()
    '请先建立一个新的表（带宏的），工作簿名字叫 汇总
    '添加工作表从Sheet1到Sheet10
    '然后在这个目录D:\新建文件夹\1.xlsx 建立新表（文件拓展名请注意，要一样的）
    '一共建立2个就 分别是 1.xlsx 2.xlsx ... 10.xlsx就可以。
    '第一个表
    Workbooks.Open ("D:\新建文件夹\1.xlsx")
    Windows("1.xlsx").Activate
    Sheets("Sheet1").Select
    Cells.Select
    Selection.Copy
    Windows("汇总.xlsm").Activate
    Sheets("Sheet1").Select
    Cells.Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Windows("1.xlsx").Activate
    ActiveWindow.Close
    '第二个表
    Workbooks.Open ("D:\新建文件夹\2.xlsx")
    Windows("2.xlsx").Activate
    Sheets("Sheet1").Select
    Cells.Select
    Selection.Copy
    Windows("汇总.xlsm").Activate
    Sheets("Sheet2").Select
    Cells.Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Windows("2.xlsx").Activate
    ActiveWindow.Close
    '第三个表
    Workbooks.Open ("D:\新建文件夹\3.xlsx")
    Windows("3.xlsx").Activate
    Sheets("Sheet1").Select
    Cells.Select
    Selection.Copy
    Windows("汇总.xlsm").Activate
    Sheets("Sheet3").Select
    Cells.Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Windows("3.xlsx").Activate
    ActiveWindow.Close
    '第四个表
    Workbooks.Open ("D:\新建文件夹\4.xlsx")
    Windows("4.xlsx").Activate
    Sheets("Sheet1").Select
    Cells.Select
    Selection.Copy
    Windows("汇总.xlsm").Activate
    Sheets("Sheet4").Select
    Cells.Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Windows("4.xlsx").Activate
    ActiveWindow.Close
    '第五个表
    Workbooks.Open ("D:\新建文件夹\5.xlsx")
    Windows("5.xlsx").Activate
    Sheets("Sheet1").Select
    Cells.Select
    Selection.Copy
    Windows("汇总.xlsm").Activate
    Sheets("Sheet5").Select
    Cells.Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Windows("5.xlsx").Activate
    ActiveWindow.Close
    '第六个表
    Workbooks.Open ("D:\新建文件夹\6.xlsx")
    Windows("6.xlsx").Activate
    Sheets("Sheet1").Select
    Cells.Select
    Selection.Copy
    Windows("汇总.xlsm").Activate
    Sheets("Sheet6").Select
    Cells.Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Windows("6.xlsx").Activate
    ActiveWindow.Close
    '第七个表
    Workbooks.Open ("D:\新建文件夹\7.xlsx")
    Windows("7.xlsx").Activate
    Sheets("Sheet1").Select
    Cells.Select
    Selection.Copy
    Windows("汇总.xlsm").Activate
    Sheets("Sheet7").Select
    Cells.Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Windows("7.xlsx").Activate
    ActiveWindow.Close
    '第八个表
    Workbooks.Open ("D:\新建文件夹\8.xlsx")
    Windows("8.xlsx").Activate
    Sheets("Sheet1").Select
    Cells.Select
    Selection.Copy
    Windows("汇总.xlsm").Activate
    Sheets("Sheet8").Select
    Cells.Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Windows("8.xlsx").Activate
    ActiveWindow.Close
    '第九个表
    Workbooks.Open ("D:\新建文件夹\9.xlsx")
    Windows("9.xlsx").Activate
    Sheets("Sheet1").Select
    Cells.Select
    Selection.Copy
    Windows("汇总.xlsm").Activate
    Sheets("Sheet9").Select
    Cells.Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Windows("9.xlsx").Activate
    ActiveWindow.Close
    '第十个表
    Workbooks.Open ("D:\新建文件夹\10.xlsx")
    Windows("10.xlsx").Activate
    Sheets("Sheet1").Select
    Cells.Select
    Selection.Copy
    Windows("汇总.xlsm").Activate
    Sheets("Sheet10").Select
    Cells.Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Windows("10.xlsx").Activate
    ActiveWindow.Close

    '文件名变量还在看，这个方法但也能解决你的问题，累赘了点
    End Sub
    有问题追问
    温馨提示：内容为网友见解，仅供参考
    其他看法
    第1个回答  2012-01-08
    新建一个汇总表，将汇总表与其他excel文件放在同一文件夹中，在汇总表中写宏：
    Sub 汇总()
    a = Dir(ThisWorkbook.Path & "\*.xls")
    On Error Resume Next
    For i = 1 To 100
    If a <> ThisWorkbook.Name Then
    Workbooks.Open Filename:=ThisWorkbook.Path & "\" & a
    Workbooks(a).Sheets(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    Workbooks(a).Close savechanges:=False
    End If
    a = Dir
    Next i
    End Sub追问

    如果我的每个excel文件（格式是一样的，数据不一样）里都有4、5张表，把所有的文件里对应的表合并起来，文件1里的sheet1和文件2里的sheet1……合并到总表的sheet1里；文件1里的sheet2和文件2里的sheet2……合并到总表的sheet2里…………
    怎么弄？
    3q

    追答

    liumlin@163.com

    第2个回答  2012-01-09
    如果你是练习的，用录制宏一个一个的完成一次，放到导入按下做了VB过程或函数。
    下次一运行宏。OK了
    第3个回答  2012-01-07
    有改名字的时间，一个一个复制也复制完啦！

    急求excel导入宏定义功能,将多个excel文件里的数据导入到一个excel文 ...
    '请先建立一个新的表（带宏的），工作簿名字叫 汇总 '添加工作表从Sheet1到Sheet10 '然后在这个目录D:\\新建文件夹\\1.xlsx 建立新表（文件拓展名请注意，要一样的）'一共建立2个就 分别是 1.xlsx 2.xlsx ... 10.xlsx就可以。'第一个表 Workbooks.Open ("D:\\新建文件夹\\1.xlsx")Win...

    怎么把多个Excel表格合并为一个Excel表格里的多个sheet表?求大神给...
    1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet1 2、选择查看代码（PS：excel有着一项，WPS没有）3、将下列代码复制到文本框中：Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbName Dim Wb As workbook, WbN As String Dim G As Long D...

    计算机中出现的宏设置是什么意思?
    Lisp 语法的去部主要扩展，比如面向对象的CLOS 系统，可以由宏来定义。 宏的典型应用 加速日常编辑和格式设置 组合多个命令 使对话框中的选项更易于访问 使一系列复杂的任务自动执行 宏编程介绍 在用一种不熟悉的宏语言进行宏编程时，可以这样做，首先记录下用户想要宏完成什么，然后打开宏文件并尝试理解...

    Excel 怎么样批量修改多个EXCEL文件
    excel批量更改表格数据，excel批量更改文字，excel更改多表数据

    excel怎么设置宏按钮(excel如何设置宏按钮)
    1打开excel文件，在上方工具栏点击【文件】，点击左侧【选项】会弹出【Excel选项】窗口，点击【自定义功能区】，在右侧主选项卡中勾选【开发工具】，点击【确定】后在工具栏选择【开发工具】，在【代码】选项卡中点击【宏安全性】，选择【启用VBA宏】后【确定】，点击【代码】选项卡中的【录制宏】，在...

    宏怎样设置_电脑宏设置怎么设置
    4、单击“信任中心”页面上的“信任设置的功能选项”。5、然后我们可以看到excel2007的宏设置选项。6、现在选中“启用所有宏”,最后单击“确定”的功能按钮。电脑宏设置在哪里设置标宏,其实就是脚本,类似按键精灵,不过大多数游戏认为按键精灵非法,而宏不非法 于是我们可以设置一个(几个)宏来减轻我们的负担。对于...

    excel宏定义代码
    1.4 执行宏 当执行一个宏时,EXCEL按照宏语句执行的情况就像VBA代码在对EXCEL进行“遥控”。但VBA的“遥控”不仅能使操作变得简便,还能使你获得一些使用EXCEL标准命令所无法实现的功能。而且,一旦熟悉了EXCEL的“遥控”,你都会奇怪自己在没有这些“遥控”的情况下,到底是怎么熬过来的。要执行刚才录制的宏,可以按以下...

    如何批量编辑多个excel文件
    首先打开excel表格，你可能要处理一堆表格，如下:点击其中一张工作表，在视图页面，找到“宏”的命令符。点击【宏】，然后点击【录制宏】在【录制宏】界面，你可以为新建的宏命名，同时也可以为其设置快捷键，注意不要与office原有的快捷键冲突。小编一般命名为ctrl+n，然后点击确定。接下来，你所进行...

    启用宏的excel快捷键_excel宏怎么启用快捷键
    准备工具：电脑，office以office2013为例1.随意打开一个EXCEL表格，在表格页面中找到文件选项，点击该选项进入到文件页面中。2.在新弹出的页面找到选项按钮，点击选择该选项进入到选项页面中。3.在新弹出的页面找到信任中心选项，点击选择该选项进入到信任中心页面中。4.在新弹出的页面找到宏设置选项，点击...

    如何批量修改excel文件类型如何批量修改excel文件类型格式
    1打开Excel,打开文件，点多个表格，点修改等这些操作进行完之后，点击【宏】，停止录制。2接下来你就可以在另一张表格中按照宏定义来修改格式了。点击【宏】，查看 3在查看宏界面，找到你定义宏名称，然后点击【执行】就可以了，你会发现原来的格式都统一发生了变化。如果你定义了快捷键的话，也可以...

    相似回答
    大家正在搜
    相关问题
    如何将多个excel文件中数据自动导入另外一个excel文档...
    如何将多个excel文件中数据自动导入另外一个excel文档...
    怎样把很多EXCEL文件中的数据导入到一个EXCEL文件中
    如何把多个EXCEL文件汇总到一个EXCEL中？
    用VBA如何将多个excel文件中数据自动导入另外一个exc...
    如何把多个excel文件导入到一个excel中
    如何将多个excel文件作为不同sheet都导入一个exce...
    如何多个excel数据文件批量导入到另一个excel文件表中...