Hücrede yolu yazan dosyayı açmak?

[oguzka]

Bugün çok soru soruyorum sanırım ama bunu halledersem gerisi hallolcak arkadaşlar. Excelde sayfa1 içerisinde örneğin (3,5) hücresinde dosyanın yolu tam olarak yazıya ve ben bir command box ile bu dosyayı açmak istiyorum. Yardımlarını bekliyorum...

 

[halit3]

Bugün çok soru soruyorum sanırım ama bunu halledersem gerisi hallolcak arkadaşlar. Excelde sayfa1 içerisinde örneğin (3,5) hücresinde dosyanın yolu tam olarak yazıya ve ben bir command box ile bu dosyayı açmak istiyorum. Yardımlarını bekliyorum...

E3 hücresine dosya yolunu yaz

kod

Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Private Sub CommandButton1_Click()
AD = Cells(3, "E").Value
On Error Resume Next
If Dir(AD) = "" Then MkDir AD
WinExec "Explorer.exe " & AD, 1
End Sub

 

[oguzka]

Halit Bey; çok teşekkür ederim. Ellerinize sağlık. İşimizi gördü.