740
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
qijiangyou 2004-11-23
- 打赏
- 举报
//试试这个
oleobject ole_1
//
ole_1 = create oleObject
//
IF ole_1.ConnectTonewObject("Excel.application") <> 0 THEN
MessageBox('OLE错误','OLE无法连接!')
Destroy ole_1
return
END IF
oleobject ole_1
//
ole_1 = create oleObject
//
IF ole_1.ConnectTonewObject("Excel.application") <> 0 THEN
MessageBox('OLE错误','OLE无法连接!')
Destroy ole_1
return
END IF
wulengbing 2004-11-23
- 打赏
- 举报
是啊，检查一下注册表excel的位置，再启动
dxyyj 2004-11-23
- 打赏
- 举报
晕
if RegistryGet( "HKEY_LOCAL_MACHINE\Software\microsoft\office\8.0\excel\installroot", "path", RegString!, df)=-1 then
if RegistryGet( "HKEY_LOCAL_MACHINE\Software\microsoft\office\9.0\excel\installroot", "path", RegString!, df)=-1 then
RegistryGet( "HKEY_LOCAL_MACHINE\Software\microsoft\office\10.0\excel\installroot", "path", RegString!, df)
end if
end if
df+="\excel "+"d:\文件名.xls"
if RegistryGet( "HKEY_LOCAL_MACHINE\Software\microsoft\office\8.0\excel\installroot", "path", RegString!, df)=-1 then
if RegistryGet( "HKEY_LOCAL_MACHINE\Software\microsoft\office\9.0\excel\installroot", "path", RegString!, df)=-1 then
RegistryGet( "HKEY_LOCAL_MACHINE\Software\microsoft\office\10.0\excel\installroot", "path", RegString!, df)
end if
end if
df+="\excel "+"d:\文件名.xls"
hds8229830 2004-11-23
- 打赏
- 举报
关键是怎样找到系统中excel.exe的路径
ameng163 2004-11-23
- 打赏
- 举报
Run("C:\Program Files\Microsoft Office\Office\EXCEL.EXE d:\文件名.xls",, Maximized!)
这样不方便的话，那么你调用FORMULE ONE
这个比较好用的，不过比较费劲的。
这样不方便的话，那么你调用FORMULE ONE
这个比较好用的，不过比较费劲的。
hds8229830 2004-11-23
- 打赏
- 举报
谢谢各位了
hwh88888 2004-11-23
- 打赏
- 举报
楼上的都说了，我就只有来接分了哦
