Sorgu için arama sonuçları: mkdir

...Set Dizi = VBA.CreateObject("Scripting.Dictionary") Yol = K1.Path & "\Dosyalar\" If Dir(Yol, vbDirectory) = "" Then MkDir Yol Else If VBA.CreateObject("Scripting.FileSystemObject").Getfolder(Yol).Files.Count > 0 Then Kill Yol & "*.*" End If...

...Dosya_Adi 'End If Set Klasor = Nothing Set FSO = Nothing End Sub Public Sub YedekKlasoruOlustur() On Error GoTo Son MkDir ("\\192.168.1.242\ortak\Üretim\Üretim Takip\Vardiya Yedek\" & Format(Date, "dd.mm.yyyy") & " - " & "Üretim Raporu") Son: End Sub Yol =...

...FileExtStr = ".xls": FileFormatNum = 56 Case Else: FileExtStr = ".xlsb": FileFormatNum = 50 End Select End If MkDir FolderName For Each xWs In xWb.Worksheets On Error GoTo NErro If xWs.Visible = xlSheetVisible Then xWs.Select xWs.Copy xFile =...

...File_Path = ThisWorkbook.Path & "\" If Dir(File_Path & "Extract File\", vbDirectory) = "" Then MkDir File_Path & "Extract File\" Else If FSO.GetFolder(File_Path & "Extract File\").Files.Count > 0 Then Kill File_Path & "Extract File\*.*" End If...

..."dd_mm_yyyy") & "\" Rem Klasörün varlığını kontrol ediyoruz. Yoksa oluştur diyoruz. If Dir(File_Folder, vbDirectory) = "" Then MkDir File_Folder Rem Aşı isimlerini benzersiz şekilde liteleyen sorgumuzu oluşturuyoruz. My_Query = "Select Distinct [Açıklama] From [" &...

..."dd_mm_yyyy") & "\" Rem Klasörün varlığını kontrol ediyoruz. Yoksa oluştur diyoruz. If Dir(File_Folder, vbDirectory) = "" Then MkDir File_Folder Rem Aşı isimlerini benzersiz şekilde liteleyen sorgumuzu oluşturuyoruz. My_Query = "Select Distinct [Açıklama] From [" &...

..."dd_mm_yyyy") & "\" Rem Klasörün varlığını kontrol ediyoruz. Yoksa oluştur diyoruz. If Dir(File_Folder, vbDirectory) = "" Then MkDir File_Folder Rem Aşı isimlerini benzersiz şekilde liteleyen sorgumuzu oluşturuyoruz. My_Query = "Select Distinct [Açıklama] From [" &...

Korhan Bey Merhaba, Bir konu hakkında bilgi almak istiyorum. . Hastanede kullandığımız bilgisayarda titus classification "veri sınıflandırma yazılımı yüklü" kodu çalıştırdığımda yeni bir kitap açılıyor. " Hastane içi" seçip Ok. basmam gerekiyor. Bunu 4 kez yaptığında bu sefer kod hata veriyor...

..."dd_mm_yyyy") & "\" Rem Klasörün varlığını kontrol ediyoruz. Yoksa oluştur diyoruz. If Dir(File_Folder, vbDirectory) = "" Then MkDir File_Folder Rem Aşı isimlerini benzersiz şekilde liteleyen sorgumuzu oluşturuyoruz. My_Query = "Select Distinct [Açıklama] From [" &...

Korhan Bey Mümkünse ve vaktiniz var ise, Yazmış olduğunuz kodu açıklamayabilir misiniz. Hangi kod ne işlevi yapıyor. Hastane de bu ve bu konuya benzer işlevler yapıyoruz. Öğrenmek hemde gerekli güncellemeleri yapabilmek açısından öğretici olacaktır. Teşekkürler.

çok teşekkürler sonradan aklıma geldi. dikkat edeceğim. teşekkkürler tekrar....

...File_Folder = Environ("UserProfile") & "\Desktop\Aşılar " & Format(Date, "dd_mm_yyyy") & "\" If Dir(File_Folder, vbDirectory) = "" Then MkDir File_Folder My_Query = "Select Distinct [Açıklama] From [" & S2.Name & "$] Where Not IsNull([Açıklama])" Set My_Recordset =...

...= Environ("UserProfile") & "\Desktop\Yeni Klasör " & Format(Date, "dd_mm_yyyy") & "\" If Dir(File_Folder, vbDirectory) = "" Then MkDir File_Folder File_Path = Environ("UserProfile") & "\Desktop\" PDF_File = Dir(File_Path & "Ha00x.pdf") If PDF_File <> "" Then...

Emeğinize sağlık, teşekkür ederim.

Emeğinize sağlık, teşekkür ederim.

Merhaba, Yol = "C:\YEDEKLER" satırını aşağıdaki gibi değiştirin Yol = "C:\YEDEKLER1\" & Date MkDir Yol

...& Replace(Now, ":", "_") & "-" & ThisWorkbook.Name FSO.CopyFile ThisWorkbook.FullName, Dosya_Adi End If Set Klasor = Nothing Set FSO = Nothing End Sub Public Sub YedekKlasoruOlustur() On Error GoTo Son MkDir ("C:\YEDEKLER\" & Format(Date, "dd.mm.yyyy")) Son: End Sub

...X As Long Klasor = Environ("UserProfile") & "\Desktop\" & Format(Date, "dd_mm_yyyy") If Dir(Klasor, vbDirectory) = "" Then MkDir Klasor Satir_Sayisi = InputBox("Verileri kaç satırlık dosyalara ayırmak istiyorsunuz?", "Veri Satır Sayısı", 100) If...

Hocam resimdeki gibi bir hata veriyor. Dosyayı da ekliyorum aşağıya örnek.xlsm - 42 KB

...y = y + 1 stdir = Environ("USERPROFILE") & "\" & "Desktop" & "\" & "Attachments Folder" If Dir(stdir, vbDirectory) = vbNullString Then MkDir (stdir) End If For Each item In olFolder.Items If TypeOf item Is Outlook.MailItem Then Dim oMail As Outlook.MailItem: Set oMail = item...