Dosya yolu

schlecht

Altın Üye
Katılım
13 Kasım 2009
Mesajlar
337
Excel Vers. ve Dili
Ofis 2016 TR 64 Bit
Aşağıdaki kod ile dosya seçebiliyorum. Dosya yolunu sabit hale nasıl getirebilirim. Teşekkürler.

Application.ScreenUpdating = False
Cells(2, 1).Select
With Application.FileDialog(msoFileDialogFolderPicker)
On Error GoTo Bitir
.Show
MyFolder = .SelectedItems(1)
Bitir:
If MyFolder = "" Then Exit Sub
End With

MyFile = Dir(MyFolder & "\*.xlsm")
Do While MyFile <> ""

Workbooks.Open Filename:=MyFolder & "\" & MyFile
kit = ActiveWorkbook.Name
For syf = 1 To Sheets.Count
Sheets(syf).Select
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,757
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Kodun tamamını eklermisiniz.
 
Üst