第一个问题:
SetPointer(HourGlass!)
Stringls_path,ls_filename,ls_saveasname
integerli_gfo
Longexcelok
li_gfo=GetFileOpenName("选择导入文件",ls_path,ls_filename,"DOC","ExcelFiles(*.xls),*.xls")
Ifli_gfo=0ThenReturn//取消操作
Ifli_gfo=-1Then
messagebox('系统提示','导入文件失败')
Return
EndIf
OLEObjectExcelServer
ExcelServer=CreateOLEObject
excelok=ExcelServer.ConnectToNewObject("excel.application")
Ifexcelok<0Then
MessageBox("连接excel失败,检查你的系统是否安装了office",String(excelok))
Return
Else
ls_saveasname="c:\emp.txt"//保存sheet内容的临时文件
li_sheetcount=ExcelServer.sheets.count
//循环取各个sheet
forli_loop=1toli_sheetcountstep+1
ExcelServer.WorkSheets(li_loop).SaveAs(ls_saveasname,3)//另存为文本文件
ExcelServer.displayalerts=False
dw_name.ImportFile(ls_saveasname)//用数据窗口接数据
dw_new.AcceptText()
FileDelete(ls_saveasname)
next
//退出断开连接
FileDelete(ls_saveasname)
ExcelServer.ActiveWorkbook.saved=true
ExcelServer.quit()
ExcelServer.DisconnectObject()
DestroyExcelServer
EndIf
setpointer(Arrow!)
|