740
社区成员
发帖
与我相关
我的任务
分享请问pb如何直接打开Excel文件？
请问pb如何直接打开Excel文件？
用run("c:\file1.xls")函数或者用api函数shellexecute()
用run("c:\file1.xls")函数或者用api函数shellexecute()
...全文
请发表友善的回复…
发表回复
lllyyymmm 2007-10-20
- 打赏
- 举报
run("excel所在目录\excel.exe c:\file1.xls")
jlwei888 2007-10-20
- 打赏
- 举报
可以，也可以用OLE的方式直接打开！
lao_bulls 2007-10-20
- 打赏
- 举报
学习
SatanAngel 2007-10-20
- 打赏
- 举报
Integer value
string ls_filename,ls_pathname
long handle
value = GetFileopenName("请选择文件",ls_pathname,ls_filename, "XLS","Excel Files(*.XLS),*.XLS",is_path)
if value = 0 then return
OLEObject ExcelServer
Integer ExcelOk
ExcelServer = CREATE OLEObject
ExcelOK = ExcelServer.ConnectToNewObject("excel.application")
ExcelServer.Workbooks.Open(ls_pathname)
//ExcelServer.ActiveWorkBook.Sheets("Sheet1").Select
ExcelServer.Application.Visible = TRUE
---------------------------------------------
is_path为弹出窗口时的，起始路径
string ls_filename,ls_pathname
long handle
value = GetFileopenName("请选择文件",ls_pathname,ls_filename, "XLS","Excel Files(*.XLS),*.XLS",is_path)
if value = 0 then return
OLEObject ExcelServer
Integer ExcelOk
ExcelServer = CREATE OLEObject
ExcelOK = ExcelServer.ConnectToNewObject("excel.application")
ExcelServer.Workbooks.Open(ls_pathname)
//ExcelServer.ActiveWorkBook.Sheets("Sheet1").Select
ExcelServer.Application.Visible = TRUE
---------------------------------------------
is_path为弹出窗口时的，起始路径
hjf2006a 2007-10-20
- 打赏
- 举报
那excel所在目录\excel.exe 路径怎么求？
