这个过程在程序中的实现，以下是代码：
procedure TFShowProc.ImportExcel(sPathNameStr: String);
var
AA: OleVariant;
sTempPath,sacTableName: String;
begin
sTempPath:='c:\windows\temp\temp.mdb';
sacTableName:='Temp'
try
//创建Access Application对象，并打开Access临时数据库
AA:=CreateOleObject('Access.Application');
//如果不存在这个文件，则创建，否则，打开这个文件
if not FileExists(sTempPath)
then AA.NewCurrentDatabase(sTempPath)
else AA.OpenCurrentDatabase(sTempPath,false);
//转化成Excel2000的格式，具体可查看Access帮助
AA.DoCmd.TransferSpreadsheet(acImport,acSpreadsheetTypeExcel8,sacTableName,sPathNameStr,true,'');
AA.CloseCurrentDatabase;
except
ShowMessage('文件格式有误，转换过程中发生错误！');
end;
end;
|
