Sorgu için arama sonuçları: mkdir

...& "\" & Sheets(x).Name & ".pdf" klasorYol = ThisWorkbook.Path & "\" & Sheets(x).Name If Dir(klasorYol, vbDirectory) = "" Then MkDir klasorYol End If Sheets(x).ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol Next MsgBox "İşlem tamamlandı." Exit Sub hata: MsgBox...

...kaydedileceği tam yolunuzu yazın ' Klasörün var olup olmadığını kontrol edin, yoksa oluşturun If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath End If ' Her bir sayfayı PDF olarak kaydet For Each ws In ThisWorkbook.Worksheets pdfPath = folderPath & ws.Name & ".pdf"...

Chatcpt kod yazabiliyor mu? :)

...= Environ("USERPROFILE") & "\Desktop\resim\" ' Create directory if not exist If Dir(imgPath, vbDirectory) = "" Then MkDir imgPath End If ' Generate image name imgNumber = 1 Do While Dir(imgPath & "resim" & imgNumber & ".png") <> "" imgNumber =...

Hocam eline sağlık kod çalıştı.

...Set kls = CreateObject("Scripting.FileSystemObject") yol = "D:\YEDEKLER\" & Format(Date, "YYYYMMDD") If kls.FolderExists(yol) = False Then MkDir (yol) ThisWorkbook.SaveCopyAs yol & "\" & Format(Now, "hhnnss") & ".xlsm" sil = "D:\YEDEKLER\" & Format(Date - 4, "YYYYMMDD") If...

...myFolder = "C:\Users\" & Environ("UserName") & "\Desktop\BURAK" If VBA.Len(Dir(myFolder, vbDirectory)) = 0 Then MkDir myFolder End If On Error Resume Next Kill myFolder & "\*.xls?" On Error GoTo 0 Set sh1 = ThisWorkbook.Sheets("Cari") lColumn =...

...= False myFolder = "C:\Users\" & Environ("UserName") & "\Desktop\BURAK" If VBA.Len(Dir(myFolder, vbDirectory)) = 0 Then MkDir myFolder End If On Error Resume Next Kill myFolder & "\*.xls?" On Error GoTo 0 Set sh1 = ThisWorkbook.Sheets("Cari")...

...yoksa klasörü oluştur If Dir(ParcaFolder, vbDirectory) <> "" Then CleanUpTempFiles ' Geçici dosyaları temizle Else MkDir ParcaFolder ' Klasörü oluştur End If ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality _...

...temizle On Error Resume Next Kill ParcaFolder & "\*.*" On Error GoTo 0 Else ' Klasör yoksa oluştur MkDir ParcaFolder End If ' Pdf Dosyasını Tek Tek Sayfalarını ParcaFolder a kaydet ' Pdf zaten tek sayfaysa hiçbir işleme gerek yok...

...Object Set fso = CreateObject("Scripting.FileSystemObject") ' Klasör mevcut değilse, oluştur If Not fso.FolderExists(KlasorYolu) Then MkDir KlasorYolu End If End Sub Güzel bir arayüz yapabirsem sanırım kullanışlı(en azından benim için) bir Excel eklentisi (xlam)...

...On Error Resume Next TempFilePath = Environ$("temp") & "\RangePic\" If Len(VBA.Dir(TempFilePath, vbDirectory)) = False Then VBA.MkDir TempFilePath End If Set xAcSheet = Application.ActiveSheet For Each xSheet In Application.Worksheets xSheet.Activate...

...yol = Environ("USERPROFILE") & "\Desktop\OKUL_MUHASEBE_BÜRO_KLASÖRLERİ\KBS_YÜKLEME" If Not fso.FileExists(yol) Then On Error Resume Next MkDir (yol) On Error GoTo 0 End If isim = Format(Date, "mmmm") & " " & Format(Date, "yyyy") & " " & okuladi & " " & " KBS YÜKLEME DOSYASI"...

...& "\Desktop\OKUL-MUHASEBE_BÜRO_KLASÖRLERİ\ÜCRETLİ_ÖĞRETMEN_PUANTAJLARI" If Not fso.FileExists(yol) Then On Error Resume Next MkDir (yol) On Error GoTo 0 End If isim = okuladi Application.DisplayAlerts = False wbkopya.SaveAs yol & "\" & isim & ".xls", FileFormat:=56...

...folderPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Yeni Klasör\" If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath End If Set exportRange = Range("AM1:AZ41") For Each ws In ThisWorkbook.Sheets fileName...

...folderPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Yeni Klasör\" If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath End If For Each ws In ThisWorkbook.Sheets fileName = folderPath & ws.Name & ".pdf"...

...= startPath & Application.PathSeparator & myName1 & " " If Dir(folderPathWithName, vbDirectory) = vbNullString Then MkDir folderPathWithName Else MsgBox "Folder already exists" Exit Sub End If Aktivesheet.SaveAs MkDir ile olusturulan klasörün icine...

...Yol = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & "\" & klasor If fL.FolderExists(Yol) = False Then MkDir Yol End If Say = fL.getfolder(Yol).Files.Count + 1 ' Kullanıcının tercihini alın Dim tercih As String tercih = UCase(InputBox("PDF...

...= Format(Now, "dd/mm") Yol = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & "\" & klasor If fL.FolderExists(Yol) = False Then MkDir Yol End If Say = fL.getfolder(Yol).Files.Count + 1 Sheets(Array("Terfi Onay Formu")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF...

Hocam Country bir Variant bende. String değil. For döngüsü ile satıra göre sürekli değişiyor. Evet Country değişkeni türkçe karakter içeren bir ülkeye eşit olduğu zaman linkteki dosyayı kopyalamıyor. Yukarıdaki kodlamanızı test ettim. Klasör yolundan bağımsız hata veriyor. Aslında klasör...