如何将excel的数据导入到数据窗口中

transaction access

access = CREATE transaction

access.DBMS = 'ODB'

access.DBParm = "ConnectString='Driver={Microsoft Excel Driver (*.xls)};Dbq=" +文件名+ ";Uid=;Pwd='"

CONNECT USING access ;

IF access.SQLCode <> 0 THEN

m_errmsg=access.SQLErrText

Return -1

END IF

atr_cnn=access