Sorgu için arama sonuçları: createfolder

..."a") <> "" Then Set kls = CreateObject("Scripting.FileSystemObject") yol = ThisWorkbook.Path & "\" & Cells(sat, "a") a = kls.FolderExists(yol) ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=yol kls.CreateFolder yol End If End If End Sub Şeklinde değiştirerek deneyin. İyi çalışmalar.

...yol = ThisWorkbook.Path & "\" & Cells(sat, "a") a = kls.FolderExists(yol) ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=yol kls.CreateFolder yol End If End Sub Kodlarını ekleyin ve dosyanızı kaydedin. Sonra A sütununda bir isim yazarak deneyin. İyi çalışmalar.

...Klasör var, klasör oluşturulamıyor... Mevcut Klasörün İsmini Değiştirerek Tekrar Deneyiniz...", vbCritical Exit Sub End If ds.CreateFolder "Z:\_a\b\c\d\e\" & DateString1 xy = InputBox("KAÇ KOPYA OLACAK") If xy = "" Then MsgBox "başlangıç hücresini yazmadınız."...

...devam etsin. Sub raporyaz() Dim ds Set ds = CreateObject("Scripting.FileSystemObject") DateString1 = Format(Now, "dd-mm-yyyy") ds.CreateFolder "Z:\A\B\C\D\" & DateString1 xy = InputBox("KAÇ KOPYA OLACAK") If xy = "" Then MsgBox "başlangıç hücresini yazmadınız."...

...vbYes If Not CreateObject("Scripting.FileSystemObject").FolderExists("C:\YEDEK") Then CreateObject("Scripting.FileSystemObject").CreateFolder ("C:\YEDEK") End If Sheet2.Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="C:\YEDEK\" &...

...istiyorum. Aşağıdaki gibi bir kod buldum bu koda ilave olarak eğer bu klasör daha önce oluşturulmuş ise bir şey yapmasın istiyorum. Yardımlarınız için şimdiden teşekkür ederim. Sub Klasör_Oluştur() Dim ds Set ds = CreateObject("Scripting.FileSystemObject") ds.CreateFolder "C:\Deneme" End Sub

...Set ds = CreateObject("Scripting.FileSystemObject") yol = ThisWorkbook.Path & "\" If ds.FolderExists(yol & "Kayıtlar") = False Then ds.CreateFolder yol & "Kayıtlar" If ds.FileExists(ThisWorkbook.Path & "\Kayıtlar\" & ad & ".xlsx") = True Then MsgBox ad & " Dosyası zaten var": Exit Sub...

Öncelikle mesajınız için teşekkür ediyorum çok işime yaradı. Yalnız iki sayfada bu şekilde gizli sayfaları yazdırmazken bir tane sayfada ne yaptıysam satırlar gizlenmesine rağmen yine bütün sayfaları yazdırıyor. Bunun nedeni ne olabilir?

...1).Resize(40).EntireRow.Hidden = True End If Next i pth = "D:\sınavlar" With CreateObject("Scripting.FileSystemObject") If Not .folderexists(pth) Then .CreateFolder pth End With ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pth & "\Liste.pdf"...

Sub test() With CreateObject("Scripting.FileSystemObject") If Not .folderexists("C:\NEW") Then .CreateFolder "C:\NEW" If Dir("C:\KAYIT\*NEW*") <> "" Then .movefile "C:\KAYIT\*NEW*", "C:\NEW\" End With End Sub

...& "\" & _ Sheets("Sınav Analizi").[A4].Value dosya = d.FolderExists(yol) If dosya = False Then: d.CreateFolder yol Sheets("Sınav Analizi").PageSetup.PrintArea = "$A$1:$S$58" isim = Sheets("Sınav Analizi").[T4] Sheets("Sınav Analizi").ExportAsFixedFormat Type:=xlTypePDF, _...

...objFSO.DeleteFolder Range("F1") '("D:\Yeni Klasör") Set ds = CreateObject("Scripting.FileSystemObject") ds.CreateFolder Range("E1") '"D:\Yeni Klasör" src = Range("I1") dest = Range("E1") '"D:\Yeni Klasör\" For i = 2 To 3200 FileCopy src & Cells(i, 1) & ".pdf", _ dest...

...ThisWorkbook.Save 'yer = Environ("USERPROFILE") & "\DESKTOP\YEDEK" yer = "D:\" If ds.FolderExists(yer) = False Then ds.CreateFolder yer End If If ThisWorkbook.Path = yer Then Exit Sub If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo, "DURUM") = vbNo Then MsgBox...

...ThisWorkbook.Save yer = Environ("USERPROFILE") & "\DESKTOP\YEDEK" If ds.FolderExists(yer) = False Then ds.CreateFolder yer End If If ThisWorkbook.Path = yer Then Exit Sub If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo, "DURUM") = vbNo Then MsgBox "İptal...

...+ 1, 0)), ".", "") yol = "C:\ebyn\beyannameler\" & Tn.Range("C9") XML_FileName = yol & "\" _ & Tn.Range("B5") & "_" & Tn.Range("C9") & "_" & Tn.Range("I3") & "_" & ayilk & "_" & ayson & ".xml" varmı = kls.FolderExists(yol) If varmı = False Then kls.CreateFolder yol

...f = CreateObject("scripting.filesystemobject") yol = ThisWorkbook.Path & "\" If f.FolderExists(yol & "Yedek Dosyalar") = False Then f.CreateFolder yol & "Yedek Dosyalar" ad = f.GetBaseName(ThisWorkbook.Name) & " " & deg kayıt = yol & "Yedek Dosyalar\" & ad & ".xls" a = 0 Workbooks.Add 1 For...

...f = CreateObject("scripting.filesystemobject") yol = ThisWorkbook.Path & "\" If f.FolderExists(yol & "Yedek Dosyalar") = False Then f.CreateFolder yol & "Yedek Dosyalar" ad = f.GetBaseName(ThisWorkbook.Name) & " " & deg kayıt = yol & "Yedek Dosyalar\" & ad & ".xls" a = 1 Workbooks.Add 1 For...

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

...& " " & [E2] dosyaadi = [E2] & " " & [E3] klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$2:$K$85").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & AyAdi &...

...f = CreateObject("scripting.filesystemobject") yol = ThisWorkbook.Path & "\" If f.FolderExists(yol & "Yedek Dosyalar") = False Then f.CreateFolder yol & "Yedek Dosyalar" ad = f.GetBaseName(ThisWorkbook.Name) & " " & deg kayıt = yol & "Yedek Dosyalar\" & ad & ".xls" a = 1 Workbooks.Add 1 For...