Çok teşekkür ediyorum ellerinize sağlık yanlız söyle bir sorun var bazı excel dosyaların içinde sadece data yada sadece komax var oyuzdende hata verıyor sanırım sız hepsınde 2 sı var olarak ayarladınız.birde hata verdiği varyantıda yazma sansımız varmı bu sekılde cunku 50 60 excel dosyasında tek...
...= fd.SelectedItems(1)
End Function
Sub TumDosyalariListele(Yol As Variant)
Dim fso As Object
Dim folder As Object
Dim subfolder As Object
Dim file As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(Yol)
For Each file...
...Arşivleri" 'Buraya kendi kaynak klasörünüzü yazın
Call GetFiles(myFolder, True)
End Sub
'
Sub GetFiles(SourceFolder As String, IncludeSubFolders As Boolean)
Dim FSO As Object, strFolder As Object
Dim SubFolder As Object, strFile As Object
Dim myTargetPath As String...
...= True
.Calculation = xlCalculationAutomatic
End With
MsgBox "Arama Tamamlandi"
End Sub
Private Sub DoFolder(Folder)
Dim SubFolder
Dim File
For Each SubFolder In Folder.SubFolders
DoFolder SubFolder
Next SubFolder
For Each File In Folder.Files
If...
...For Each objFile in colFiles
tmpName = Replace(objFile, fname, fname2)
objFSO.MoveFile objFile, tmpName
Next
ShowSubfolders objFSO.GetFolder(objStartFolder)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
Set objFolder =...
...= "C:\TestFolder"
Range("A:A").Clear
Call GetFiles(myFolder, True)
End Sub
'
Sub GetFiles(SourceFolder As String, IncludeSubFolders As Boolean)
Dim FSO As Object, strFolder As Object
Dim SubFolder As Object, strFile As Object
Dim i As Long
Set FSO =...
...As String
GetFolder = ActiveWorkbook.Path
End Function
Private Sub GetFilesInFolder(ByVal SourceFolderName As String, ByVal Subfolders As Boolean)
If InStr(SourceFolderName, "000_Sablon") Then Exit Sub
If InStr(SourceFolderName, "Eski") Then Exit Sub...
...halen "ThisWorkbook.path" üzerindeki xslm dosyalarını listeliyor.
Private Sub GetFilesInFolder(ByVal SourceFolderName As String, ByVal Subfolders As Boolean)
If InStr(SourceFolderName, "000_Sablon") Then Exit Sub
If InStr(SourceFolderName, "Eski") Then Exit Sub...
...dosyalarının listesini çıkarmak için şöyle bir kod kullanıyorum.
Private Sub GetFilesInFolder(ByVal SourceFolderName As String, ByVal Subfolders As Boolean)
If InStr(SourceFolderName, "000_Sablon") Then Exit Sub
If InStr(SourceFolderName, "Eski") Then Exit Sub
If...
Private Sub GetFilesInFolder(ByVal SourceFolderName As String, ByVal Subfolders As Boolean, ByRef dic)
Set fs = CreateObject("Scripting.FileSystemObject")
Set sourcefolder = fs.GetFolder(SourceFolderName)
Set s1 = ThisWorkbook.Worksheets("hiper")
If...
...= CreateObject("Scripting.FileSystemObject")
DoFolder FileSystem.GetFolder(HostFolder)
End Sub
Sub DoFolder(Folder)
Dim SubFolder
For Each SubFolder In Folder.SubFolders
DoFolder SubFolder
Next
Dim File
For Each File In Folder.Files
If...
...' GetFolder = ThisWorkbook.Path & "\LU177_hiper\"
End Function
Private Sub GetFilesInFolder(ByVal SourceFolderName As String, ByVal Subfolders As Boolean)
If InStr(SourceFolderName, "000_Sablon") Then Exit Sub
Set fs = CreateObject("Scripting.FileSystemObject")
Set...
...koda
"000_Sablon" klasörü hariç diye bir seçenek koyabilir miyim?
Private Sub GetFilesInFolder(ByVal SourceFolderName As String, ByVal Subfolders As Boolean)
Set fs = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = fs.GetFolder(SourceFolderName)
Set s1 =...
...As Outlook.Folder, Tabs, Report As String)
Dim Table As Outlook.Table
Dim Row As Outlook.Row
Dim rowValues() As Variant
Dim SubFolders As Outlook.Folders
Dim SubFolder As Outlook.Folder
satir = satir + 1
Cells(satir, sutun).Value = CurrentFolder.Name
sutun...
...sirasiyla basligi, tarihi ve gondericisinin adresini bir liste seklinde olusturmakta,
su anlik sadece gelen kutusu(inbox) u tarayabilmekte, subfolder lari maalesef ekleyemedim, ustalarim el atarsa inbox altinda ki subfolder hatta sub-sub-...-folder :) lari da taratabilecek bir kod...
...Format((sumSize / 1024) / 1024, "0.00 MB")
Counter = Empty
sumSize = Empty
End Sub
'
Sub GetFiles(SourceFolder As String, IncludeSubFolders As Boolean)
Dim FSO As Object, strFolder As Object
Dim SubFolder As Object, strFile As Object
Set FSO =...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.