Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Связь *.xls файла с TTable

Автор: Delphi_Coder 6.3.2005, 09:46

У меня есть файл 1.xls с листами "2002" "2003".
Как бы мне его связать с TTable?
Пробую:

Код

DataBaseName:='c:\1.xls' //Путь к файлу и его имя

В TableName нет ни "2002" ни "2003"

Код

DatabaseName:='c:\'

В TableName нет ни "2002", ни "2003", ни "1.xls"

Что делать?
Если можно - примерчик

Автор: SPrograMMer 6.3.2005, 11:57

Хмм............ smile

Так у тебя еще долго ничо неполучится, тебе нужно открыть Excel`вский файл, ну хотя бы используя компоненты с вкладки Servers (почти самая последняя вкладка smile

)
И делать все ручками - перенос из Excel`я в TTable
Напрмер:
1. TExcelApplication
2. TExcelWoorkbook

Код


  Proceure TForm1.Button1Click(Sender:TObject);
      var
         N:OleVariant;
  begin
    N:='c:\1.xls';  // путь к файлу
    ExcelApplication1.WorkBooks.Add(n,0); // подсоединяемся к 1-ой странице
    ExcelWoorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
    ExcelApplication.Cells.Item[2,4].Value         // так получаются данные, содержащиеся во 2-ой строке; 4-ом столбце (или наоборот, я не помню...)
    .....
    ExcelWorkbook1.Close; // для нормального закрытия Excel`я
  End;