-
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ı: Subfolder
-
H
Dosya değiştirilme tarihini hücreye yazdırma
..."C:\TestFolder" klasörünü kendinize göre değiştirip, kodu deneyiniz. Sub Test2() Dim FSO As Object Dim SourceFolder As Object, SubFolder As Object Dim FileItem As Object Dim r As Long MyFolder = "C:\TestFolder" Set FSO =...- Haluk
- Posta #6
- Forum: Makro-VBA Soruları
-
H
Dosya değiştirilme tarihini hücreye yazdırma
...= -1 Then Call ListFiles(MyFolder.SelectedItems(1), True) End If End Sub ' Sub ListFiles(MyFolder As String, IncludeSubfolders As Boolean) Dim FSO As Object Dim SourceFolder As Object, SubFolder As Object Dim FileItem As Object Dim r As Long Set FSO =...- Haluk
- Posta #2
- Forum: Makro-VBA Soruları
-
C
mail eklerini kayıt etme
..._ , vbCritical, "Error!" Resume GetAttachments_exit End Sub Sub SaveAttachmentsToFolder() ' This Outlook macro checks a named subfolder in the Outlook Inbox ' (here the "Sales Reports" folder) for messages with attached ' files of a specific type (here file with an "xls"...- can038
- Konu
- Cevaplar: 0
- Forum: Makro-VBA Soruları
-
S
Word dosyasında bul değiştir makrosu
...---> b4 ... a15 ---> b15 olacak şekilde. Sub uc() Set WD = CreateObject("word.Application") WD.Visible = True yol = ThisWorkbook.Path & subfolder Dosya = Dir(yol & "\Tohum_yetistirici_Belgesi.doc*") Do While Dosya <> "" WD.Application.Documents.Open yol & "\" & Dosya...- sametozyavuz
- Konu
- Cevaplar: 2
- Forum: Excel'e Yeni Başlayanlar
-
S
Excel'de Klasör ve Alt Klasörlerde Toplu Bul ve Değiştir Makrosu çok önemli
...ReplaceTextInFile fldr.Path & "\" & fl.Name, r.Text, r.Offset(, 1).Text Next End If Next For Each SubFolder In CreateObject("scripting.filesystemobject").getfolder(sSourceFolder).SubFolders DoReplacements SubFolder.Path Next SubFolder End Sub Sub...- samtual
- Konu
- Cevaplar: 2
- Forum: Makro-VBA Soruları