Sorgu için arama sonuçları: createfolder

...MsgBox "Klasör İsmi: " & sor & Chr(10) & "Yok. Oluşturuluyor...", vbCritical CreateObject("scripting.filesystemobject").createfolder (klasoryolu) End If For i = 1 To 13 Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, _...

...Raporları" dosyaadi = [G2] & " " & [G4] klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi) If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi ActiveSheet.Range("$B$2:$R$96").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ masaustuyolu & "\" & AyAdi &...

Bu makroyu denermisiniz Sub AKTİF_DOSYAYI_YEDEKLE() Dim DosyaSistemi As Object, Aktif_Dosya_Adı As String Dim Yedek_Dosya_Adı As String, Kayıt_Yeri As String Set DosyaSistemi = CreateObject("Scripting.FileSystemObject") Aktif_Dosya_Adı = ThisWorkbook.FullName...

...Boolean) Set ds = CreateObject("Scripting.FileSystemObject") ThisWorkbook.Save If ds.FolderExists("D:\ARSIV_BUTCEYEDEK") = False Then ds.CreateFolder "D:\ARSIV_BUTCEYEDEK" End If If ThisWorkbook.Path = "D:\ARSIV_BUTCEYEDEK" Then Exit Sub If MsgBox(" Soruyor ... Dosyanın yedeğini...

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

Hocam excel'e uyarlayamadım. Bir zahmet excel'e uyarlayıp dosya olarak yükleyebilir misiniz? Teşekkür ederim.

...Klasor = "RaporKlasörü-" & DosyaDonemi If fdObj.FolderExists(KlasorYolu & Klasor) Then GoTo Yazdır1 Else fdObj.CreateFolder (KlasorYolu & Klasor) End If Yazdır1: Yol = KlasorYolu & "\" & Klasor For i = 1 To 9 Select Case i Case 1...

@PLİNT Hocam Allah Razı Olsun, Teşekkür Ederim. Kolay Gelsin, İyi Çalışmalar.

...dosyalar = a.Files For Each dosya In dosyalar kl = "ÇIKARILANLAR" If nesne.FolderExists(ThisWorkbook.Path & "\" & kl) = False Then nesne.CreateFolder ThisWorkbook.Path & "\" & kl yer = ThisWorkbook.Path & "\" & kl & "\" nesne.moveFile Source:=dosya, Destination:=yer Next Next a End Sub 2...

desteginiz için teşekkür ederim. çok ayırma işlemi cok güzel olmuş. sadece ayırma işlemini 4.satırdan itibaren degil de 3.satırdan itibaren yapabilir miyiz? hücre bicimlendirmelerini oldugu gibi almamız mümkün müdür acaba? bölünün excel dosyalarını kişiler doldurduktan sonra birleştirmek...

...= ThisWorkbook.Path & "\" & S1.Cells(S, "B") & "\" veri = KLASÖR.FolderExists(il_klasör) If veri <> True Then KLASÖR.CreateFolder il_klasör End If 'Var olmayan klasörleri oluşturdu 'excel dosyası oluşturmak için Sheets("Veri").Delete Sheets.Add ActiveSheet.Name = "Veri"...

...GetDesktop = oWSHShell.SpecialFolders("Desktop") & "\Raporlar" If fso.FolderExists(GetDesktop) = False Then fso.CreateFolder GetDesktop End If Dosya = GetDesktop & "\" & Date & "-" & SaveName & ".xlsm" Klasor = GetDesktop & "\" End If Kodunuzadki ActiveSheet.ExportAsFixedFormat...

Ne yazık ki işe yaramadı aslında "set objFSO =createobject("scripting.FileSystemObject") Set objFolder=objFSO.CreateFolder("C:yeni") kodu benim istediğim gibi yeni klasör açıyor ancak ben 1. Bu klasöre yarınki tarihi otomatik vermek istiyorum 2. Kodun devamında kopyalamış olduğum Excel...

...yer = Environ("USERPROFILE") & "\DESKTOP\YEDEK" 'Buraya D ve DEPO yazarak denedim olmadı. 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, "A S L A N") = vbNo...

merhabalar; paylaştığınız kod benimde işime yaradı lakin 2 adet sorum olacak 1. butona bastığımızda yedek klasörüne 2adet excel gelmekte 1.si makro içerikli 2.si boş bir excel 2. kayıt yolunu değiştirmek istemekteyim (D:\excel\MAKRO EXCEL) şeklinde

...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, "A S L A N") = vbNo Then MsgBox "İptal...

...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(" Soruyor ... Dosyanın yedeğini D:\Yedek\ Dizinine almak istiyor...

...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&)...

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

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