VBA 'da folder açma komutu

[parcequil]

Belki sorum çok basit olacak ama kendim bir türlü bulamadım.
VBA 'da bir folder adresini bir tuşa atayıp, o tuşla excel den bu folder açmak istiyorum, Workbooks yerine ne yazmam lazım onu bulamadım.
yazdığım komut kısaca aşağıda

Teşekkürler.


Private Sub CommandButton10_Click()
Dim adres9
adres9 = "\\xxxxxxxx\xxxxxx\xxxxxx\arsiv"
Workbooks.Open (adres9)
End Sub

 

[mustafaine1]

dim adres9 bolumunu

dim adres9 as string
Call Shell("explorer.exe " & str_folder, vbNormalFocus)

olarak degistirip Workbooks.Open (adres9) bolumunu silebilirsiniz..

 

[halit3]

Belki sorum çok basit olacak ama kendim bir türlü bulamadım.
VBA 'da bir folder adresini bir tuşa atayıp, o tuşla excel den bu folder açmak istiyorum, Workbooks yerine ne yazmam lazım onu bulamadım.
yazdığım komut kısaca aşağıda

Teşekkürler.


Private Sub CommandButton10_Click()
Dim adres9
adres9 = "\\xxxxxxxx\xxxxxx\xxxxxx\arsiv"
Workbooks.Open (adres9)
End Sub

birde bunu deneyiniz.

Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Private Sub CommandButton10_Click()
AD ="\\xxxxxxxx\xxxxxx\xxxxxx\arsiv"On Error Resume Next
If Dir(AD) = "" Then MkDir AD
WinExec "Explorer.exe " & AD, 1
End Sub

 

[parcequil]

Mesajlara yeni bakabildim, Kusura bakmayın.

Cevaplar için çok teşekkürler tam olarak işimi gördü.