-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sorgu için arama sonuçları: createfolder
-
Resim almada düzenleme
...Exit Sub Set fl = CreateObject("Scripting.FileSystemObject") yol = ThisWorkbook.Path & "\Resimler\" If Not fl.FolderExists(yol) Then fl.CreateFolder (yol) End If say = fl.getfolder(yol).Files.Count + 1 SavePicture IPic, yol & "\Resim " & say & ".bmp" Set IPic = Nothing OpenClipboard (0&)...- halit3
- Posta #6
- Forum: Makro-VBA Soruları
-
Resim almada düzenleme
...yol = ThisWorkbook.Path & "\Resimler\" If Not Dosya_Sistemi.FolderExists(yol) Then Dosya_Sistemi.CreateFolder (yol) End If say = CreateObject("Scripting.FileSystemObject").getfolder(yol).Files.Count + 1 SavePicture IPic, yol & "\Resim " & say & ".bmp" Set IPic = Nothing End Sub Sub...- halit3
- Posta #2
- Forum: Makro-VBA Soruları
-
P
Makro Yardımı
...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...- PLİNT
- Posta #7
- Forum: Makro-VBA Soruları
-
M
Makro Yardımı
...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...- Mehmet Sait
- Posta #3
- Forum: Makro-VBA Soruları
-
M
Makro Yardımı
...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...- Mehmet Sait
- Konu
- Cevaplar: 6
- Forum: Makro-VBA Soruları
-
H
Soru (Acil) Elimdeki Excel Veri Sayfasını Metin Sekmeyle Ayrılmış
...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- htsumer
- Posta #3
- Forum: Makro-VBA Soruları
-
Excel Vba Klasör oluşturma ve Farklı Kaydetme makrosu (Farklı)
...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 & "\" &...- Korhan Ayhan
- Posta #8
- Forum: Makro-VBA Soruları
-
A
Excel Vba Klasör oluşturma ve Farklı Kaydetme makrosu (Farklı)
...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 & "\" &...- Aybüke531
- Posta #7
- Forum: Makro-VBA Soruları
-
A
Excel Vba Klasör oluşturma ve Farklı Kaydetme makrosu (Farklı)
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- Aybüke531
- Posta #3
- Forum: Makro-VBA Soruları
-
M
VBA Kod yardımı
Teşekkür ederim hocam, tam istediğim gibi oldu.- Mehmet Sait
- Posta #10
- Forum: Makro-VBA Soruları
-
E
VBA Kod yardımı
..."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...- EmrExcel16
- Posta #9
- Forum: Makro-VBA Soruları
-
E
VBA Kod yardımı
..."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 &...- EmrExcel16
- Posta #2
- Forum: Makro-VBA Soruları
-
M
VBA Kod yardımı
..."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 &...- Mehmet Sait
- Konu
- Cevaplar: 10
- Forum: Makro-VBA Soruları
-
Şifre ile Makro Çalıştırma
...& " 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:= _...- YUSUF44
- Posta #3
- Forum: Makro-VBA Soruları
-
E
Şifre ile Makro Çalıştırma
..."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...- EmrExcel16
- Posta #2
- Forum: Makro-VBA Soruları
-
M
Şifre ile Makro Çalıştırma
..."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 &...- Mehmet Sait
- Konu
- Cevaplar: 5
- Forum: Makro-VBA Soruları
-
S
Soru Dosya Yolu Oluşturma
...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"...- serhatyaman43
- Posta #4
- Forum: Makro-VBA Soruları