Sorgu için arama sonuçları: createfolder

çok teşekkürler oldu bu

...GoTo hata ChDir Environ("UserProfile") & "\Desktop\" Dim Ds Set Ds = CreateObject("Scripting.FileSystemObject") Ds.CreateFolder Environ("UserProfile") & "\Desktop\PDF" Bas: Yol = Environ("UserProfile") & "\Desktop\PDF\" Dim syf As Worksheet For Each syf In...

...= Now On Error GoTo hata ChDir Environ("UserProfile") & "\Desktop\" Dim Ds Set Ds = CreateObject("Scripting.FileSystemObject") Ds.CreateFolder Environ("UserProfile") & "\Desktop\PDF" Bas: yol = Environ("UserProfile") & "\Desktop\PDF\" For Each syf In ActiveWindow.SelectedSheets...

...& "\" & MonthName(Month(Sheets("GÜNLÜK DEV.FAAL.").Range("P2"))) If Not Dosya.FolderExists(yol) Then Dosya.CreateFolder (yol) End If If Not Dosya.FolderExists(yılyol) Then Dosya.CreateFolder (yılyol) End If If Not Dosya.FolderExists(ayyol) Then Dosya.CreateFolder...

...& "\" & MonthName(Month(Sheets("GÜNLÜK DEV.FAAL.").Range("P2"))) If Not Dosya.FolderExists(yol) Then Dosya.CreateFolder (yol) End If If Not Dosya.FolderExists(yılyol) Then Dosya.CreateFolder (yılyol) End If If Not Dosya.FolderExists(ayyol) Then Dosya.CreateFolder...

...= CreateObject("Scripting.FileSystemObject") yol = "C:\DEVRİYE TAKİP ÇİZELGELERİ" If Not Dosya.FolderExists(yol) Then Dosya.CreateFolder (yol) End If File_Name = yol & "\" & Sheets("GÜNLÜK DEV.FAAL.").Range("P2") & " TARİHLİ " & Sheets("GÜNLÜK DEV.FAAL.").Range("B5") & " DEVRİYE...

...Set KLS = CreateObject("Scripting.FileSystemObject") Set S1 = Sheets("Bordro Esas") MASAÜSTÜ = MASA.SpecialFolders.Item("Desktop") KLS.createfolder MASAÜSTÜ & "\" & S1.Range("Z18").Text For SY = 1 To 55 S1.Range("B5") = SY S1.ExportAsFixedFormat xlTypePDF, MASAÜSTÜ & "\" &...

...& "_" & [D6].Value & " Vardiyaları )" klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.PageSetup.PaperSize = 281 ActiveSheet.Range("$B$2:$D$34").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _...

..." & [B2].Value & ".pdf" 'dosyaadi = [B2] klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$2:$D$33").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & dosyaadi...

Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=alt_klasor & "\" & pdfdosya_adı & ".pdf" Cevabınızın sorunumu çözdüğünü belirtmiş ve teşekkür etmiştim. Şimdi bir konuda daha yardımınızı rica ediyorum. bu kodun devamına: oluşturulan pdf i açması için nasıl bir kod yazmalyım. Alakanız...

...Set ds = CreateObject("Scripting.FileSystemObject") ThisWorkbook.Save If ds.FolderExists("C:\YEDEKLER") = False Then ds.CreateFolder "C:\YEDEKLER" End If If ThisWorkbook.Path = "C:\YEDEKLER" Then Exit Sub If MsgBox("Dosyanın yedeğini almak istiyor musun?", vbInformation + vbYesNo, "DURUM") =...

...satırından sonrasını aşağıdaki ile değiştirerek dener misiniz? If altklasor_kontrol <> True Then klasor.CreateFolder alt_klasor pdfdosya_adı = Sheets("Rapor").Cells(1, 2) Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=alt_klasor & "\" & pdfdosya_adı & ".pdf" Ben yazarken Üstat...

...anaklasor_kontrol = klasor.FolderExists(ana_klasor) If anaklasor_kontrol <> True Then klasor.CreateFolder ana_klasor End If Rapor.Cells(1, 2) = "Denemepdf" Rapor.Cells(1, 3) = "Deneme" Rapor.Cells(1, 4) =...

...= CreateObject("Scripting.FileSystemObject") Kayıt_Yeri = ThisWorkbook.Path & "\Resimler\" If Not fL.FolderExists(Kayıt_Yeri) Then fL.CreateFolder (Kayıt_Yeri) End If For r = 1 To s1.Cells(Rows.Count, "A").End(3).Row say = fL.GetFolder(Kayıt_Yeri).Files.Count + 1 Resim = Cells(r, 6)...

...İZİN\5 Hizmet Yılını Doldurduğundan\" & Year(Date) & "\" & Cells(i, 2).Value & " - " & Cells(i, 4).Value & "\""" fdObj.CreateFolder folPath doc.SaveAs2 folPath & Cells(i, 2).Value & " - " & Cells(i, 4).Value & ".docx" Else...

Hocam dediğiniz şekilde yaptım, bu sefer fdObj.CreateFolder folPath satırında "Path Not Found" şeklinde hata alıyorum. Halbuki 2022 klasörünü oluşturuyor If fdObj.FolderExists("C:\Users\Semah\Desktop\ÜCRETSİZ İZİN\5 Hizmet Yılını Doldurduğundan\" & Year(Date)) Then...

...İZİN\5 Hizmet Yılını Doldurduğundan\" & Year(Date) \ " & Cells(i, 2).Value & " - " & Cells(i, 4).Value & " \ "" fso.CreateFolder folPath doc.SaveAs2 folPath & Cells(i, 2).Value & " - " & Cells(i, 4).Value & ".docx" Else...

...11) folPath = "C:\Users\Semah\Desktop\ÜCRETSİZ İZİN\5 Hizmet Yılını Doldurduğundan\2022\" & Cells(i, 2).Value & " - " & Cells(i, 4).Value & "\" fso.CreateFolder folPath doc.SaveAs2 folPath & Cells(i, 2).Value & " - " & Cells(i, 4).Value & ".docx" Next i doc.Application.Quit End Sub

...= Range("B1") 'DosyaDizin = Range("B2") ' 'Set BsKlasor = fso.GetFolder(BsDizinAdi) ' 'If fso.FolderExists(BsDizinAdi) = False Then fso.CreateFolder DizinAdi 'Debug.Print bitisKlasor.DateCreated 'If Range("B1") = "" Then Exit Sub 'Dosya/Dizin 'If Range("B3") = "Evet" Then '...

hocam bunu vba makro kodu ile yapabilir miyiz? kullanıcının komut dosyasını çalıştırıp çalıştırmayacağını bilemiyorum.