PB数据execl导入的模块

PB求一个数据execl导入的模块
我想做一个execl数据导入到SQL2000的一个模块，没头绪，高手指教，最好能有代码，我水平太菜了

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

参考第二个方法~~
------解决方案--------------------
乌龟也在。

SQL code

--给你个代码
Int li_s
oleobject lole_excel
lole_excel = Create oleobject
li_s = lole_excel.ConnectToNewObject("excel.application")

//检查返回值，以确保已成功地连接到了Excel
If li_s <> 0 Then
    MessageBox("","打开excel程序出错.请检查是否已经安装EXCEL.")
    Return
End If
Int li_rtn
String 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 Return
If ls_file_directory = "" Then  Return
If ls_file_name = "" Then  Return
dw_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功能

相关推荐