PowerBuilder Excel文件导入数据窗口

OLEObject  adoCn
OLEObject  adoRs
OLEObject  adoFld
int adUseClient
int i
int nFieldCount
string str
adoCn = CREATE OLEObject
adoCn.ConnectToNewObject("ADODB.Connection")
adoRs = CREATE OLEObject
adoFld= CREATE OLEObject
adoRs.ConnectToNewObject("ADODB.Recordset")
adoCn.Provider = "Microsoft.Jet.OLEDB.4.0"
adoCn.ConnectionString ="Data Source=Excel路径+文件名称+后缀;Extended Properties=Excel 8.0;"
adUseClient=3
adoCn.CursorLocation = adUseClient

adoCn.Open
adoRs.ActiveConnection =adoCn
adoRs.open("SELECT * FROM [工作表名称$]  ORDER BY Name " )
adoRs.MoveFirst()
DO WHILE NOT adoRs.EOF
	nFieldCount=adoRs.Fields.Count
	nFieldCount=nFieldCount - 1
	long ll_Row
	ll_Row = dw_1.InsertRow(0)
	for i=0 to nFieldCount
		adoFld=adoRs.Fields[i]
		str=adoFld.value
		dw_1.SetItem(ll_Row,adoFld.name,str)	
	next 
   adoRs.MoveNext()  
LOOP