excel表格怎么读取文件夹

1.excel表如何获取某文件夹中有几个文件(或文件夹)

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

SubTest()

SetobjShell = CreateObject("Shell.Application")

SetobjFolder = objShell.BrowseForFolder(0， "选择文件夹"， 0, 0)

IfobjFolder IsNothingThenexit sub

lj = objFolder.self.Path & "\"

SetobjFolder = Nothing

SetobjShell = Nothing

MyFileName = Dir(lj,vbDirectory)

i = 0

DoWhileMyFileName <> ""

i = i + 1

cells(i,1)=MyFileName

MyFileName = Dir

Loop

1

2

MsgBox i

EndSub

2.怎么读取文件夹下的EXCEL文件名

文件夹路径自己设置Sub excel2003()Dim myfilesDim i As Long, pathmyfiles = Dir("C:\Users\***istrator\Desktop\*.xls")'文件夹路径On Error Resume NextApplication.ScreenUpdating = TrueApplication.DisplayAlerts = FalseDo While Right(myfiles, 4) = ".xls"i = i + 1Cells(i, 1) = mfilesmyfiles = DirLoopMsgBox "共有文件 " & i & "个"End Sub。

3.excel中怎样读取另一个文件

用xplorer2（一个资源管理器，可以直接取得所有文件的文件名，包含路径和后缀。

在网上可找到该软件）选择D:\My Documents\信用村下的所有文件（即你需要取信息的文件），然后用alt+c，取得所有文件的路径和文件名；copy到一个一个文本文件（比如用ultraedit）中，会得到按行排列的“D:\My Documents\信用村\04 李四.xls”用批量替换的方式给“04 李四.xls”两边加上[ ] 和“农户基本信息'！$B$3”，以及最前面的“=”.（这个不方法不用说了吧）。然后把这个文本copy到你需要的excel表中即可。