Вопрос : Укротитель ошибки VBA когда первенствуйте лист не существует

Блок Кодего под рабочий лист ввозов специфически от 3 по-разному архивов Эксел в одну таблицу.  

For приводит где в пример Year1.xlsx не выходит, пожары сообщения ошибки (`1004 продолжающей погрешности').  Я ищу дорога снабдить укротитель ошибки работал бы к этому влиянию:

If определенный лист Эксел, котор не существует (например `Year2.xlsx'), тогда не исполняет Кодего на следующем листе Эксел зарегистрированном в myPath = блоке `…'  

If, котор никакие из листов существуют зарегистрированно в myPath = блоке `…', тогда горят это Кодего: class= " lineNumbers " >
1 >
MsgBox «" prettyprint " class= " codeSnippet794801 id= >
 

  
  class= " ясное " > 

> " codeSnippet " class= 

           class= " lineNumbers " 

           class= 

             
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:


           		
          class= " notpretty " >Public Sub ImportExcelSheets id= " codeSnippet794316 " 
           

         

       


   
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:

Общественное Sub ImportExcelSheets ()
Тусклое myPath (), j, iCnt как интежер
myPath = блок («\ \ serverName \ Year1.xlsx»,» \ \ serverName \ Year2.xlsx ", «\ \ serverName \ 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, _
             «tableName», myPath (j), поистине. Рабочий лист (I). Имя &»! A: M "
            Закончитесь если
        Затем
    Конец с
    objXL.Quit
    Установите objXL = ничего

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

Закончите подводную лодку
 
Toggle HighlightingOpen в новом WindowSelect все
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us