Откройте несколько файлов excel с пользовательской формой

Напишите код в vba, который, вызывая пользовательскую форму одного файла excel ко всем остальным 10 файлам excel, без каких-либо ссылок в этих 10 файлах excel.

Он отображает вывод в текущем файле excel, но не в файлах-получателях, и показывает ошибку, поскольку Userform уже показана, а форма формы не возможна

Private Sub Workbook_OnClick() Dim mypath As String Dim file As Workbook Dim wb As Workbook Dim pat As String Application.ScreenUpdating = False ChDrive "C:" ChDir "C:\Users\Administrator\Desktop\John" 'john is a folder on the desktop mypath = Range("B1").Value 'mypath has the same value as chDir file = Dir(mypath & "\" & "*.xlsx") Set wb = Application.Workbooks.Open(file) If (wb.Click) Then Application.Visible = False userform1.Show End If End Sub 

chDir упоминается, поскольку каталог по умолчанию, показанный с помощью функции dir (), был C: \ Users \ Administrator \ Documents \, но папка, сохраненная на рабочем столе, и это C: \ Users \ Administrators \ Desktop \ John

Сэр, он отображает ошибку времени выполнения – 91, которая является «Объектная переменная или с блочной переменной не установлена» и выделяет строку «file = Dir (mypath &« \ »&« * .xlsx »)

 Private Sub Workbook_OnClick() Dim mypath As String Dim file As String Dim wb As Workbook Dim pat As String Application.ScreenUpdating = False ChDrive "C:" ChDir "C:\Users\Administrator\Desktop\John" 'john is a folder on the desktop mypath = Range("B1").Value 'mypath has the same value as chDir file = Dir(mypath & "\" & "*.xlsx") Do While file <> "" Set wb = Application.Workbooks.Open(file) If Not IsEmpty(wb) Then Application.Visible = False userform1.Show End If wb.Close file = Dir() Loop End Sub 
Interesting Posts

Кластерная таблица столбцов Excel 2013 в VBA

Получить определенные значения из сложной таблицы

Как автоматически выбрать предыдущие данные за месяц / год для использования в менеджере имен в Excel

Excel VBA для выбора конкретных рабочих листов из ячеек, чтобы сохранить как 1 pdf

Открытие листа в файле excel в Python

Присвоение числового значения столбцу в excel для полного списка в excel

HTTP-ответ – файл Excel – сохранение на диск

Ошибка в определении новой ячейки с помощью Excel VBA

Как сохранить данные на 1 лист в Excel

Выберите элементы из списка

Элемент Userform Listbox Элементы как строка, где каждый элемент относится к диапазону столбцов на активном листе

Отключить автозапуск видео проигрывателя Windows Media при открытии файла XLSM

Как экспортировать данные таблицы Кендо в Excel / CSV / ZipFile – альтернативный метод

Преобразование больших данных в excel в Apaci POI Java

Обновление базы данных SQL через excel VBA

Давайте будем гением компьютера.