Ошибка method range of object _global failed - VBA (48515)

Узнай цену своей работы

Формулировка задачи:

Подскажите пожалуйста, что не так? Почему ошибка method range of object _global failed?

Решение задачи: «Ошибка method range of object _global failed»

textual
Листинг программы
Private Sub UserForm_Initialize()
    With CreateObject("Excel.Application")
         With .Workbooks.Open(ActiveDocument.Path & "\qwe.xlsx", 0)
              ComboBox1.List = .Worksheets("A").Range("A2:D4").Value
              ComboBox2.List = .Worksheets("A").Range("A2:D40").Value
              .Close False
         End With
         .Quit
    End With
End Sub
 
Private Sub ComboBox1_Change()
    LetTextBox ComboBox1
End Sub
 
Private Sub ComboBox2_Change()
    LetTextBox ComboBox2
End Sub
 
Private Sub LetTextBox(comboBox As MSForms.comboBox)
    With comboBox
         If .ListIndex > -1 Then
            TextBox4.Text = .List(.ListIndex, 1)
            TextBox5.Text = .List(.ListIndex, 2)
            TextBox6.Text = .List(.ListIndex, 3)
         Else
            TextBox4.Text = ""
            TextBox5.Text = ""
            TextBox6.Text = ""
         End If
    End With
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.833 из 5