.xls uzantılı dosyaları arayıp getirme

[burak80li]

sn burak80li,

Yapma hocam ya. Bu sefer cidden çözemiyorum network meselesini. Cidden yardıma ihtiyacım var. Kaç gün oldu hala çözemedim.

 

[burak80li]

Ya daha beş dakika geçmedi çözümü buldum iyi mi
Rakkas hocam Ramazan mübarek günde dua mı ettin ne oldu.
Yaptım ya yaptım

Dim Temp
satırının altına
Chdir "ağ yolu" nu yazınca buldu ya. Süper

 

[Kemal Demir]

İyi şanslar.

 

[hsayar]

sn burak80li işinize yarayan son halin örneğini eklersesniz bizde yararlanabilriz sannedersem.
anladığım kadarıyla ilk hali son hali aasında bayayı bir değişişklik olmuş.

 

[burak80li]

Sayın hsayar kodlar aşağıda. Kolay gelsin.

Private Sub CommandButton1_Click()

Dim ExcelCommand As Object
Dim Temp
ChDir "\\murat\dosyalar$\" 'Arama yapılacak klasör.

With Application.FileSearch
.NewSearch
.LookIn = "\\murat\dosyalar$\"
.SearchSubFolders = True
.Filename = TextBox1.Value & "*.xls" '* işareti kelimenin bir kısmını bile yazsak aramamızı sağlaması için.
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
End With
With Application.FileSearch
If .Execute() > 0 Then
MsgBox "Bulunan Sertifika Sayısı : " & .FoundFiles.Count
For i = 1 To .FoundFiles.Count
Temp = MsgBox(.FoundFiles(i) & " Bu dosyanın açılmasını istermisin ?", vbOKCancel)
If Temp = 1 Then
Excel.Workbooks.Add (.FoundFiles(i))
ArabulForm.Hide
End If
Next i
Else
MsgBox "Böyle bir dosya bulunmuyor.Tekrar deneyin"
End If
End With

End Sub

 

[hsayar]

ben of2007 kullandığım için işime yaramayacak anlaşılan... Application.FileSearch komutunu 2007 desteklemiyormuş.
Size kolay gelsin

 

[tahsinanarat]

2007 de çalışır mı bilmem ama 2003 denedim

Ekli dosyanın "I1" hücresine dosya yolunu girmeniz halinde dosyalar listeleniyor, ağdaki bilgisayarda da test ettim çalışıyor, ağdaki klasöre tam yetki verilmiş ise yani paylaşım için gerekli değişikliklerde yapılabiliyor. Umarım birilerinin işine yarar. Kolay gelsin

 

[hayri tekin]

sn burak80li,

Sn.Rakkas hocam
size aynen katılıyorum..