Sorgu için arama sonuçları: Application.FileDialog

...ile işinizi görebilirsiniz... Sub DosyaYoluBul() Dim fd As FileDialog Dim vrtSelectedItem As Variant Set fd = Application.FileDialog(msoFileDialogFolderPicker) With fd If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems...

...Dim Baslik As String Dim Hucre1, Hucre2 As Range Set ilk = Application.ActiveWorkbook Baslik = "ExceldenExceleVeriCek" With Application.FileDialog(msoFileDialogOpen) .Filters.Clear .Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa" .AllowMultiSelect = False .Show If...

...benim yazdığım koddaki gibi her seferinde klasör sorması için ilgili kodu nereye yazmam gerekir ? Dim klasor As String With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Lütfen Kayıt Klasörünü Seçiniz" If .Show = -1 Then klasor = .SelectedItems(1)...

...cevap vermiyor. bu kodu sütundaki tüm satırlar için döndürmem lazım Sub PDFKayıtetme() Dim klasor As String With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Lütfen Kayıt Klasörünü Seçiniz" If .Show = -1 Then klasor = .SelectedItems(1)...

...Kopyalanacak_Klasör_Yolu = ActiveWorkbook.Path & "/Foto" Yeni_Dosya_Adi = Kayit_Sayfasi.Range("ID").Text Set Resim_Sec = Application.FileDialog(msoFileDialogOpen) Resim_Sec.Filters.Clear Resim_Sec.AllowMultiSelect = False Resim_Sec.Filters.Add "Resim Dosyaları(.jpg)", "*.jpg"...

Dim pencere As FileDialog Set pencere = Application.FileDialog(msoFileDialogOpen) pencere.Filters.Clear pencere.AllowMultiSelect = False pencere.Filters.Add "Resim Dosyaları(.jpg, .jpeg, .png)", "*.jpg, *.jpeg, *.png" pencere.Title = "Resim Seç" ile seçtiğim bir dosyayı, yine aktif kitabın...

...Object, Alt_Klasorler As Object, Say As Long, Onay As Byte, Zaman As Double Sub Klasor_Secimi() Say = 0 With Application.FileDialog(msoFileDialogFolderPicker) If .Show = -1 Then Call Dosyalari_Sil(.SelectedItems(1), True) End If End With...

...Örnek dosya ektedir Public konumSat As Integer Public konumSut As Integer Sub DosyaListeYapı() konumSat = 0 konumSut = 0 Application.FileDialog(msoFileDialogFolderPicker).Show Range("B1").Value = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)...

merhabalar zeki bey kod için teşekkürler çalıştır dedigimde bu hatayı verdi

...Set xDoc = CreateObject("MSXML2.DOMDocument") xDoc.async = False xDoc.validateOnParse = False Set MyFolder = Application.FileDialog(msoFileDialogFolderPicker) If MyFolder.Show <> 0 Then Set SourceFolder = FSO.GetFolder(MyFolder.SelectedItems(1)) Else...

...Set xDoc = CreateObject("MSXML2.DOMDocument") xDoc.async = False xDoc.validateOnParse = False Set MyFolder = Application.FileDialog(msoFileDialogFolderPicker) If MyFolder.Show <> 0 Then Set SourceFolder = FSO.GetFolder(MyFolder.SelectedItems(1)) Else...

...As Variant, Dosya_Adi As Variant Set Dosya_Sistemi = CreateObject("Scripting.FileSystemObject") Set Dosya_Secimi = Application.FileDialog(msoFileDialogFilePicker) With Dosya_Secimi .AllowMultiSelect = True .Title = "Lütfen dosya seçiniz..." If...

...Sub Kopyalama() Dim fso As Object Dim D_Adı As String Set fso = VBA.CreateObject("Scripting.FileSystemObject") With Application.FileDialog(msoFileDialogFilePicker) .Title = "Dosya Seçiniz" If .Show = True Then dosya = .SelectedItems(1) End If End With D_Adı =...

...kopyalamak bu bümkünmü. Sub Kopyalama() Dim fso As Object Set fso = VBA.CreateObject("Scripting.FileSystemObject") With Application.FileDialog(msoFileDialogFilePicker) .Title = "Dosya Seçiniz" If .Show = True Then dosya = .SelectedItems(1) End If End With...

@Haluk Bey Merhaba, Burada Windows Gezgininde görünen yazarlar veya diğer adıyla sahibi kısmını da excele nasıl yazdırabiliriz ?

Üstat bu şekilde sadece xlsx dosyamı aldı kodun içine girip xlsx silip xls yaptım ama gene xlsx aldı. Dosya sayım 30 un üzeri olduğu için convert yapamıyorum ücretli üyelik istiyor rica etsem bunu xls olarak formülü revize edebilir miisiniz ya da neresini değiştreyim . Ben şu kısımdaki fl =...

sizin örneğiniz kodlar şu şekilde olmalıdır. Deneyiniz. Sub merge() Dim f As String Dim fl As String Dim wb As Workbook With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Birleştirilecek dosyaların olduğu klasörü seçin" .ButtonName = "Dosya Seç" If .Show = 0 Then Exit Sub...

deneyiniz. Sub merge() Dim f As String Dim fl As String Dim wb As Workbook With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Birleştirilecek dosyaların olduğu klasörü seçin" .ButtonName = "Dosya Seç" If .Show = 0 Then Exit Sub Else f = .SelectedItems(1) & "\"...

...Sub LoopThroughFiles() Dim xFd As FileDialog Dim xFdItem As Variant Dim xFileName As String Set xFd = Application.FileDialog(msoFileDialogFolderPicker) If xFd.Show = -1 Then xFdItem = xFd.SelectedItems(1) & Application.PathSeparator xFileName = Dir(xFdItem...

...Dim xmlKlasor As String, xmlDosyalar As String, xmlDosya As String With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = False .InitialFileName = ThisWorkbook.Path If .Show = -1 Then xmlKlasor = .SelectedItems(1) & "\" Else Exit Sub...