ошибка 424

[Roxan]

Срочно нужна помощь!
Пытаюсь выбрать и открыть книгу, но появляется "Run-time error 424: Object required"

Private Sub CommandButton1_Click()
CommonDialog1.DialogTitle = "Открыть входной файл"
CommonDialog1.InitDir = ActiveWorkbook.Path
CommonDialog1.Filter = "*.xls|*.xlsx;*.xlsm;*.xls|"
CommonDialog1.ShowOpen
file = CommonDialog1.Filename
Label4.Caption = file
End Sub

[SAS888]

Используйте FileDialog для приложения. например, так:

Private Sub CommandButton1_Click()
    With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = ActiveWorkbook.Path
        .Title = "Открыть входной файл": .Show
        .Filters.Clear: .Filters.Add "Excel files", "*.xls*"
        If .SelectedItems.Count = 0 Then Exit Sub Else file = .SelectedItems(1)
        Label4.Caption = file
    End With
End Sub