Question

vb点击一个按钮,打开一个文件夹

用vb2008的shell语句将C:\Users\znsb\Desktop\苏宁资料\苏宁电器2008年度审计报告.PDF文件用C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Adobe Reader 9.exe打开。

Answer 1

'声明部分
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
Const SW_SHOW = 5

'打开语句
'文件地址一点要正确,总感觉你的地址有点怪,Desktop是指桌面,znsb应该是用户路径,怪就怪在Users上,c盘有这个文件夹么?我只见到过C:\Documents and Settings\All Users\桌面或者C:\Documents and Settings\用户\桌面,或者我只使用过XP?见识浅薄么?
Dim f%
f = "C:\Users\znsb\Desktop\苏宁资料\苏宁电器2008年度审计报告.PDF"
ShellExecute Me.hwnd, "open", f, "", "", SW_SHOW

追问

系统说：Me.hwnd不是成员。为什么啊？
Dim xlapp As Object
xlapp = CreateObject("Excel.Application")
xlapp.Workbooks.Open("C:\Users\znsb\Desktop\毕业设计\层次分析，模糊判断.xlsx")
xlapp.Application.Visible = True
这段代码可以打开层次分析，模糊判断.xlsx文件，能不能用这段代码改一下啊？怎么改啊？

追答

不好意思,才看清是2008,改成Me.Handle.ToInt32,或者直接写成0,声明里的ByVal hwnd As Long改成ByVal hwnd As Int32试试
用那段也行,但要确保系统安装了office

Answer 2

你的电脑已经有默认程序了呀
你直接i=shell（“C:\Users\znsb\Desktop\苏宁资料\苏宁电器2008年度审计报告.PDF”）
就好了

追问

谢谢，不过不成功。说找不到文件。

Answer 3

i=shell（“start C:\Users\znsb\Desktop\苏宁资料\苏宁电器2008年度审计报告.PDF”）

追问

谢啦~还是不行，我再看看吧，shell语句不太会用。