Sorgu için arama sonuçları: createfolder

...ThisWorkbook.Sheets("Sayfa1").Cells(3, 6).Text klasorara = nesne.FolderExists(Yol & "\" & ayadi) If klasorara = False Then nesne.CreateFolder Yol & "\" & ayadi nesne.CreateFolder Yol & "\" & ayadi & "\" & klasoradi ThisWorkbook.SaveAs Filename:=Yol & "\" & ayadi & "\" &...

...6).Text klasorara = nesne.FolderExists(masaustuyolu & "\" & ayadi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & ayadi nesne.CreateFolder masaustuyolu & "\" & ayadi & "\" & klasoradi ThisWorkbook.SaveAs FileName:=masaustuyolu & "\" & ayadi & "\" & klasoradi & "\" &...

Merhaba Levent Bey, Aynı işlemi desktop yerine ağ içinde bir adres vererek denediğimde olmuyor. Ağ, şirketin kullandığı ortak bir ağ . Ağ adresini yazdığımda Thispc içerisinde C sürücüsüne atıyor. Bu yazdığınız kodu ağda oluşturmak için nasıl kullanabilirim? Teşekkürler

Teşekkür ederim hocam, tam istediğim gibi oldu.

..."dd.mm.yyyy") & " Stok Sayım Raporu" klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$3:$AK$65").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu...

Merhaba, 400 Hatası verdi hocam

..."dd.mm.yyyy") & " Stok Sayım Raporu" klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$3:$AK$65").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & dosyaadi &...

..."dd.mm.yyyy") & " Stok Sayım Raporu" klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$3:$AK$65").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & dosyaadi &...

Teşekkür Ederim

Teşekkür ederim

...& " Stok Sayım Raporu" klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$3:$AK$65").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _...

..."dd.mm.yyyy") & " Stok Sayım Raporu" klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$3:$AK$65").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu...

..."dd.mm.yyyy") & " Stok Sayım Raporu" klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$3:$AK$65").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & dosyaadi &...

...Sheets("Sınıf Listeleri").Range("B5").Value With CreateObject("Scripting.FileSystemObject") If Not .folderexists(pth) Then .CreateFolder pth End With ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pth & "\" & Cells(1, 11).Value & " İmza Listesi" & ".pdf"...

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