- Katılım
- 25 Şubat 2006
- Mesajlar
- 56
Eski tip bir netsisden aldığımız datalar var. Ancak programda olan bir sorundan dolayı açamıyoruz. Dosyalar .dat uzantılı. Bunları ne şekilde açabiliriz? Yardımcı olursanız sevinirim.
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub dosya_oku()
Open "C:\Belgelerim\deneme1.[B][COLOR="Red"]dat[/COLOR][/B]" For Input As #2
sat = 2
Do While Not EOF(2)
Input #2, a, b, c, d, e
Cells(sat, 1).NumberFormat = "#,##0.00"
Cells(sat, 2).NumberFormat = "#,##0.00"
Cells(sat, 3).NumberFormat = "#,##0.00"
Cells(sat, 4).NumberFormat = "#,##0.00"
Cells(sat, 5).NumberFormat = "#,##0.00"
Cells(sat, 1) = a: Cells(sat, 2) = b
Cells(sat, 3) = c: Cells(sat, 4) = d: Cells(sat, 5) = e
sat = sat + 1
Loop
Close #2
MsgBox "Dosya Okuma Bitti"
End Sub
Not defterindemi baktınız.Kutucuk şeklinde çıktığını gördünüz.teşekkür ederim ilginize ama bunlar dos tabanlı. tüm karakterler kutucuk şeklinde çıkıyor. herhangi bir karakter belli olmuyor. isteyene özelden atabilirim dosyaları.
Sayın ilkayteke,teşekkür ederim ilginize ama bunlar dos tabanlı. tüm karakterler kutucuk şeklinde çıkıyor. herhangi bir karakter belli olmuyor. isteyene özelden atabilirim dosyaları.