Question

我遇到一个问题，我无法找到合适的代码来执行此操作。

所以我有一个主文件夹（C：\ Products），其中有多个子文件夹对应不同的产品（C：\ Products \ Chocolates，C：\ Products \ Milk等等）。每个子文件夹都有许多excel文件，但我只想导入一个名为sells.xlxs的文件。每个子文件夹都有一个sells.xlxs，我想将所有sells.xlxs导入访问数据库。

编辑：抱歉，我没有上传我正在使用的代码：

Sub Insert2()
  Const cstrSheetName As String = "Weekly"
  Dim strDir As String
  Dim strFile As String
  Dim strTableName As String
  Dim MyPath As String
  Dim i As Long

  i = 0
   MyPath = "C:\Products"
   strTableName = "Sells"
  If Left(MyPath, 1) <> "\" Then
   strDir = MyPath & "\"
  Else
   strDir = MyPath
 End If
   strFile = Dir(MyPath & "\Sells.XLSX")
While strFile <> ""
 i = i + 1
 strFile = strDir & strFile
 Debug.Print "importing " & strFile

     DoCmd.TransferSpreadsheet _
    TransferType:=acImport, _
    SpreadsheetType:=acSpreadsheetTypeExcel9, _
     TableName:=strTableName, _
    FileName:=strFile, _
    HasFieldNames:=True, _
    Range:=cstrSheetName & "$"

  strFile = Dir()

 Wend
  End Sub

你认为你可以帮助我吗？

非常感谢

Answer 1

Dim FileSystem As Object
Dim HostFolder As String

HostFolder = MyPath

Set FileSystem = CreateObject("Scripting.FileSystemObject")
DoFolder FileSystem.GetFolder(HostFolder)

Sub DoFolder(Folder)
    Dim SubFolder
    For Each SubFolder In Folder.SubFolders
        Dim File
        For Each File In Folder.Files
            ' Operate on each file
        Next
    Next

End Sub

代码归功于Rich,重新排列的代码，因此它不会递归迭代所有子文件夹，只是MyPath

的子文件夹

从不同的子文件夹访问VBA导入特定的Excel文件

1 个答案: