Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA не могу скопировать лист вакансии из книги, которую открываю через диалоговое окно VBA / 2 сообщений из 2, страница 1 из 1
22.09.2021, 21:32
    #40099413
Alimov97
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA не могу скопировать лист вакансии из книги, которую открываю через диалоговое окно VBA
Помогите, пожалуйста, не могу скопировать лист вакансии из книги, которую открываю через диалоговое окно в активную книгу Лист Microoft Excel.xlsm, где будет писаться макрос, вылезает ошибка, пробовала тремя разными способами( 2 из них закомментированы), в идеале потом книгу, из которой копировался лист " Вакансии" надо закрыть. А активной сделать книгу Лист Microoft Excel.xlsm

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
a=Application.GetOpenFilename_
("Excel files(*.xls*),*xls*",1,_
"Выберите Excel файл, скаченный с hh",,False)
'Sheets("Вакансии").Copy After:=WorkBooks("Лист Microoft Excel.xlsm").Sheets("Лист1")
WorkBooks("Лист Microoft Excel.xlsm").Sheets("Лист1").Value=a.Sheets("Вакансии").Value
'Sheets("Вакансии").Range("A:U").Copy After:=WorkBooks("Лист Microoft Excel.xlsm").Sheets("Лист1").Range("A:U")
Sheets("Лист1").Activate

Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
22.09.2021, 22:40
    #40099430
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA не могу скопировать лист вакансии из книги, которую открываю через диалоговое окно VBA
Alimov97
Код: vbnet
1.
GetOpenFilename_

GetOpenFilename возвращает только имя файла. Этот файл еще надо открыть через Workbooks.Open
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA не могу скопировать лист вакансии из книги, которую открываю через диалоговое окно VBA / 2 сообщений из 2, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]