Как можно импортировать данные из Excel в любую табл (с возможностью редактирования) в VB6

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

Есть Excel файл и есть таблица в VB6, нужно импортировать к примеру все значения 1 столбца из Excel в таблицу VB. Как это можно сделать, может у кого-то есть код? В интернете много примеров экспорта из VB в Excel, а мне нужно наоборот.
Выручайте.

Решение задачи: «Как можно импортировать данные из Excel в любую табл (с возможностью редактирования) в VB6»

textual
                            Листинг программы 
                        

                            Dim B As Double, P As Double, U As Double
Dim Ex As Object, WB As Object, M()

Set Ex = CreateObject("Excel.Application")
Set WB = Ex.Workbooks.Open(App.Path & "\x.xls")
M = WB.worksheets(1).UsedRange.Value
WB.Close
Set Ex = Nothing

                        

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

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

Похожие ответы