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

Forumda aşağıdaki kodları buldum. Yeni bir excel de çalıştırın dosyalarınızın olduğu klasörü seçin içinde olan dosyaların adını ve uzantısını listeliyor. Ordan bakıp bilgi edinmeye çalışalım.

Merhaba teşekkür ediyorum fakat excel dosyaların içinde bazılarında 2 sayfa var ve isimleri data , komax bu komaxtaki bazı veriler sizin makrodada almamış örnek veriyorum 0535 varyantındaki bu kabloları eklememiş 0522.1-1 0,5 BU 1740 X3707/X1 21A07/X1 A 619 540 05 35 A 619 540 20 13...

...Workbook Dim WsSource As Worksheet Dim WsDest As Worksheet Dim LastRow As Long Dim DestRow As Long With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Bir klasör seçin" .Show If .SelectedItems.Count = 0 Then Exit Sub FolderPath...

Dim s2 As Worksheet Dim dosya As Variant Set w1 = ThisWorkbook Set s1 = w1.Worksheets("Çalışma sayfası adını yazın") With Application.FileDialog(msoFileDialogOpen) .InitialFileName = "veri alınacak dosya yolunu yazın" .Title = "Dosya Seç" .ButtonName = "Seç" .Filters.Clear...

...Set xDoc = CreateObject("MSXML2.DOMDocument") xDoc.async = False xDoc.validateOnParse = False With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = False .InitialFileName = ThisWorkbook.Path .Filters.Add "Beyanname", "*.xml", 1...

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

...kopya 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"...

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