从Excel导入数据

我想从Excel导入数据到Delphi 7的Paradox数据库。

我怎样才能使用Delphi？

Answer 1

那么，如果你有问题标记为delphi7我假设你有BDE 。 这将使您能够在Delphi中完成整个过程。

您可以修改和使用这个未经testing的代码（您将需要添加exception处理）：

procedure TForm1.Button2Click(Sender: TObject); var Cols: integer; Rows: integer; IntCellValue: integer; Excel, XLSheet: Variant; failure: Integer; begin failure:=0; try Excel:=CreateOleObject('Excel.Application'); except failure:=1; end; if failure = 0 then begin Excel.Visible:=False; Excel.WorkBooks.Open(<Excell_Filename>); XLSheet := Excel.Worksheets[1]; Cols := XLSheet.UsedRange.Columns.Count; Rows := XLSheet.UsedRange.Rows.Count; // Value of the 1st Cell IntCellValue:=Excel.Cells[1, 1].Value; // Iterate Cals/Rows to read the data section in your worksheet // and you can write it in Paradox using the BDE by iterating all cells // somthing like this pseudo code: try Query := TQuery.Create(nil) Query .Databasename := PdxDBName; // must be configured in the BDE while Rows > 0 begin while Cols > 0 begin IntCellValue:=Excel.Cells[Cols,Rows].Value; Query .SQL.text := // SQLStmt including the IntCellValue ExecSQL; dec(Cols); end; Cols := XLSheet.UsedRange.Columns.Count; Dec(Rows); end; finally Query.Free; end; Excel.Workbooks.Close; Excel.Quit; Excel:=Unassigned; end; end; 

Answer 2

那么Excel中的CSV怎么样，然后将CSV导入到Paradox数据库？ 您也可以尝试从Excel中导出XML，然后以编程方式将XML加载到Padadox DB中。

Answer 3

这个工具SMImport说可以做到。 虽然他们想要50美元，但可以下载免费试用版。

Answer 4

使用Delphi 7中的OLEDB Provider和ADO组件来实现这一点。 这应该很简单，你可以使用Excel查询通过SQL查询。

使用TADO组件获取数据，然后使用像TQuery这样的BDE组件将数据导入到Paradox表中。