Цитата:
Сообщение от lmikle
Ну если ты до данных ячейки добрался, то в чем проблема?
Код:
for i := VarArrayLowBound(Mass, 1) to VarArrayHighBound(Mass, 1) do
begin
ADOTable1.Append;
ADOTable1.Fields[0].AsString := VarAsType(Mass[i, VarArrayLowBound(Mass, 2)], VarOleStr);
ADOTable1.Fields[0].AsString := VarAsType(Mass[i, VarArrayLowBound(Mass, 2)+1], VarOleStr);
ADOTable1.Fields[0].AsString := VarAsType(Mass[i, VarArrayLowBound(Mass, 2)+2], VarOleStr);
//... сколько у тебя там ячеек...
ADOTable1.Post;
end;
|
Тут все понятно, в таблицу вставляешь новую строку и присваиваешь каждой колонке значение из массива.
А если мне не известно количество колонок в Excel, как циклом загнать все значения массива в Access таблицу.
В общем хочу получить такой вариант: выбираю файл Excel и считываю все значения из области ячеек, и циклом загоняю их в Access.
По поводу второго твоего предложения я пока разбираюсь.