Dw_1. SetTransObject (SQLCA)
Value=https://bbs.csdn.net/topics/GetFileOpenName (" Select File ", the path and filename, "like", "the.xls Files (*. XLS), *. XLS", "d: ")
If value<> 1 then return
If right (path, 3)='like' or right (path, 3)='XLS' then
OLEObject ObjExcel
ObjExcel=CREATE OLEObject
Result=ObjExcel. ConnectToNewObject (" excel. Application ")
If the result & lt;> 0 then
Messagebox (" message ", "the connection of EXCEL failed, please check whether installed in the computer EXCEL!" )
Return
else
CodePudding user response:
Used PB11. Help.CodePudding user response:
Help you to have a try, is studying PB11.5CodePudding user response:
Under B/S ConnectToNewObject always returns - 3, seemingly PB11 in the B/S is not supported, but there is no question of under C/S