У меня при создании нового листа его имя сохраняется в отдельный файл. И вот сейчас не получается забрать эти данные и передать их в ComboBox
Вот мой код, не пойму, что в нем не так:
Private Sub ComboBox1_Change()
ActiveSheet.ComboBox1.List = Split(CreateObject("Scripting.FileSystemObject").Getfile("B:\test.txt").OpenasTextStream(1).ReadAll, vbNewLine)
End Sub
Вот мой код, не пойму, что в нем не так:
Private Sub ComboBox1_Change()
ActiveSheet.ComboBox1.List = Split(CreateObject("Scripting.FileSystemObject").Getfile("B:\test.txt").OpenasTextStream(1).ReadAll, vbNewLine)
End Sub