回 帖 发 新 帖 刷新版面

主题:请教将access转换成excel代码

若e:\下有一个t.mdb,且在t.mdb中有一个表为ab,请教将t.mdb中的表ab中的记录转换成e:\下的一个cd.xls文件的代码如何,谢谢

回复列表 (共1个回复)

沙发

用下面的代码试试看。
nD=SQLSTRINGCONNECT("Driver={Microsoft Access Driver (*.mdb)};dbq=T.mdb;pwd=")
IF nD <=0 
  MESSAGEBOX("数据库连接失败!",16, '错误信息') 
ELSE 
  nT=SQLEXEC(nD,"SELECT * FROM ab","TEMP")
  IF nT <=0 
    MESSAGEBOX("读取数据错误!",16, '错误信息') 
  ENDIF
  COPY TO cd xl5
ENDIF 
SQLDISCONNECT(nD)

我来回复

您尚未登录,请登录后再回复。点此登录或注册