Вопрос : VBA для уточнения значений поля на таблице во время петли

Блок Кодего под рабочий лист ввозов специфически от 3 по-разному архивов Эксел в одну таблицу.  Немедленно после `Year1.xlsx' импортировано в tblMaster `', мне нужно уточнить значение для каждого показателя под `названия поля fldYear' в таблице цели (tblMaster `').  значение
The оно уточнило бы к от управления формы «[формы]! [frmName]! [txtYear1]».

Then когда `Year2.xlsx' будет импортировано, `fldYear' было бы обновлено с значением зарегистрированный в «[формы]! [frmName]! [txtYear2]».  После этого такой же костюм был бы последован за импортируя `Year3.xlsx». проницательность

Any в это? class= " lineNumbers " >

1 >
:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
class= " prettyprint " >Public Sub ImportExcelSheetsfIANL id= " codeSnippet794610 " >
 после этого

Установите objXL = CreateObject («Excel.Application»)
    myPath objXL.Workbooks.Open (j), поистине
    С objXL
        Для I = 1 к. Worksheets.Count
            Если InStr, то (. Рабочий лист (I). Имя, «widget») после этого
            acImport DoCmd.TransferSpreadsheet, acSpreadsheetTypeExcel12, _
             «tblMaster», myPath (j), поистине. Рабочий лист (I). Имя &»! A: M "
            Закончитесь если
        Затем
    Конец с
    objXL.Quit
    Установите objXL = ничего

    Еще
    iCnt = iCnt + 1
Закончитесь если
Затем
Если iCnt = 3 после этого
Рабочий лист MsgBox «не существуют. Выходящ подводная лодка теперь! », vbInformation, «ошибка»
Выходите подводная лодка
Закончитесь если
class= " ясное " > 

  
  class= 

Ответ : VBA для уточнения значений поля на таблице во время петли

испытайте это

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45:

Общественное Sub ImportExcelSheetsfIANL () Тусклое objXL как предмет Тусклая конюшня, xlPath как шнур, I как интежер Тусклое myPath (), j, iCnt как интежер myPath = блок («\ \ сервер \ Year1.xlsx», _ «\ \ сервер \ Year2.xlsx», _ «\ \ сервер \ Year3.xlsx») Для j = LBound (myPath) к UBound (myPath) Если Dir, то (myPath (j)) <> "" После этого Установите objXL = CreateObject («Excel.Application») myPath objXL.Workbooks.Open (j), поистине С objXL Для I = 1 к. Worksheets.Count Если InStr, то (. Рабочий лист (I). Имя, «widget») после этого acImport DoCmd.TransferSpreadsheet, acSpreadsheetTypeExcel12, _ «tblMaster», myPath (j), поистине. Рабочий лист (I). Имя &»! A: M " Закончитесь если Затем Конец с objXL.Quit Установите objXL = ничего Выберите случай j Случай 0 fldYear='" tblMaster уточнения CurrentDb.Execute «установленное & [формы]! [frmName]! [txtYear1] & «'где fldYear будет нулев» Случай 1 fldYear='" tblMaster уточнения CurrentDb.Execute «установленное & [формы]! [frmName]! [txtYear2] & «'где fldYear будет нулев» Случай 2 fldYear='" tblMaster уточнения CurrentDb.Execute «установленное & [формы]! [frmName]! [txtYear3] & «'где fldYear будет нулев» Конец отборный Еще iCnt = iCnt + 1 Закончитесь если Затем Если iCnt = 3 после этого Рабочий лист MsgBox «не существуют. Выходящ подводная лодка теперь! », vbInformation, «ошибка» Выходите подводная лодка Закончитесь если Закончите подводную лодку