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

...fdgPicker As FileDialog fPath = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") ChDrive fPath Set fdgPicker = Application.FileDialog(msoFileDialogFilePicker) With fdgPicker .InitialView = msoFileDialogViewThumbnail .Filters.Add "Graphics Files (*.bmp; *.gif; *.jpg; *.jpeg)"...

...Dim sKlasor As String, sDosya As String Dim kadar uzun vFiltreler yok Çalışma kitabı olarak wWB'yi karart Application.FileDialog(msoFileDialogOpen) ile .AllowMultiSelect = Yanlış .InitialFileName = ThisWorkbook.Path Eğer .Show = -1 ise sDosya =...

...görseli kaydediyorum. Private Sub CommandButton13_Click() On Error GoTo bitir Dim imagelocation As String Dim j As String Application.FileDialog(msoFileDialogOpen).Show Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False imagelocation =...

...[A1].Resize(, 4).Value = Array("File Name", "Dimensions", "Horizontal Resulution", "Vertical Resulution") sat = 2 With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Select the Folder..." .AllowMultiSelect = False If .Show Then Set...

...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 =...