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