Добрый вечер! Пытаюсь решить следующую задачу: чтение, запись ячейки в файле формата xlsx.Столкнулся с проблемой подключения vb6 к файлам Excel2007. Стандартным кодом подключения, который без проблем срабатывал с xls, значение получить не удается: ошибок не выдает, но и результата никакого. Код приведен далее
Dim x As Object
Dim b As Object
Dim s As Object
Set x = CreateObject("Excel.Application")
x.DisplayAlerts = False
x.Visible = True
Set b = x.Workbooks.Open("C:\primer.xlsx")
Set s = b.Worksheets(1)
txtText.Text = s.Cells(5, 5).Value
b.Close saveChanges:=True
x.Quit
Set s = Nothing
Set b = Nothing
Set x = Nothing
Не подскажете, в чем причина? Если не затруднит, прошу предоставить код программы чтения/записи ячейки vb6-xlsx. Заранее спасибо.
Ответить
|