2,507
社区成员
发帖
与我相关
我的任务
分享我的excel中的数据导入进access再转换成interbase的数据库,进行控制?
怎样将excel中的数据导入进access再转换成interbase的数据库,进行控制?
我是先用access打开excel,再用odbc连接,但是只有数据库,不能形成表格进行控制,怎么办?请指教
我是先用access打开excel,再用odbc连接,但是只有数据库,不能形成表格进行控制,怎么办?请指教
...全文
请发表友善的回复…
发表回复
xiaopan 2001-10-08
- 打赏
- 举报
up
lizhenjia 2001-10-08
- 打赏
- 举报
用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;
随便写的,不一定准确,但意思是对的.
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;
随便写的,不一定准确,但意思是对的.
