Показать сообщение отдельно
  #3  
Старый 23.12.2018, 11:05
Shkolnik_17 Shkolnik_17 вне форума
Прохожий
 
Регистрация: 18.12.2018
Сообщения: 4
Версия Delphi: Delphi7
Репутация: 10
По умолчанию

Цитата:
Сообщение от 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.
По поводу второго твоего предложения я пока разбираюсь.
Ответить с цитированием