TimeValue 12/24 sorunu

[secure]

Merhaba,

Elimde klasördeki dosyaları okuyup, dosya isimlerine göre yazdıran bir makro var.(Jeeday'e teşekkür) http://www.excel.web.tr/f48/dosya-isimlerini-okuma-t150872.html

Makro bazı dosyaları okurken hata veriyor. Hangi satır olduğuna baktım

S0.Cells(i, "D") = TimeValue(Mid(dosya, 11, 2) & ":" & Mid(dosya, 13, 2) & ":" & Mid(dosya, 15, 2))

bir problem göremedim.
Daha sonra hangi dosyayı okurken hata oluştuğuna baktım ve dosyayı silince devam etti. Ta ki diğer dosyaya kadar.

152118 ise dosya ismi 15:21:18 olarak yazdırıyor fakat 242118 olunca 24:21:18 yazıdıramıyor neden çünkü time formatı 00:21:18 şeklinde ...

Problemi buldum zannediyorum ama çözümü bulamadım. Dosya örneği linkte var.

 

[secure]

On Error Resume Next ekleyince o dosyaları görmeden devam etti. Sorunu çözmesekte etrafından dolandık.

ama bir sorum daha var.
excelden dosya ismine tıklayarak dosyayı nasıl açarım bilgisayarda?
örnek bir kod var mı acaba

 

[Orion1]

152118 ise dosya ismi 15:21:18 olarak yazdırıyor fakat 242118 olunca 24:21:18 yazıdıramıyor neden çünkü time formatı 00:21:18 şeklinde ...

Problemi buldum zannediyorum ama çözümü bulamadım. Dosya örneği linkte var.

Evet problemi bulmuşsunuz.242118 olan dosya ismini 002118 yapın.

 

[secure]

Sizde problemi bulduğumu bulmuşsunuz =)
Tıklayınca dosyanın açılmasıyla ilgili kod var mı?
ben bir tane eklemeyi denedim excel hala işlem yapıyor

 

[Orion1]

Sizde problemi bulduğumu bulmuşsunuz =)
Tıklayınca dosyanın açılmasıyla ilgili kod var mı?
ben bir tane eklemeyi denedim excel hala işlem yapıyor

on error resume next diye bir satırınız varsa onu kaldırın ve hata yapan satırı ve kodu tesbit edin.Ve o koddaki sorunu gidermeye çalışın.
Var tabii.
Örnek dosyaları eklerseniz ve soruyu netleştirirseniz cevap veren arkadaşlar olacaktır.