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

  1. mancubus

    A sütununa göre aynı isimdeki satırları filtreleyip farklı dosya olarak kaydetme

    ...Dim sKlasor As String, sDosya As String Dim i As Long Dim vFiltreler Dim wWB As Workbook With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = False .InitialFileName = ThisWorkbook.Path If .Show = -1 Then sDosya = .SelectedItems(1)...
  2. ÖmerFaruk

    AutoCAD VBA Block Kaydetmek

    incelemenizi öneririm. https://macronimbus.com/file-dialogs/ Forumda da örnek dosyalar mevcut. https://excel.web.tr/search/169946/?q=Application.FileDialog&o=date
  3. R

    Soru Belirli Hücrelere Makro İle Sıralı Fotoğraf Ekleme

    ...dosyayukle() Dim satir As Long Dim xDirect$, xFname$, InitialFoldr$ say = 0 InitialFoldr$ = ActiveWorkbook.Path With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = Application.DefaultFilePath & "\" .Title = "Please select a folder to list Files from"...
  4. 1Al2Ver

    Seçilen Klasörden Dosya İsimlerini Almak

    ...= "Arial" .FontStyle = "Bold" .Size = 10 End With Cells(I, 1).EntireColumn.AutoFit Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker) If xFileDlg.Show = -1 Then xFileDlgItem = xFileDlg.SelectedItems.Item(1) xFileName =...
  5. M

    Kapalı CSV Dosyasından Veri Çekmek

    Hocam dosyanız ile aşağıdaki excelden dosya almaya çalışıyorum. ADO ile çok daha hızlı olduğunu anladım. Aslında halit hocamın kodları ile alabiliyorum ama ADO ile mümkün mü?
  6. seckinb

    Soru Sadece son 1 ay içindeki değerleri kopyalamak

    ...mainFolder = FSO.getFile(ThisWorkbook.FullName).parentFolder.parentFolder.parentFolder.Path & "\LU177_TATE" Set FD = Application.FileDialog(msoFileDialogFilePicker) With FD .Title = "Seçim yapın..." .AllowMultiSelect = False .InitialFileName = mainFolder...
  7. ÖmerBey

    Döküman Adını Excell Hücresine Otomatik Getirme

    ...As Double Dim dosya As String, link As String Dim objFSO As Object 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") Set R =...
  8. S

    Döküman Adını Excell Hücresine Otomatik Getirme

    ...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 folder...
  9. ÖmerBey

    Döküman Adını Excell Hücresine Otomatik Getirme

    ...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 folder...
  10. M

    Macro ile Bul yan satırına belirtilen açıklamayı yaz

    Çok teşekkür ederim zahmet verdim 🙏🙏🙏
  11. Korhan Ayhan

    Macro ile Bul yan satırına belirtilen açıklamayı yaz

    ...Say As Long Set S1 = ThisWorkbook.Sheets("Sayfa1") Son = S1.Cells(S1.Rows.Count, 1).End(3).Row With Application.FileDialog(msoFileDialogOpen) .Filters.Clear .Filters.Add "Excel Files", "*.xl*", 1 .FilterIndex = 1 .InitialFileName =...
  12. S

    Döküman Adını Excell Hücresine Otomatik Getirme

    ...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 folder...
  13. 1Al2Ver

    Klasörden Dosya İsimlerini Almak

    ....Name = "Arial" .FontStyle = "Bold" .Size = 10 End With Cells(I, 1).EntireColumn.AutoFit Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker) If xFileDlg.Show = -1 Then xFileDlgItem = xFileDlg.SelectedItems.Item(1) xFileName =...
  14. C

    USERFORM'DAN SAYFA ÜST / ALT BİLGİ GÖNDERMEK

    ...FD As FileDialog Dim FFs As FileDialogFilters Dim stFileName As String Dim vaItem On Error GoTo Problem Set FD = Application.FileDialog(msoFileDialogOpen) With FD Set FFs = .Filters With FFs .Clear .Add "Pictures", "*.jpg" End With...
  15. T

    Soru İçeri/Dışarı Tek Tek veya Toplu Sayfa Transferi

    ...kaynak dosya içerisine aktarıyor Private Sub CommandButton1_Click() Set x = CreateObject("Scripting.FileSystemObject") With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Show If .SelectedItems.Count = 0 Then Exit Sub dosya = .SelectedItems(.SelectedItems.Count) If...
  16. F

    CSV formatindaki dosyayi ayni isimle kaydetme

    ...yardimlariniz icin cok tesekkurler. Sub File_Loop_Example() Dim MyFolder As String, MyFile As String With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = False .Show MyFolder = .SelectedItems(1) Err.Clear End With...
  17. M

    Farklı Excel Çalışma Sayfalarını Tek Sayfa da birleştirmek

    ...Dim WS As Worksheet Dim myfolder As String Dim Str As String Dim a As Single Dim sht As Worksheet Set WS = Sheets.Add With Application.FileDialog(msoFileDialogFolderPicker) .Show myfolder = .SelectedItems(1) & "\" End With chk = 0 Value = Dir(myfolder) Do Until Value = "" If...
  18. M

    Kapalı PDF Dosyasından Dolu Hücrelerdeki Verileri Almak

    Alternatif bir çözüm. Sub PDFtoExcel() On Error Resume Next Dim dosyaYolu As String With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False If .Show <> 0 Then dosyaYolu = .SelectedItems(1) Dim wrdApp As...
  19. M

    Soru Kapalı Dosyadan Dolu Hücrelerdeki Verileri Almak

    Deneyiniz. Sub verilirAl() Dim dosyaYolu As String With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False If .Show <> 0 Then dosyaYolu = .SelectedItems(1) Dim kaynakDosya As Workbook Set...
  20. tamer42

    File Dialog' da Dosya Full Name yerine File Name alma

    Halit Hocam burada klasör seçerken veriyor, benim aradığım dosya seçimi yaptığımda, ilgili dosyanın yolunu verecek. teşekkürler, iyi akşamlar.
Üst