Question

vb中shell打开文件的路径怎么表示？求指教，急！！！！！！！

Dim fd(1)

Sheet1.Range("A:A").Clear

fd(1) = Application.GetOpenFilename(, , , , MultiSelect:=True)

Sheet1.Cells(1, 1) = fd(1)

Shell "c:\windows\Notepad.exe c:\1.txt", vbNormalFocus
如上所示，我已经通过程序获取了文本文件“1.txt”的文件目录存放在cells（1.1）的单元格，下面的Shell "c:\windows\Notepad.exe命令后面的文件路径我需要通过单元格中存放的路径信息来代替，请问代码怎么写？写成Shell "c:\windows\Notepad.exe Sheet1.Cells(1, 1)", vbNormalFocus这样后出现错误，求指教。

Answer 1

病情分析：
您好耳鸣在临床上常采用扩血管药物等治疗，增加局部缺血组织的血流量，减轻血管内膜水肿及改善内淋巴循环，以维持组织细胞的正常功能，
指导意见：
常用的药物有盐酸氟桂利嗪胶囊，维生素、谷维素片一般是可以一起服用的。

Answer 2

字符串连接
"c:\windows\Notepad.exe " & Sheet1.Cells(1, 1)

追问

错着呢，还是不能执行

追答

cells（1.1） 如果只是目录的话还要加上文件名了

"c:\windows\Notepad.exe " & Sheet1.Cells(1, 1) & "\1.txt"

或
"c:\windows\Notepad.exe """ & Sheet1.Cells(1, 1) & "\1.txt""" '可能参数要双引号，两个个都试试。

追问

sheets.cells(1.1)中存放的就是具体路径和文件名 c:\1.txt，你先试试 试好了发出来

追答

可能你在exe后没留空格。