فتح مسار معين في كل مرة

[Akram Galal]

السلام عليكم ورحمه الله وبركاته
تحية طيبة على جميع أعضاء المنتدى

أريد كود يقوم بفتح مسار معين مثلا المجلد "صور" الموجود في البارتشن D
جزاكم الله خيرا.

 

[رامي الخبيري]

• الحل منقول للأمانة :-

Sub  Example()
Dim  intChoice As  Integer 

'Select the start folder 
Application.FileDialog(msoFileDialogOpen _
 ).InitialFileName = "D:TempFolder to Start" 
'make the file dialog visible to the user 
intChoice = Application.FileDialog(msoFileDialogOpen).Show
'determine what choice the user made 
If  intChoice <> 0 Then 
 'your code here 
End If 
End  Sub 

 

[Ali Mohamed Ali]

وعليكم السلام

تفضل ولكن عليك بتغيير المسار داخل الكود الى ما تريده

Sub openwb()
    Dim sPath As String, sFile As String
    Dim wb As Workbook

    sPath = "D:\sarath\PTMetrics\20131004\D8 L538-L550 16MY\"
    sFile = sPath & "D8 L538-L550_16MY_Powertrain Metrics_20131002.xlsm"

    Set wb = Workbooks.Open(sFile)
End Sub

 

[رامي الخبيري]

• الحل منقول للأمانة :-

Sub Button2_Click()
Dim intChoice As Integer
Application.FileDialog(msoFileDialogOpen _
 ).InitialFileName = "D:TempFolder to Start"
intChoice = Application.FileDialog(msoFileDialogOpen).Show
If intChoice <> 0 Then
End If
End Sub

 

[Akram Galal]

اشكركم على تعاونكم

جزاكم الله خيرا