2014-05-14 56 views
0

目前我有這樣的代碼:Excel宏插入我目前正在使用的行的rownumber?

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,而這個路徑被插入在我的Excel文件「B1」。上述常規代碼將打開該pdf文檔。

現在我的問題是O有78987行,其中o需要從特定行我站在在B柱打開位置。

+1

您能否對您要實現的目標更精確一點? B列中有很多文件名,並且點擊想要打開選定文件名的按鈕? – MP24

+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 
+0

問題: 程序如何知道我需要從字符串B(它現在只說ActiveCell)抓住字符串? –

+0

您可以使用'Range'對象的'offset'方法來獲取B列單元格的'Range'對象:只需將我修改的代碼中的'ActiveCell'更改爲'ActiveCell.Offset(0,2 - ActiveCell。列)'。這裏,2表示第二列,即列B; '2 - ActiveCell.Column'計算偏移值。 –

+0

你先生是一個真正的紳士和學者 - 一切正常! :) –