excel讀取文件夾

『壹』 打開EXCEL表格是提示不能讀取文件是什麼原因

1、如果打開Excel時，出現對話框提示「不能讀取文件」。

『貳』 Excel批量讀取文件夾下txt文本固定行

可以使用如下的代碼，復制如下代碼到VBA模塊中運行即可。
如下代碼代表4行4列，如果其餘行或列數則可更改相應的數字。

具體步驟如下：
打開office excel；
Alt+F11打開VBA編輯器；
復制如下代碼到模塊中；
F5運行該模塊；
按照提示進行如下步驟即可。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

Sub xxx()
Dim myFile As String
Dim myText As String
Dim myString As String
Dim i As Single
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
.AllowMultiSelect = False
myFile = .SelectedItems(1)
End With
myText = Dir(myFile & "\" & "*.txt")
Do While Len(myText) <> 0
Open myFile & "\" & myText For Input As #1
myText = Split(Split(VBA.StrConv(InputB(LOF(1), 1), vbUnicode), Chr(10))(3), vbTab)(3) '4行4列，如果其餘行或列數則更改相應的數字
Debug.Print myText
Close
myText = Dir
Loop

『叄』 Excel中VBA提取文件夾名稱的方法

文章介紹excel中使用vba提取文件名的操作步驟。根據需要自行修改vba提取文件名的路徑和存放單元格即可。
在excel中使用VBA編寫代碼，可以輕松的提取某個文件夾下面的所有文件名。
比如筆者在F盤下面建立了一個文件夾，文件夾的名稱是：office教程網，現在想將「office教程網」這個文件夾下面的所有文件名提取出來放在當前工作表的C列。
具體的vba提取文件名的操作如下：
1.按下ALT+F11，打開VBE編輯器。
2.執行「插入——模塊」，插入模塊1。

3.在右邊的代碼編輯窗口，復制下面的代碼，然後單擊「綠色箭頭」或者快捷鍵F5鍵，運行代碼。
Private Sub vba提取文件名()
Dim FileName As String
Dim i As Long
FileName = Dir("F:\office教程網\*.*")
i = 0
Range("C:C").ClearContents
Do While FileName > ""
i = i + 1
Cells(i, 3) = FileName
FileName = Dir
Loop
End Sub

4.關閉VBE窗口，回到工作表中，可以在C列看到F盤「office教程網」文件夾下面所有的文件名全部羅列在C列了。

關於上面的vba提取文件名的代碼，請在實際使用時，根據需要修改提取文件名的路徑（F:\office教程網\*.*），以及存放在C列的位置（Cells(i, 3)）。

『肆』 Excel怎樣批量提取文件夾和子文件夾所有文件

主要的方法有：
一、編程的方法，如Excel自帶的VBA，以及其他編程方法，如Python
二、Excel自帶的Power Qurey數據處理工具，Excel2010以上版本支持，但2010和2013要另外下載安裝，而2016以上版本安裝後就已默認安裝。
新建一個Excel工作簿，在工作簿的工作表中，數據菜單——獲取和轉換數據——獲取數據——來自文件——從文件夾，瀏覽到要提到文件名的文件夾，打開。就會把文件夾（包括子文件夾）下的所有文件導入到一個預覽對話框中，對話框中已可預覽到每個文件的文件名及各種文件屬性，如創建時間、完整路徑等。在此對話框中，選擇「轉換數據」（Excel版本不同，對話框稍有不同，但大同小異），進入到Power Qurey界面，在PQ界面工作界面中，刪除不需要的列，如果文件名不需要擴展名，就對文件名以小數點為分隔符拆分，再刪除擴展名列。反正你想怎麼整就怎麼整。整好後，從PQ的文件菜單中選擇關閉並上載到，上載到目錄工作表中。
以後文件夾內文件有增減變化，或文件名有修改，只要在工作表中右擊，選擇「刷新」即可得到更新。
Power Qurey的方法簡單快捷，基本上就點幾下滑鼠。不需要去這編程語言。按上面說的步驟一步步去操作，任何只要對Windows資源管理器有些了解，對Excel有基本了解的人都能完成。
三、DOS時代的方法，度友「二性北B」有介紹。

『伍』 excel讀取指定文件夾下的全部xls文件數據

測試通過的。試試
Sub 按鈕1_單擊()

Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%
Application.ScreenUpdating = False '凍結屏幕，以防屏幕抖動
myPath = ThisWorkbook.Path & "\分表\" '把文件路徑定義給變數

myFile = Dir(myPath & "*.xls") '依次找尋指定路徑中的*.xls文件
Do While myFile <> "" '當指定路徑中有文件時進行循環
If myFile <> ThisWorkbook.Name Then
Set AK = Workbooks.Open(myPath & myFile) '打開符合要求的文件
aRow = AK.Sheets(1).Range("a65536").End(xlUp).Row
tRow = ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Row + 1
AK.Sheets(1).Range("a3:k" & aRow).Copy ThisWorkbook.Sheets(1).Range("a" & tRow)
Workbooks(myFile).Close False '關閉源工作簿,並不作修改
End If
myFile = Dir '找尋下一個*.xls文件
Loop

Application.ScreenUpdating = True '凍結屏幕,此類語句一般成對使用
MsgBox "匯總完成，請查看！", 64, "提示"

End Sub

『陸』 Excel2010能從文件夾獲取數據嗎

可以的。Excel2010能從文件夾獲取數需要從文件夾樹中提取有格式的單個數據格並匯總。

『柒』 如何提取文件夾名稱到excel里

1、首先，打開需要提取文件名的文件夾，對著地址欄點擊復制文件夾地址。

『捌』 如何使用excel提取文件夾中的所有文件名稱

使用excel提取文件夾中的所有文件名稱的方法主要有以下兩個：x0dx0a1、在那個文件夾內新建一個.TXT文件（如wenjian.txt），用記事本單開輸入x0dx0adir> 1.txtx0dx0a保存退出x0dx0a將剛才的.TXT（wenjian.txt）更名為.bat文件（wenjian.bat）x0dx0a雙擊wenjian.bat文件運行一次，在文件夾內多出一個1.txt文件x0dx0a打開1.txt文件，將其中的內容粘貼到Excel中，數據——分列處理就可以得到你要的文件名列表了！x0dx0a2、VBA（2003版）x0dx0a在那個文件夾下新建Excel文件，打開新建的Excel文件，右擊工作表標簽（如Sheet1），查看代碼——在代碼編輯器中輸入以下代碼x0dx0aSub Test()x0dx0aDim i As Integerx0dx0aDim strPath As Stringx0dx0astrPath = ThisWorkbook.Pathx0dx0aWith Application.FileSearchx0dx0a .LookIn = strPathx0dx0a .SearchSubFolders = Truex0dx0a .Filename = "*.*"x0dx0a If .Execute > 0 Thenx0dx0a For i = 1 To .FoundFiles.Countx0dx0a Range("A" & i) = .FoundFiles(i)x0dx0a Next ix0dx0a End Ifx0dx0aEnd Withx0dx0aEnd Subx0dx0a回到Excel表格中，工具——宏——宏——選擇Sheet1.Test——執行x0dx0ax0dx0a方法一簡單的操作就可以，方法二需要對程序有一定的了解，方法二通用性比較強，需要的時候執行一下就可以，更快捷。

『玖』 怎麼用Excel獲取當前文件夾內的所有文件夾目錄

下面的例子代碼顯示C:所有文件，供你參考：

OptionExplicit
Subygb()
Dimf,i
i=1
f=Dir("c:")
Whilef<>""
Cells(i,"A")=f
i=i+1
f=Dir
Wend
EndSub

『拾』 用EXCEL VBA獲取指定目錄下的文件名(包括文件夾名)

1、首先利用快捷鍵「Windows鍵+R」打開「運行」窗口