ImportExcelSheets secondario pubblico ()
myPath fioco (), J, iCnt come numero intero
myPath = allineamento (“\ \ serverName \ Year1.xlsx„,„ \ \ serverName \ Year2.xlsx ", “\ \ serverName \ Year3.xlsx„)
Per J = LBound (myPath) a UBound (myPath)
se dir ("" del mypath (j)<>) allora
Regolare il objXL = CreateObject (“Excel.Application„)
myPath di objXL.Workbooks.Open (j), allineare
Con objXL
Per i = 1 a. Worksheets.Count
Se InStr (. Manuali (i). Nome, “widget„) allora
acImport di DoCmd.TransferSpreadsheet, acSpreadsheetTypeExcel12, _
“tableName„, myPath (j), allineare. Manuali (i). Nome &„! A: M. "
Concluder se
Dopo
Estremità con
objXL.Quit
Regolare il objXL = niente
altrimenti
iCnt=iCnt + 1
concluder se
Dopo
se icnt=3 allora
I manuali di MsgBox “non esistono. Uscendo sommergibile ora! „, vbInformation, “errore„
uscire il sommergibile
concluder se
Concludere il sommergibile
Fornire HighlightingOpen di un cavicchio in nuovo WindowSelect tutto
|