Добрый день!
Подскажите, почему не работает строка:
В этом коде?
перед этим выполняется точно такой же код, только там открываем файл с расширением ".xls"
и соответственно имя книги и листов другие.
Работает это последовательно, сначала загружается 1-я книга, после 2-я книга. запускается это с CommandButton1 и CommandButton2, которые находятся на UserForm1...
Что не так?
Подскажите, почему не работает строка:
Код |
---|
Windows(Nom3).Close False 'закрыть книгу 2 |
Код |
---|
Sub Мой() MsgBox "ВНИМАНИЕ! Убедитесь что лист с прайсом в файле называется artikelimport hulp v2.2" With Application .Calculation = xlManual .ScreenUpdating = False End With Dim a, B As Variant, Nom, Nom2 As String 'Описываем переменные Nom = ActiveWorkbook.Name 'Задаем имя активной книге ChDrive "C:" 'Выбор диска ChDir "C:\" 'Выбор каталога a = Application.GetOpenFilename("Тип файла (*.xlsx), *.xlsx", _ , "Выберите свой прайс", , True) 'выбираем тип файлов excel Select Case TypeName(a) Case Is = "Boolean" Exit Sub Case Else For B = LBound(a) To UBound(a) Workbooks.Open a(B), CorruptLoad:=xlExtractData 'проверка выбора excel Next End Select Nom3 = ActiveWorkbook.Name 'задаем имя 2-й книге Sheets("artikelimport hulp v2.2").Activate 'Выбрать лист Cells.Select Selection.Copy 'Копировать выделеное Windows(Nom).Activate 'активировать книгу1 Лист2.Visible = True 'отобразить лист Лист2.Activate 'Выбрать лист Cells.Select ' Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ActiveSheet.Paste Application.DisplayAlerts = False 'скрыть сообщения об ошибке Windows(Nom3).Close False 'закрыть книгу 2 Лист3.Select 'выбрать лист Лист2.Visible = 2 'Скрыть лист With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With 'Включить обновление экрана MsgBox ("Прайс поставщика загружен"), 64, "InternetStore" 'Сообщение о выполнении End Sub |
перед этим выполняется точно такой же код, только там открываем файл с расширением ".xls"
и соответственно имя книги и листов другие.
Работает это последовательно, сначала загружается 1-я книга, после 2-я книга. запускается это с CommandButton1 и CommandButton2, которые находятся на UserForm1...
Что не так?