如何导入整个文件夹下的*.xls??????? 急~~~!!!

Question

在一个文件夹中是所有要读取的EXCEL文件,如何将其所有打开? 单个EXCEL文件我是知道的(Set exwbook = ex.Workbooks.Open("c:\test\test.xls")) 可整个一起真是难住我了!!!谢谢,哪位达人帮帮忙啊!!!

Answer 1

用dir函数找到该文件夹下的所有*.xls文件，对每个文件分别处理。

Answer 2

Private Sub Command5_Click()
    Dim eApp As New Excel.Application
    Dim xlsFile As String
    xlsFile = Dir("c:\*.xls")
    Do While xlsFile <> ""
        xlsFile = "c:\" & xlsFile
        eApp.Workbooks.Open xlsFile
        xlsFile = Dir()
    Loop
    eApp.Visible = True
    Set eApp = Nothing
End Sub
打开c:\目录下的xls文件(不包括子目录里的)