Sorgu için arama sonuçları: createfolder

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

...strFolderTest = strDesktop & "\Backup" If objFSO.FolderExists(strFolderTest) = False Then On Error Resume Next objFSO.CreateFolder(strFolderTest) If Err.Number <> 0 Then If Err.Number = 53 Then Err.Clear WScript.quit(1) End If End If...

muygun hocam ilgilendiğiniz için çok teşekkür ederim. verdiğiniz kodlar sorunsuz çalıştı. Fakat aynı işlemi C sürüsündeki ÖRNEK adlı klasör için yapmayı denedim olmadı. Sub gizle() Application.ScreenUpdating = False 'On Error Resume Next yol = "C:\ÖRNEK" SetAttr yol & "\ÖRNEK", vbHidden +...

...klasor = "ÖRNEK" klasorara = nesne.FolderExists(yol & "\" & klasor) If klasorara = False Then nesne.CreateFolder yol & "\" & klasor Call gizle Application.ScreenUpdating = True End Sub Sub gizle() Application.ScreenUpdating = False On Error Resume Next yoll =...

...olacak hocalarıma şimdiden teşekkür ederim. Set nesne = CreateObject("Scripting.FileSystemObject") yol = CreateObject("Wscript.Shell").SpecialFolders("Desktop") klasor = "ÖRNEK" klasorara = nesne.FolderExists(yol & "\" & klasor) If klasorara = False Then nesne.CreateFolder yol & "\" & klasor

...Then BilgiMesajı = MsgBox("2022_Masraflar" & vbNewLine & "Adlı Klasör Mevcut", vbInformation, "Bilgi Mesajı") Else Klasör.createfolder Klasöryolu BilgiMesajı = MsgBox("2022_Masraflar" & "Klasörü Açılmıştır", vbInformation, "Bilgi Mesajı") End If On Error Resume Next...

çok teşekkür ederim işimi gördü elinize sağlık