hücrede adı yazan klasörü açmak

[acolkesen1]

Merhaba arkadaşlar,
D sürücüsündeki ABC klasörü içindeki ismi sayfa1!A1 de yazılı olan bir başka klasörü açmak için gerekli kodlara ihtiyacım var. İlgilenen arkadaşlara teşekkür ederim..

 

[fedeal]

Function FileExists(FullFileName As String) As Boolean
    FileExists = Len(Dir(FullFileName)) > 0
End Function
Sub ss()
dosya = Sheets("sayfa1").Cells(1, 1).Value
If Not FileExists("d:\ABC" & dosya & ".xls") Then
    MsgBox "Aradığınız dosya belirtilen dizinde yok"
Else
    Workbooks.Open "d:\ABC" & dosya & ".xls"
End If
End Sub

kod arşivimizden bir kod,iyi geceler.

 

[acolkesen1]

Merhaba sayın fedeal,
İlginize teşekkür ederim. Sanırım gönderdiğiniz kod ile xls dosyası, yani bir excel çalışma kitabı açılır. Ben ABC klasörü içindeki adı Sayfa1!A1 de yazılı olan bir başka klasörü (Folder) açmak istiyorum. Tekrar teşekkür eder iyi geceler dilerim.

 

[halit3]

alternatif olarak aşağıdaki kodu denermisiniz.

Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long

Sub WinExplorer()
AD = ("d:\ABC\" & Sheets("sayfa1").Cells(1, 1).Value)
On Error Resume Next
If Dir(AD) = "" Then MkDir AD
WinExec "Explorer.exe " & AD, 1
End Sub

 

[acolkesen1]

Merhaba sayın halit3,
Önce ilginize teşekkür ederim. Göndermiş olduğunuz kod kırmızı yazılı olan yerde hata veriyor.Ne olduğunu da anlamadım açıkcası. Bir açıklama yaparsanız sevinirim. İyi çalışmalar.
Sub WinExplorer()
AD = ("d:\ABC\" & Sheets("sayfa1").Cells(1, 1).Value)
On Error Resume Next
If Dir(AD) = "" Then MkDir AD
WinExec "Explorer.exe " & AD, 1
End Sub

 

[halit3]

Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long

kodun üst kısmını almazsan makro çalışmaz