本人想在vb中用shell函数打开一个excel文件,用以下语句
Dim i As Integer
i = Shell(app.path & "\test.xls", vbMaximizedFocus)
结果返回错误号“5”请问如何实现功能?
Dim i As Integer
i = Shell(app.path & "\test.xls", vbMaximizedFocus)
结果返回错误号“5”请问如何实现功能?
解决方案 »
- 关于复制excel的其中的一页的问题,还没有解决,再开100分的贴
- 关于DTPicker自定义格式的问题
- 如何让DataGrid控件响应鼠标滚动?
- 刚做完Demo,又可以扔掉VB,散分
- 测试txtUserName和txtPassword,与数据库的连接是否正确,为什么总提示错误?
- 为什么打不上VS6 SP5补丁啊,提示我的语言版本不匹配。VS 6 中文企业版,Win2000sp2
- 对图像操作熟的朋友进来看一下。
- 求救大虾关于vb中label单击调用word文档的问题!!!
- vb中怎样实现扫描功能?
- 再次请教高手,我下面是一段自己的代码,可以调出现在有作图程序的菜单,但如何用,请指教
- 高手请进!!!!帮忙解释一下!!!!高分奉送!!!!!
- 像这样的问题怎么实现?
i = Shell(start app.path & "\test.xls", vbMaximizedFocus) 'win98下或者用api函数ShellExecute:【VB声明】
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long【别名】
ShellExecuteA【说明】
查找与指定文件关联在一起的程序的文件名 【返回值】
Long,非零表示成功,零表示失败。会设置GetLastError 【参数表】
hwnd ----------- Long,指定一个窗口的句柄,有时候,windows程序有必要在创建自己的主窗口前显示一个消息框 lpOperation ---- String,指定字串“open”来打开lpFlie文档,或指定“Print”来打印它 lpFile --------- String,想用关联程序打印或打开一个程序名或文件名 lpParameters --- String,如lpszFlie是可执行文件,则这个字串包含传递给执行程序的参数 lpDirectory ---- String,想使用的完整路径 nShowCmd ------- Long,定义了如何显示启动程序的常数值。参考ShowWindow函数的nCmdShow参数
对于你的问题,应该这么写:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub Command1_Click()
ShellExecute Me.hwnd, "open", App.Path + "\test.xls", vbNullString, vbNullString, 3
End Sub