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

  1. 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...
  2. 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...
  3. 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...
  4. 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.
  5. halit3

    File Dialog' da Dosya Full Name yerine File Name alma

    Bunu bir dene Private Sub CommandButton1_Click() Dim fd As FileDialog Dim FileName As String Set fd = Application.FileDialog(msoFileDialogOpen) fd.InitialFileName = ThisWorkbook.Path Dim FileChosen As Integer FileChosen = fd.Show fd.Title = "Dosya Penceresi" fd.InitialView =...
  6. halit3

    File Dialog' da Dosya Full Name yerine File Name alma

    Klasör yolu Private Sub CommandButton1_Click() Set folder = Application.FileDialog(msoFileDialogFolderPicker) With folder .Title = "Klasör Açma Penceresi" .InitialFileName = ThisWorkbook.Path .AllowMultiSelect = False If .Show <> -1 Then GoTo 1 MsgBox .SelectedItems(1) 1 End With End Sub
  7. tamer42

    File Dialog' da Dosya Full Name yerine File Name alma

    ...fd.SelectedItems(1) kodu üzerinde nasıl bir düzenleme yapmak gerekir? Dim fd As FileDialog Dim FileName As String Set fd = Application.FileDialog(msoFileDialogOpen) fd.InitialFileName = ThisWorkbook.Path Dim FileChosen As Integer FileChosen = fd.Show fd.Title = "Dosya Penceresi"...
  8. H

    Makro ile pdf dosyasını seçerek maille gönderme

    ...fPath = ThisWorkbook.Path ChDrive fPath ChDir fPath 'Create a FileDialog object as a File Picker dialog. Set fdgPicker = Application.FileDialog(msoFileDialogFilePicker) With fdgPicker .InitialView = msoFileDialogViewThumbnail .Filters.Add "Dosya(*.pdf)", "*.pdf" .FilterIndex = 1 If...
  9. T

    UserForm a alınan resmin boyutunu ayarlamak

    ...Bu makro resmi userforma yüklüyor.Sub UserForm_Resim() Dim yol yol = ActiveWorkbook.Path & "\TK_Foto\" & [A1] With Application.FileDialog(msoFileDialogOpen) UserForm1.Show 0 UserForm1.Picture = LoadPicture("") UserForm1.Picture =...
  10. halit3

    Userforma belirli alanın resmini yapıştırmak

    evet eksik var Sub UserForm_Resim1() Dim yol1 yol1 = ActiveWorkbook.Path & "\TK_Foto\" & [B1] & ".jpg" With Application.FileDialog(msoFileDialogOpen) UserForm1.Show 0 UserForm1.Picture = LoadPicture("") UserForm1.Picture = LoadPicture(yol1)...
  11. T

    Userforma belirli alanın resmini yapıştırmak

    ...Çok teşekkür ederim. Sub UserForm_Resim1() Dim yol1 yol1 = ActiveWorkbook.Path & "\TK_Foto\" & [B1] & ".jpg" With Application.FileDialog(msoFileDialogOpen) UserForm1.Show 0 UserForm1.Picture = LoadPicture("") UserForm1.Picture =...
  12. Muzaffer Ali

    Son kullanıcının exceli makrolu olarak kaydetmesi için gerekli kod nedir?

    ...String Dim fPath As String tDate = VBA.Format(DateSerial(Year(Date), Month(Date), Day(Date)), "dd-mm-yyyy") With Application.FileDialog(msoFileDialogSaveAs) .AllowMultiSelect = False .FilterIndex = 2 .Show If .SelectedItems.Count <> 0 Then...
  13. E

    Son kullanıcının exceli makrolu olarak kaydetmesi için gerekli kod nedir?

    ...filefilter:="Excel Files(*.xlsm),*.xlsm", Title:="Please save the file") With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = False .Show If .SelectedItems.Count <> 0 Then fPath = .SelectedItems(1) & "\" ActiveWorkbook.SaveAs fPath & tDate & ".xlsm"...
  14. gicimi

    Seçilen Klasör Altındaki Dosya Adları

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

    Dosya Adını değiştirme

    ...Texbox1 deki değerin olmasını istiyorum, bunu yapamadım. Destek olabilir misiniz? Dim DosyaAc As FileDialog Set DosyaAc = Application.FileDialog(msoFileDialogFilePicker) With DosyaAc .AllowMultiSelect = False .ButtonName = "Çizimi Yükle" .InitialView = msoFileDialogViewList .Title = "Resim...
  16. M

    Soru Kaynak.xlsm dosyasından Hedef.xlsm dosyasına Veri aktar

    ...xBook As Workbook Dim xRang1 As Range Dim xRang2 As Range Set xWb = Application.ActiveWorkbook Başlık = "Excelden Excele" With Application.FileDialog(msoFileDialogOpen) .Filters.Clear .Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa" .AllowMultiSelect = False .Show If...
  17. genesis_vision

    Makro revize

    ...bagEkle() Dim FD As FileDialog Dim str As Long Dim c, rng As Range Dim xstart, xfinish As Date Dim xPath As String Set FD = Application.FileDialog(msoFileDialogFolderPicker) If FD.Show = -1 Then xPath = FD.SelectedItems(1) End If Set FD = Nothing If xPath = "" Then Exit...
  18. seckinb

    Soru Parent directory'e ulaşıp oradan farklı bir klasörü seçmek

    Elinize sağlık, Şimdi o adresteki veriyi buraya almak için kodumu modifiye edeceğim. Birden fazla tedavi alan hastaların verisini birbirine aktarmak için kullanıyorum. Teşekkürler ^^.
  19. H

    Soru Parent directory'e ulaşıp oradan farklı bir klasörü seçmek

    ...mainFolder = FSO.getFile(ThisWorkbook.FullName).parentFolder.parentFolder.parentFolder.Path Set FD = Application.FileDialog(msoFileDialogFilePicker) With FD .Title = "Seçim yapın..." .AllowMultiSelect = False .InitialFileName = mainFolder .Filters.Add...
  20. erdalkoccc

    xls dosyasını xlsx çevirme

    ...Dim InputXlsFile As String Dim MyOpenedXlsFile As Workbook Dim ConvertedXlsxlFile As String Set OpenSourceFolder = Application.FileDialog(msoFileDialogFolderPicker) Set OpenTargetFolder = Application.FileDialog(msoFileDialogFolderPicker) 'Excel dosyalarının bulunduğu klasörü seçme kodu...
Üst