| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

импорт данных из excel [D7, ms access]

stainer ©   (2004-09-11 16:56:00) 

Привет!
Как мне импортировать из excel данные в мою таблицу (ms access)

thanks!!!

---

sniknik   (2004-09-11 18:21:00) [1]

а можно так (ADO - Jet - в подключении к базе access)
SELECT * INTO моятаблица FROM [Лист1$] IN "D:\файлехель.XLS" "Excel 8.0;"

---

GanibalLector   (2004-09-11 17:45:00) [2]

Например так :

function Xls_To_StringGrid(AGrid: TbsskinStringGrid; AXLSFile: string): Boolean;  
const  
xlCellTypeLastCell = $0000000B;  
var  
XLApp, Sheet: OLEVariant;
RangeMatrix: Variant;  
x, y, k, r: Integer;  
begin  
Result := False;  
// Create Excel-OLE Object
XLApp := CreateOleObject('Excel.Application');  
try  
  // Hide Excel  
  XLApp.Visible := False;  

  // Open the Workbook
  XLApp.Workbooks.Open(AXLSFile);

  // Sheet := XLApp.Workbooks[1].WorkSheets[1];  
  Sheet := XLApp.Workbooks[ExtractFileName(AXLSFile)].WorkSheets[1];  

  Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;  
  // Get the value of the last row  
  x := XLApp.ActiveCell.Row;

  // Get the value of the last column
  y := XLApp.ActiveCell.Column;
 
  // Set Stringgrid's row &col dimensions.  

  AGrid.RowCount := x;
  AGrid.ColCount := y;

  // Assign the Variant associated with the WorkSheet to the Delphi Variant  

  RangeMatrix := XLApp.Range['A1', XLApp.Cells.Item[X, Y]].Value;
 { form1.memo1.lines.add(rangematrix); }
  //  Define the loop for filling in the TStringGrid  
  k := 1;  
  repeat  
    for r := 1 to y do  
      AGrid.Cells[(r - 1), (k - 1)] := RangeMatrix[K, R];  
    Inc(k, 1);
    AGrid.RowCount :=k+1;           {k+1}
  until k > x;          {>}
  // Unassign the Delphi Variant Matrix  
  RangeMatrix := Unassigned;

  Agrid.rowcount:=Agrid.rowcount-2;

finally  
  // Quit Excel  
  if not VarIsEmpty(XLApp) then  
  begin  
    // XLApp.DisplayAlerts := False;  
    XLApp.Quit;  
    XLAPP := Unassigned;  
    Sheet := Unassigned;  
    Result := True;  
  end;  
end;  
end;  

---

Наверх