excel2007如何獲取文件夾數據

A. excel2007獲取本地文件夾目錄的所有文件的路徑，文件路徑的文件名匹配excel的欄目1的值

知道用vba的話，代碼如下，
Sub 獲取路徑()
Dim fso As Object
Dim 文件夾 As Folder
Dim 文件 As File
Set fso = CreateObject("scripting.filesystemobject")
Set 文件夾 = fso.GetFolder("這里是你的文件夾路徑") '注意英文半形，標點符號
For Each 文件 In 文件夾
For i = 2 To 文件夾.Files.Count + 1
ThisWorkbook.worksheets("sheet4").Range("e" & i) = 文件.Path
End Sub

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

C. 請問excel大神，如何批量獲取指定路徑下其他excel文件中數據

如果只有兩三個文件，可以使用公式實現：打開三個文件，在【總.xls】裡面的需要的單元格輸入等號=，然後點擊別的工作簿、工作表、單元格，最後回車即可。

如果文件數量很多，或者需要獲取數據的范圍很多，或者需要獲取不確定的數據，那麼就必須使用VBA編程，例如下面的代碼：

Option Explicit

Sub 宏1()

Dim st As Worksheet

Dim fn, n

Set st = ActiveSheet

For Each fn In Array("a.xls", "b.xls")

n = st.UsedRange.Rows.Count + 1

With Workbooks.Open(fn)

.Sheets(1).UsedRange.Copy st.Cells(n, 1)

.Close False

End With

Next fn

End Sub

D. 批量獲取文件夾以及子文件夾下文件數量，輸出到Excel表格

如果你有點DOS命令的基礎，我下面說的你就能看懂了。

按WIN+R打開運行，輸入CMD，按回車，打開DOS窗口

進入你需要統計文件數量的那個目錄，如果你不會DOS命令的話，就把文件夾復制到一個盤符根目錄下，假設在D盤根目錄下，文件夾名"123"

在DOS中依次輸入

d:

按回車

cd 123

按回車

這時你就進入這個目錄了

dir /s > 1.txt

回車之後，會在這個目錄里形成一個1.txt的文件，文件中包含了你目錄及子目錄的文件信息

回到資源管理器里打開這個文件，裡面就是你想要的東西。

E. 如何使用excel提取文件夾中的所有文件路徑

使用excel提取文件夾中的所有文件名稱的方法主要有以下兩個：
1、在那個文件夾內新建一個.TXT文件（如wenjian.txt），用記事本單開輸入
dir> 1.txt
保存退出
將剛才的.TXT（wenjian.txt）更名為.bat文件（wenjian.bat）
雙擊wenjian.bat文件運行一次，在文件夾內多出一個1.txt文件
打開1.txt文件，將其中的內容粘貼到Excel中，數據——分列處理就可以得到你要的文件名列表了！
2、VBA（2003版）
在那個文件夾下新建Excel文件，打開新建的Excel文件，右擊工作表標簽（如Sheet1），查看代碼——在代碼編輯器中輸入以下代碼
Sub Test()
Dim i As Integer
Dim strPath As String
strPath = ThisWorkbook.Path
With Application.FileSearch
.LookIn = strPath
.SearchSubFolders = True
.Filename = "*.*"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Range("A" & i) = .FoundFiles(i)
Next i
End If
End With
End Sub
回到Excel表格中，工具——宏——宏——選擇Sheet1.Test——執行

方法一簡單的操作就可以，方法二需要對程序有一定的了解，方法二通用性比較強，需要的時候執行一下就可以，更快捷。

F. EXCEL 獲取文件夾中其他EXCEL表中的數據

可以VBA,新建一個EXCEL,在sheet2的A1單元格輸入要你存了N個文件的文件夾路徑:例如 h:明細表, 然後在sheet2建一個CommandButton按鈕,把以下代碼復制到按鈕裡面,點按鈕後,程序會先把路徑下文件夾的文件名寫到sheet2的的A列,再把這些所有的文件的C2-G200的內容匯總到sheet1中.

PrivateSubCommandButton1_Click()
OnErrorResumeNext
Application.ScreenUpdating=False
DimshAsWorksheet
Range("a2:b65536").ClearContents
mypath=Trim(Range("a1"))
IfRight(mypath,1)<>""Then
mypath=mypath&""
n=2
myfile=Dir(mypath&"*.*")
DoWhilemyfile<>""
Cells(n,2)=myfile
Cells(n,1)=mypath&myfile
myfile=Dir
n=n+1
Loop
Ifn=2ThenExitSub'如果N=2,則表示路徑下沒有提取到xls文件
Forj=2Ton-1
Workbooks.OpenTrim(Range("a"&j))
WithThisWorkbook.Worksheets("sheet1")
row1=.Range("b65536").End(xlUp).Row
Workbooks(Trim(Range("b"&j))).Worksheets("sheet1").Range("b2:g100").Copy.Range("b"&row1+1)
EndWith

Workbooks(Trim(Range("b"&j))).Close
Nextj
Application.ScreenUpdating=True
EndSub

G. 如何在EXCEL表格里批量提取數據到文件中

在EXCEL表格里，輸入VLOOKUP函數，打開函數參數面板，設置四個參數，操作方法如下：

操作設備：機械革命S3 Pro。

設備系統：Windows11。

操作軟體：Excel2108。

1、首先打開EXCEL表格，在表格二單元格內輸入函數名「＝VLOOKUP」，點擊菜單欄下方狀態欄上「FX」。