-
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
-
Ö
Sayfaları başka kitaba kopyalama
...= CreateObject("Scripting.FileSystemObject") If Not Dosya_Sistemi.FolderExists(Dosya_Yolu) Then Dosya_Sistemi.CreateFolder (Dosya_Yolu) End If Application.ScreenUpdating = False If Dir(Dosya_Yolu & Application.PathSeparator & Dosya_Adı & ".xls"...- ÖZLÜCE
- Konu
- Cevaplar: 9
- Forum: Makro-VBA Soruları
-
E
Sayfayı kitap olarak kayıt yapma
...= "" & Format(Worksheets("Sayfa1").Range("A1").Value, "mmmm") & "" klasor = "ARŞİV" If Not evn.FolderExists(yol & klasor) Then evn.CreateFolder yol & klasor ActiveWorkbook.SaveCopyAs Filename:=yol & klasor & "\" & dosya & ".xls" Else ActiveWorkbook.SaveCopyAs Filename:=yol &...- Excelexcellent
- Konu
- Cevaplar: 7
- Forum: Makro-VBA Soruları
-
G
Benim Pc'de Doğru Çalışıyor Başka Pc'de Doğru Çalışmıyor
...a = dd.FolderExists("C:\Documents and Settings\sengul.demir\Desktop\" & Date & "-Gelen Siparişler") If a = True Then GoTo 10 ds.createfolder "C:\Documents and Settings\sengul.demir\Desktop\" & Date & "-Gelen Siparişler" 10 ChDir "C:\Documents and Settings\sengul.demir\Desktop\" & Date &...- gulevurgun
- Konu
- Cevaplar: 3
- Forum: Diğer Excel Soruları
-
H
Dosya Sayacının Klasör içinde * ile başlayanlara göre artması
...Object 2 Set DsSisKnt = CreateObject("Scripting.FileSystemObject") 3 If DsSisKnt.FolderExists(YnKlsrYolu) = False Then DsSisKnt.CreateFolder YnKlsrYolu 4 Set DsSisKnt = Nothing End Sub Yukarıdaki kodalr ile seçili hücrelerde çekilen resimler c:\resim klasörü altına...- hsayar
- Konu
- Cevaplar: 0
- Forum: Makro-VBA Soruları
-
A
button ile klasör oluşturma
Private Sub CommandButton2_Click() Dim ds Set ds = CreateObject("Scripting.FileSystemObject") ds.CreateFolder "D:yedek" MsgBox " klasörünüz oluşturuldu" End Sub slm arkadaşlar bu koda nasıl ekleme yapabiliriz ...eger istenen isimde zaten bir klasör varsa msgbox ile uyarsın bu şekilde kod...- ahmet_salih
- Konu
- Cevaplar: 5
- Forum: Makro-VBA Soruları
-
H
.Rar uzantılı dosyları kod yardımıyla açmak
...stamp Set FSO = CreateObject("Scripting.FileSystemObject") If Not FSO.FolderExists(FolderName) Then FSO.CreateFolder FolderName 'Unzip the zip file in the folder FolderName ShellStr = PathWinZip & "Winzip32 -min -e" _ &...- hamitcan
- Konu
- Cevaplar: 5
- Forum: Makro-VBA Soruları
-
A
Yeni klasör oluştururken klasör adını hücreden almak
...a1 den almak istiyorum. Bunu nasıl yazacağım konusunda yardıma ihtiyacım var.. Sub Klasör_Oluştur() Dim ds Set ds = CreateObject("Scripting.FileSystemObject") ds.CreateFolder "C:\klasör adı\" End Sub Kırmızı ile yazılı yere sayfa adresini nasıl yazmalıyım? İlgilenen arkadaşlara teşekkür...- acolkesen1
- Konu
- Cevaplar: 7
- Forum: Makro-VBA Soruları
-
İ
xml belgesine isim vermek
...Set WshShell = Nothing Path = MyDesktopPath & "\UYAPDOSYALARI" If FSO.FolderExists(Path) = False Then FSO.CreateFolder (Path) MsgBox "D Sürücüsü/Hukuk/UYAP DOSYALARI Klasöründe Rastlanan en son uyap dosyası :" & "Takip_Talebi_" & MaxN & " .xml" _ & vbCrLf &...- İsmail Küçükşengün
- Konu
- Cevaplar: 3
- Forum: Makro-VBA Soruları
-
H
Açık Çalışma kitabını Set etme
...= ThisWorkbook.Path & Application.PathSeparator & Format(ckBU_sfAYL.Range("a1"), "yyyy") If Not FSO.FolderExists(MyFolder1) Then FSO.CreateFolder (MyFolder1) MyFolder2 = MyFolder1 & Application.PathSeparator & Evaluate("=UPPER(""" & Format(ckBU_sfAYL.Range("a1"), "MMMM") & """)")...- hsayar
- Konu
- Cevaplar: 2
- Forum: Makro-VBA Soruları
-
Z
Farkli Dosyalardan Tek Bİr Dosyaya Bİlgİ Aktarma
...MyFile = "BK.xls" Set FSO = CreateObject("Scripting.FileSystemObject") If Not FSO.FolderExists(MyFolder) Then FSO.CreateFolder (MyFolder) End If Sheets(Array("AK")).Copy Set wb1 = ActiveWorkbook wb1.SaveAs Filename:=MyFolder & "\" & MyFile wb1.Close...- zeynepk
- Konu
- Cevaplar: 6
- Forum: Makro-VBA Soruları
-
T
(VB6)Kodla Klasör-Data oluşturmada hata?
...String Dim ds Set ds = CreateObject("Scripting.FileSystemObject") Klasör = App.Path + "\Tools\DATA\" & Text1.Text ds.CreateFolder Klasör 'Yeni klasör oluşturuyoruz olustur: Şifre = "" 'Veritabanını şifreliyoruz."xxxxx" x yazan yere şifrenizi yazın DatabasePath =...- Tankut SAZLI
- Konu
- Cevaplar: 8
- Forum: Makro-VBA Soruları
-
T
Klasör oluşturup içine dosya oluşturma
...As Object Dim NewTable As Object Dim Şifre As String Dim ds Set ds = CreateObject("Scripting.FileSystemObject") ds.CreateFolder App.Path + "\Tools\" & Text2.Text 'Yeni klasör oluşturuyoruz Şifre = "" 'Veritabanını şifreliyoruz."xxxxx" x yazan yere şifrenizi yazın...- Tankut SAZLI
- Konu
- Cevaplar: 2
- Forum: Makro-VBA Soruları
-
O
yedek alıyorum ama program yedeklediğim dosya ile çalışıyor.
...= False ac: Set Fs = CreateObject("Scripting.FileSystemObject") If Fs.FolderExists("d:\" & klasor) Then GoTo devam Else Fs.CreateFolder ("d:\" & klasor) 'GoTo ac End If devam: With ws .SaveAs "d:\" & klasor & "\" & Fname End With MsgBox "Yedekleme işleminiz tamamlandı. " yardımlarınız için...- olymposss
- Konu
- Cevaplar: 3
- Forum: Makro-VBA Soruları