Sorgu için arama sonuçları: createfolder

...yol = masaustuyolu & "\" & Format(Date, "yyyy") & " Üretim Raporları" If nesne.FolderExists(yol) = False Then nesne.CreateFolder yol altklas = Format(Date, "dd.mm.yyyy") & " " & " - " & [B11] yol = yol & "\" & altklas If nesne.FolderExists(yol) = False Then nesne.CreateFolder yol...

...yol = masaustuyolu & "\" & Format(Date, "yyyy") & " Üretim Raporları" If nesne.FolderExists(yol) = False Then nesne.CreateFolder yol altklas = Format(Date, "dd.mm.yyyy") & " " & " - " & [B11] yol = yol & "\" & altklas If nesne.FolderExists(yol) = False Then nesne.CreateFolder yol...

...C:\ebyn\sablon\ Klasörü altına eklenmiştir." End Sub Sub Klasor_Olustur() Dim ds, _ kls As String kls = "sablon" Set ds = CreateObject("Scripting.FileSystemObject") If ds.FolderExists("C:\" & kls) = False Then ds.CreateFolder "C:\" & kls End Sub

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