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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

...Dim AktifDosya As Workbook Dim Dosya As Workbook Dim DosyaAdi Set AktifDosya = ActiveWorkbook With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Title = "Birleştirilecek Dosyaları Seçin" If .Show Then...

...Dim AktifDosya As Workbook Dim Dosya As Workbook Dim DosyaAdi Set AktifDosya = ActiveWorkbook With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Title = "Birleştirilecek Dosyaları Seçin" If .Show Then...

Private Sub CommandButton1_Click() With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Title = "Select an image file" .Filters.Clear .Filters.Add "JPG", "*.JPG" .Filters.Add "JPEG File Interchange Format", "*.JPEG"...

Haluk bey, Harika, çok teşekkür ederim. Keşke bir sürü bişey yerine direkt olarak bu kodlamayı yazsaydınız, tanışmamız daha keyifli olacaktı. Madem cevap yazdınız, o halde ekstra bir isteğim olacak, lütfederseniz. "Klasör seçin..." kodlaması yerine, otomatik olarak İCMAL dosyasının da içinde...