目前我有这段代码:
Private Sub Command1_Click()
Dim RetVal
Fil = Range("B1")
RetVal = Shell("C:\Program Files (x86)\Adobe\Reader 10.0\Reader\acrord32.exe" & " " & Fil, 1)
End Sub
如果我有一个位于文件夹中的文件,请说c:\ temp \ mappe.pdf,此路径插入" B1"在我的excel文件中。上述常规代码将打开该pdf文档。
现在我的问题是O有78987行,其中O需要打开我所代表的特定行中B列的位置。
答案 0 :(得分:1)
尝试ActiveCell
,这是当前选择的内置Range
对象。您的代码重写为
Private Sub Command1_Click()
Dim RetVal
RetVal = Shell("C:\Program Files (x86)\Adobe\Reader 10.0\Reader\acrord32.exe" & " " & ActiveCell, 1)
End Sub