我的excel中的数据导入进access再转换成interbase的数据库,进行控制?

[xiaopan]

怎样将excel中的数据导入进access再转换成interbase的数据库,进行控制?
我是先用access打开excel,再用odbc连接,但是只有数据库,不能形成表格进行控制,怎么办?请指教

[lizhenjia]

用ole,假设excel文件中有3列
var
eapp,workbook,worksheet:variant;
i,j:integer;
begin
eapp:=createoleobject('excel.application');
eapp.workbooks.open('c:\lzj.xls');
eapp.visible:=false;
workBook:=msexcel.activeworkbook;
worksheet:=workBook.worksheets[1];
for i=1 to worksheet.UsedRange.Rows.Count do
begin
query1.fields[0].value:=worksheet.cells[i,1].value
query1.fields[1].value:=worksheet.cells[i,2].value
query1.fields[2].value:=worksheet.cells[i,3].value
query1.next;
end;
workbook.close;
eapp.quit;
eapp:=unassigned;
end;
随便写的,不一定准确,但意思是对的.

• 打赏
• 举报

回复 赞

[xiaopan]

up

• 打赏
• 举报

回复 赞