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

...bey'in önerisi doğrultusunda ; 1 nolu mesajımda yer alan kod içerisindeki ;yol = ThisWorkbook.Path bu kısım ; Set dlg = Application.FileDialog(msoFileDialogFolderPicker) Do While dlg.Show <> -1 MsgBox "Klasör seçilmedi." Loop yol = dlg.SelectedItems(1) Kod bloğu ile değiştirilerek çözüm...

...= True .DisplayAlerts = True End With End Sub Sub DizinSec(ByRef Yol As String) Dim fd As FileDialog Set fd = Application.FileDialog(4) '4 = msoFileDialogFolderPicker With fd .ButtonName = "Seçiniz" .InitialFileName = Environ$("USERPROFILE") & "\Desktop\" .InitialView =...

Sayın Nejdet bey, İlginiz için teşekkür ederim. Yalnız dediğiniz şekilde kodları revize ettim, 1- Evet dosya yolu için pencere açıldı klasörü seçtim fakat seçmiş olduğum klasör içerisine kaydedilmedi maalesef oluşturulan dosyalar:-(

...= False .DisplayAlerts = False End With . . . Sub DizinSec(ByRef Yol As String) Dim fd As FileDialog Set fd = Application.FileDialog(4) '4 = msoFileDialogFolderPicker With fd .ButtonName = "Seçiniz" .InitialFileName = Environ$("USERPROFILE") & "\Desktop\" .InitialView =...

Sub txtDosyalariOku() Dim pth$, satir&, bas&, txtFile As Object, txtSatir With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Klasör Seç" .Show If .SelectedItems.Count > 0 Then pth = .SelectedItems(1) Else MsgBox...

...Dim verial As String Dim kitap As Workbook Dim fd As FileDialog Application.ScreenUpdating = False Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Title = "Dosya seç " .Filters.Clear .Filters.Add "Excel Dosyaları", "*.xls*"...

...xFile As Variant Dim rsm As Object Dim gen As Double: gen = CentimetersToPoints(10) On Error Resume Next Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker) If xFileDialog.Show = -1 Then xPath = xFileDialog.SelectedItems.Item(1) If xPath <> "" Then xFile =...

...Dim xFileDialog As FileDialog Dim xPath, xFile As Variant On Error Resume Next Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker) If xFileDialog.Show = -1 Then xPath = xFileDialog.SelectedItems.Item(1) If xPath <> "" Then...

...Dim xFileDialog As FileDialog Dim xPath, xFile As Variant On Error Resume Next Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker) If xFileDialog.Show = -1 Then xPath = xFileDialog.SelectedItems.Item(1) If xPath <> "" Then xFile =...

Merhaba. Dosyayı aşağıdaki kod ile açabilirsiniz. Sub Test() Dim Wb As Workbook With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = False .Filters.Clear .Filters.Add "Excel Dosyaları", "*.xlsx" .Show If .SelectedItems.Count > 0 Then...

...Dim objFolder As Object Dim objFile As Object Dim i As Integer 'Dim fldr As FileDialog Dim klasor_adi As String 'Set fldr = Application.FileDialog(msoFileDialogFolderPicker) 'fldr.Show klasor_adi = fldr.SelectedItems.Item(1) Set objFSO = CreateObject("Scripting.FileSystemObject") 'Get the...

...As Variant: Dim yapistir As Variant: Dim kaynak As Variant Range("A2:E" & Rows.Count).Clear With Application.FileDialog(msoFileDialogOpen) .Filters.Clear .Filters.Add "Microsoft Excel", "*.xls;*.xlsx;*.xlsm;*.xlsb" .AllowMultiSelect...

Hocam teşekkür ederim. Çalıştı kodlar bu şekilde.

Merhaba, Kodu yazmışsınız zaten klasor_adi = Sheets("DWG_LISTESI").Range("E1") Yukarıdaki değişikliği yaptıktan sonra şu satırları da iptal ediniz. Dim fldr As FileDialog Set fldr = Application.FileDialog(msoFileDialogFolderPicker) fldr.Show

Çok teşekkür ediyorum ellerinize sağlık yanlız söyle bir sorun var bazı excel dosyaların içinde sadece data yada sadece komax var oyuzdende hata verıyor sanırım sız hepsınde 2 sı var olarak ayarladınız.birde hata verdiği varyantıda yazma sansımız varmı bu sekılde cunku 50 60 excel dosyasında tek...

...Aktarıldı....", vbInformation End Sub Function DizinYoluBul(ByRef DizinYolu As Variant) Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFolderPicker) fd.Show If fd.SelectedItems.Count > 0 Then DizinYolu = fd.SelectedItems(1) End Function Sub TumDosyalariListele(Yol As...

Hocam hem desteğiniz hem de hoşgörünüz için teşekkür ederim. Göremediğim içinse üzgünüm, özür dilerim. Yazmış olduğunuz kod gayet güzel çalışıyor. Çok teşekkür ederim. Tıkır tıkır maşallah :) Tekrar teşekkür ederim.

...Dim fd As FileDialog Dim dsy As Variant Dim adt As Long Application.ScreenUpdating = False Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Filters.Clear .InitialFileName = "C:\" .AllowMultiSelect = True...

....Left = resimSol End With End Sub Function ResimDosyasiSec() As String Dim lngCount As Long With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = False 'True .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 2 .Show For lngCount =...

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