Поле со списком Userform не будет отображать все открытые книги Excel - PullRequest
0 голосов
/ 21 февраля 2020

Я пытаюсь создать пользовательскую форму, в которой все открытые книги Excel отображаются в комбинированном окне, но по какой-то причине, несмотря на то, что открыто несколько рабочих книг, результаты не отображаются в раскрывающемся списке.

Это код пользовательской формы

Option Explicit

Private Sub CommandButton1_Click()
    MyFile = Me.SourceSlate.Value
    Unload Me
End Sub

Private Sub CommandButton2_Click()
    Hide
    Stopped = True
    Unload Me
End Sub

Private Sub SourceSlate_UserForm_Initialize()
    Dim wkb As Workbook
    Me.Label.Caption = "Select the Source slate from the list of open Excel Workbooks below"
    With Me.SourceSlate
        For Each wkb In Application.Workbooks
            .AddItem wkb.Name
        Next wkb
    End With
End Sub

, и это код модуля для запуска пользовательской формы

Option Explicit

Public MyFile As String
Public Stopped As Boolean

Sub SourceSlate_UserForm()

    Stopped = False

    SourceSlate.Show

    If Stopped Then Exit Sub
End Sub

Любая помощь с благодарностью! !

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...