当前位置: 代码迷 >> PB >> PB数据execl导入的模块
  详细解决方案

PB数据execl导入的模块

热度:97   发布时间:2016-04-29 10:03:51.0
PB求一个数据execl导入的模块
我想做一个execl数据导入到SQL2000的一个模块,没头绪,高手指教,最好能有代码,我水平太菜了

------解决方案--------------------
http://blog.csdn.net/21aspnet/archive/2007/03/21/1536901.aspx

参考第二个方法~~
------解决方案--------------------
乌龟也在。
SQL code
--给你个代码Int li_soleobject lole_excellole_excel = Create oleobjectli_s = lole_excel.ConnectToNewObject("excel.application")//检查返回值,以确保已成功地连接到了ExcelIf li_s <> 0 Then    MessageBox("","打开excel程序出错.请检查是否已经安装EXCEL.")    ReturnEnd IfInt li_rtnString ls_file_directory,ls_file_name //选择文件的目录及文件名称li_rtn = GetFileOpenName("选择数据文件", ls_file_directory ,ls_file_name,"xls","Excel Files (*.xls),*.xls")If li_rtn <> 1 Then ReturnIf ls_file_directory = "" Then  ReturnIf ls_file_name = "" Then  Returndw_import.Reset()lole_excel.workbooks.Open(ls_file_directory)lole_excel.activesheet.cells.Copy //复制表格到剪贴板dw_import.ImportClipboard(2) //导入数据 Clipboard("") //清理表格lole_excel.quit()lole_excel.DisconnectObject()Destroy lole_excel
------解决方案--------------------
dw2xls 有导入EXECLE功能