『壹』 excel自动提取文件夹中的数据
Set THISSHEET = ActiveSheetMYPATH = "E:\下单(2)\A11\D11\送货单"XLSFILE = Dir(MYPATH & "*.XLSX") '你的excel文件如果是xls后缀，改成*.xlsWhile XLSFILE <> ""Application.ScreenUpdating = FalseApplication.ShowWindowsInTaskbar = FalseWith Workbooks.Open(MYPATH & XLSFILE) THISSHEET.Range("A" & (THISSHEET.[A1048576].End(xlUp).Row + 1)) = XLSFILE ‘如果不需要在导入数据前面显示来自那个excel文件的话，这行可以删除 .Sheets("SHEET2").[A1:J9].Copy THISSHEET.Range("A" & (THISSHEET.[A1048576].End(xlUp).Row + 1)) .CloseEnd WithApplication.ShowWindowsInTaskbar = TrueApplication.ScreenUpdating = TrueXLSFILE = DirWend
『贰』 如何将其他WordExcel文件中的内容插入到文档中，还会自动更新
如果你在工作中，经常需要在Word文档中添加其他Word文档、Excel表格中的内容 并且你还有一个善变（坑爹）的领导，经常需要你修改已经添加好的内容， 那么今天的技巧你一定要学。很多人知道，可以在Word软件中，【插入】选项卡下通过【对象】功能将其他Word文档的内容插入到当前的文档中。但是以这种方式插入的文档有以下缺陷： （1）插入文件中的文字：无法实现文档同步更新； （2）以对象方式插入，并且链接到文档：链接到原文档后，修改原文件，当前文件会更新。但是插入的文档内容带有方框，双击可调出原文件编辑，插入的文档内容无法与当前文档内容较好地融合。 如果想要插入其他Word文档的内容，并且让文字看起来就像是直接在文档中编辑的一样，与文档中其他内容完美融合，且又能自动更新，就需要用一个“黑科技”——通过大纲视图插入文档内容。 如下图所示，现在需要将这份“餐补制度.docx”文档中的内容添加到“员工福利制作.docx”文档中。第1步：打开“员工福利制作.docx”文档，进入【大纲】视图。第2步：将光标定位到需要插入文档内容的地方。然后在【大纲显示】选项卡下单击【显示文档】，此时会出现【插入】按钮，单击这个按钮。第3步：选择要插入的文档，单击【打开】按钮。第4步：此时就成功将“餐补制度.docx”文档中的内容添加进来了。虽然看起有虚线方框，但是单击【关闭大纲视图】按钮，就会正常显示了。如下图所示，回到普通视图状态下，“餐补制度.docx”文档中的内容与“员工福利制度.docx”文档中的内容无缝融合，完全看不出是其他文档中的插入的。 更神奇的是，如果在“餐补制度.docx”文档中修改内容，不需要做任何操作，“员工福利制度.docx”文档中的添加的内容也会自动更新。 有时候也会需要将其他Excel文件中的表格数据插到Word文档中，并且需要实现更新表格数据时，Word文档中插入的数据也能更新。方法如下： 第1步：如下图所示，打开表格文件，复制需要插入的数据区域。第2步：在Word文档中，将光标放到需要插入表格数据的地方，单击【粘贴】菜单中的【链接与保留源格式】的粘贴方式。就可以将表格数据以链接的方式粘贴到文档中了。不过以链接的方式粘贴到文档中的表格数据，不能实现自动更新，需要手动更新。如下图所示，选中表格中的数据，右击鼠标，选择【更新链接】选项，就可以更新表格数据了。
『叁』 将一个文件夹里所有excel导入一个excel里
亲，将要汇总的文件放到一个单独专门的文件夹中。在此文件夹中新建或打开一个Excel文件作为汇总文件，找一个空白Sheet或者新建一个Sheet存放汇总数据。
然后按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。
Subhz()Dimbt,r,c,n,firstAsLongbt=1'这里设置标题行有几行Dimf,ffAsObjectSetfso=CreateObject("Scripting.FileSystemObject")Setff=fso.getfolder(ThisWorkbook.Path&"")ForEachfInff.FilesIff.Name<>ThisWorkbook.NameAndLeft(f.Name,2)<>"~$"ThenWorkbooks.Openf.NameWithWorkbooks(f.Name).ActiveSheetIffirst=0Thenc=.Cells(1,Columns.Count).End(xlToLeft).Column.Range("A1").Resize(bt,c).CopyThisWorkbook.ActiveSheet.Range("A1")n=bt+1:first=1EndIfr=.Cells(Rows.Count,"A").End(xlUp).Row.Range("A"&bt+1).Resize(r-bt,c).CopyThisWorkbook.ActiveSheet.Range("A"&n)n=n+r-btEndWithWorkbooks(f.Name).CloseFalseEndIfNextfSetfso=NothingEndSub
『肆』 excel怎么超链接到文件夹里最新的文件
excel的链接功能，目前还只能链接到固定文件，不能根据文件属性链接到不定文件。
『伍』 excel中，如何自动调用一个文件夹中新加入的文件夹
'下面的代码假设你新加入的文件夹存放在"c:\000\"文件夹下，Excel中记录这些文件夹的单元格从A1、A2 一直往下：Sub foldname()Dim sTxt$, nR%nR = 0sTxt = Dir("c:\000\", vbDirectory)Do While sTxt <> "" nR = nR + 1 Cells(nR, 1) = sTxt ActiveSheet.Hyperlinks.Add Anchor:=Cells(nR, 1), Address:="c:\000\" & sTxt sTxt = DirLoopEnd Sub
『陆』 如何将多个excel文件中数据自动导入另外一个excel文档
如何将多个excel文件中数据自动导入另外一个excel文档的方法。
如下参考：
1．计算内机打开要移动的容工作簿，如下所示。
『柒』 excel 批量导入txt文件
用VBA代码解决（前提是你把所有的TXT放到同一个文件夹内，且无其他文件），时间关系，代码我就不写了！仅给你个思路供参考：一、用浏览文件夹控件选择指定目录二、遍历指定目录下的所有文件，每遍历一个TXT文件——1、提取不带后缀的文件名2、利用循环语句找到首行从B列开始的第一个空单元格，退出循环3、把不带后缀的文件名写入找到的首行第一个空单元格内4、打开当前的TXT文件并利用循环语句逐行读入，然后执行：1）查找当前行从右向左第一个“,”（逗号）的位置。注意逗号的中英文状态。2）截取当前行最后一个逗号后面的内容，并转换为数值格式。3）把数值填写到对应列的对应行内读取下一个TXT文件。
『捌』 如何从多个外部excel文件中导入数据到一个新的excel工作簿中
手动打开，筛选，复制，粘贴。
VBA:
2.1 使用workbooks.open来打开一个新的excel工作簿。
2.2 使用dir遍历文件夹中的excel文档。
2.3 使用do while…Loop或for next语句来对dir遍历到的文件进行逐一打开。
2.4 使用range.，selection.paste对打开的文件进行操作（即题干中所谓的导入）。
2.5 完成后执行workbooks.close来关闭文件并自动执行下一文件。
『玖』 如何将多个excel文件作为不同sheet都导入一个excel文件中
利用复制工作表就可以完成。例：有3个excel文件，文件名分别为：1.xlsx、2.xlsx、3.xlsx，如图所示：要将这3个文件中对应的工作表全部合成到1个新的excel文件中，可以这样做：1、新建excel文件，并保存（假设保存文件名为：合并后数据.xlsx）2、在此新文件（合并后数据.xlsx）打开的情况下，分别打开要合并的文件（1.xlsx、2.xlsx、3.xlsx）。3、选择第1个文件（1.xlsx”），在其要合并导入的工作表标签上右击选择“移动或复制”；4、在“移动或复制工作表”对话框的工作簿下拉列表中选择“合并后数据.xlsx”，勾选“建立副本”复选框，点击“确定”。5、完成后即可将“1.xlsx”中的“数据1”工作表复制到"合并后的数据.xlsx”工作薄文件中，如图所示：6、按上述操作分别将其余的工作簿“2.xlsx”和“3.xlsx”中对应的工作表复制至新工作簿“合并后数据.xlsx”即可。
『拾』 同一个文件夹下,不同文件名的excel表批量导入在一张新表中
同目录下新建一个excel文件，输入如下vba代码，运行。 Sub 合并工作簿() Dim f As String, wb As Workbook, th As Workbook, h%, l%, m% ', hh%, lh% Dim wbsh As Worksheet, thsh As Worksheet Set th = ThisWorkbook Set thsh = th.Sheets(1) m = 1 Application.ScreenUpdating = False '关闭刷屏 Application.DisplayAlerts = False '关闭警告和消息 f = Dir(th.Path & "\*.xls") '获取文件夹地址 许同一个版本：xls Do While f > " " If f <> th.Name Then '判断文件是否是本工作簿 Set wb = Workbooks.Open(th.Path & "\" & f) Set wbsh = wb.Sheets(1) '合并第一个工作表数据 h = wbsh.Cells.SpecialCells(xlCellTypeLastCell).Row '源数据最大行号 l = wbsh.Cells.SpecialCells(xlCellTypeLastCell).Column '原数据最大列号 wbsh.Range(wbsh.Cells(1, 1), wbsh.Cells(h, l)).Copy _ Destination:=thsh.Range(thsh.Cells(m, 1), thsh.Cells(m + h – 1, l)) m = m + h wb.Close End If f = Dir Loop Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
