excel自动导入文件夹中新

『壹』 excel自动提取文件夹中的数据

Set THISSHEET = ActiveSheet
MYPATH = "E:\下单(2)\A11\D11\送货单"
XLSFILE = Dir(MYPATH & "*.XLSX") '你的excel文件如果是xls后缀，改成*.xls
While XLSFILE <> ""
Application.ScreenUpdating = False
Application.ShowWindowsInTaskbar = False
With 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))
.Close
End With
Application.ShowWindowsInTaskbar = True
Application.ScreenUpdating = True
XLSFILE = Dir
Wend

『贰』 如何将其他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,firstAsLong
bt=1'这里设置标题行有几行
Dimf,ffAsObject
Setfso=CreateObject("Scripting.FileSystemObject")
Setff=fso.getfolder(ThisWorkbook.Path&"")
ForEachfInff.Files
Iff.Name<>ThisWorkbook.NameAndLeft(f.Name,2)<>"~$"Then
Workbooks.Openf.Name
WithWorkbooks(f.Name).ActiveSheet
Iffirst=0Then
c=.Cells(1,Columns.Count).End(xlToLeft).Column
.Range("A1").Resize(bt,c).CopyThisWorkbook.ActiveSheet.Range("A1")
n=bt+1:first=1
EndIf
r=.Cells(Rows.Count,"A").End(xlUp).Row
.Range("A"&bt+1).Resize(r-bt,c).CopyThisWorkbook.ActiveSheet.Range("A"&n)
n=n+r-bt
EndWith
Workbooks(f.Name).CloseFalse
EndIf
Nextf
Setfso=Nothing
EndSub

『肆』 excel怎么超链接到文件夹里最新的文件

excel的链接功能，目前还只能链接到固定文件，不能根据文件属性链接到不定文件。

『伍』 excel中，如何自动调用一个文件夹中新加入的文件夹

'下面的代码假设你新加入的文件夹存放在"c:\000\"文件夹下，Excel中记录这些文件夹的单元格从A1、A2 一直往下：
Sub foldname()
Dim sTxt$, nR%
nR = 0
sTxt = 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 = Dir
Loop
End Sub

『陆』 如何将多个excel文件中数据自动导入另外一个excel文档

如何将多个excel文件中数据自动导入另外一个excel文档的方法。

如下参考：

1．计算内机打开要移动的容工作簿，如下所示。

『柒』 excel 批量导入txt文件

用VBA代码解决（前提是你把所有的TXT放到同一个文件夹内，且无其他文件），
时间关系，代码我就不写了！仅给你个思路供参考：
一、用浏览文件夹控件选择指定目录
二、遍历指定目录下的所有文件，每遍历一个TXT文件——
1、提取不带后缀的文件名
2、利用循环语句找到首行从B列开始的第一个空单元格，退出循环
3、把不带后缀的文件名写入找到的首行第一个空单元格内
4、打开当前的TXT文件并利用循环语句逐行读入，然后执行：
1）查找当前行从右向左第一个“,”（逗号）的位置。注意逗号的中英文状态。
2）截取当前行最后一个逗号后面的内容，并转换为数值格式。
3）把数值填写到对应列的对应行内
读取下一个TXT文件。

『捌』 如何从多个外部excel文件中导入数据到一个新的excel工作簿中

1. 手动打开，筛选，复制，粘贴。

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