Ошибка 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д