Dosya Aç Kodunda Genelleştrirme Düzeltmesi

[baydeniro]

Merhaba arkadaşlar. Forumdan edindiğim aşağıdaki kodun yardımıyla istediğim dosyanın tam adını verirsem makroyu kullanarak dosyayı açabiliyorum. Dosyanın isimi her gün değişiyor. Dosya adlarının ilk harfleri her zaman sabit : TE, WE, SE. Ama devamı her gün değişiyor. TE1101, TE1102 gibi.

Bu yüzden dosya = "TE1024.txt" dosyası yerine kodu nasıl revize etmeliyim ki "TE" ile başlayan dosyayı aç olarak işlev görsün.


Sub dosya_ac()
On Error GoTo yok
Dim yol, dosya As String
yol = "C:\Documents and Settings\kb\Desktop\logistik\"
dosya = "TE1024.txt"
Workbooks.Open (yol & dosya)
Exit Sub
yok:
MsgBox "Dosya Bulunamadi"
End Sub

 

[hamitcan]

Dosya ismi günün tarihi ile mi orantılı?

 

[baydeniro]

Genelde günü tarihi ile orantılı. Ancak mümkünse * tarzında bir genelleme daha uygun düşüyor. Yani günün tarihi değil de başka bir veri olsa da çalışacak bir kod !!!

 

[Recep İpek]

Peki yol = "C:\Documents and Settings\kb\Desktop\logistik\" klasöründe TE ile başlayan başka dosyalar mevcut oluyor mu?

 

[baydeniro]

Hayır olmuyor. TE ile başlayana sadece 1 adet dosya oluyor. Ancak Başka harfler ile başlayan dosyalar da oluyor.

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

[COLOR=blue]Sub [/COLOR]dosya_ac[COLOR=blue]()[/COLOR]
On Error GoTo yok
Dim yol, dosya As String
yol = "C:\Documents and Settings\kb\Desktop\logistik\"
[COLOR=blue]'*****************************************************[/COLOR]
Dim ds, a, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder(yol)
Set dc = f.Files
For Each dosyaismi In dc
If Left(dosyaismi.Name, 2) = "TE" Then
dosya = dosyaismi
Exit For
End If
Next
[COLOR=blue]'*****************************************************[/COLOR]
Set ds = Nothing
Set f = Nothing
Set dc = Nothing
Workbooks.Open (dosya)
Exit Sub
yok:
MsgBox "Dosya Bulunamadi"
[COLOR=blue]End Sub[/COLOR]

 

[baydeniro]

Çok Teşekkürler

Sayın Ripek çok çok teşekkürler, işte budur. Elleriniz dert görmesin. Tam istediğim gibi oldu.

 

[Recep İpek]

İşinize yaradığına sevindim.

 

[asilacar]

Peki tarihin değişken olduğu dosyaları açmak veya o dosyalara link vermek nasıl mümkün olur? Benzer bir durumdan ben de muzdaribim ama benim hedef directorim de bu dosyalar tarih sıralı olarak bulunuyor

AKR2410.xls
AKR2510.xls

şeklinde gidiyor misal

 

[Recep İpek]

Aşağıdaki linkteki dosya işinizi görür mü?

http://www.excel.web.tr/showthread.php?t=19124

 

[asilacar]

Yaradı teşekkürler Ripek! =9

 

[Recep İpek]

Yaradı teşekkürler Ripek! =9

Rica ederim de =9 ne anlama geliyor. :roll: