Блог

Итак, я пытаюсь найти способы облегчить рекомбинирование данных в таблицах Excel с помощью access. То, что я пытаюсь сделать, это взять несколько файлов Excel, которые имеют одинаковый формат, и объединить их в непрерывную таблицу. Прямо сейчас у меня есть функция VBA, которая позволит мне настроить таргетинг на один лист Excel в каталоге файлов Excel и объединить их в одну таблицу access. Мой вопрос в том, как я могу сделать то же самое, но для КАЖДОГО листа в каталоге за один раз, вместо того, чтобы запускать и изменять код для каждого листа.

TL; DR У вас есть 100 файлов Excel, в каждом из которых по 7 листов. Форматирование идентично, но данные отличаются. Как мне взять все 100 файлов и объединить их рабочие листы в 7 соответствующих таблиц MS Access?

****** ПРОБЛЕМА РЕШЕНА. РАБОЧИЙ КОД ВЫГЛЯДИТ СЛЕДУЮЩИМ ОБРАЗОМ *******

Модуль 1 с именем SingleModule:

     Option Compare Database

    Public Function importExcelSheets(Directory As String, TableName As String, WkShtName As String) As Long
    On Error Resume Next
      Dim strDir As String
      Dim strFile As String
      Dim I As Long
      I = 0
      If Left(Directory, 1) <> "" Then
          strDir = Directory amp; ""
      Else
          strDir = Directory
      End If
          strFile = Dir(strDir amp; "*.XLSX")
      While strFile <> ""
          I = I   1
          strFile = strDir amp; strFile
          Debug.Print "importing " amp; strFile
          DoCmd.TransferSpreadsheet acImport, , TableName, strFile, True, WkShtName
          strFile = Dir()
      Wend
      importExcelSheets = I
    End Function
  

Модуль 2 с именем MultipleModule:

 Public Function importMultipleExcelFiles(Directory As String) As Long
For x = 1 To 7
Dim TableName As String
Dim WkShtName As String
    TableName = Choose(x, "Table1", "Table2", "Table3", "Table4")
    WkShtName = Choose(x, "Table1!", "Table2!", "Table3!", "Table4!")
    Call SingleModule.importExcelSheets(Directory, TableName, WkShtName)
Next x
End Function
  

Используйте следующую команду в немедленном окне для выполнения (убедитесь, что вы изменили путь к файлу):

 ? importMultipleExcelFiles("C:Excel File Directory")
  

ДОПОЛНИТЕЛЬНОЕ ПРИМЕЧАНИЕ:

Вы можете настроить таргетинг на один рабочий лист, используя следующую команду для SingleModule в окне Immediate:

 ? importExcelSheets("C:FilePath", "TableName", "WkShtName!")
  

Извините, я не видел, как ваше имя таблицы входило в процедуру. Используйте FOR-NEXT с функцией ВЫБОРА, когда вы вызываете функцию importExcelSheets .

 for x= 1 to 7
   TableName = choose(x, "Table1", "Table2"...)
   WkShtName = choose(x, "ContactDetails!", ...)
   importExcelSheets  Dir, TableName, WkshtName
next x