Tarihi sayıya çevirme

[akd]

Merhaba arkadaşlar,
1 Paket proğramdan excele veri alıyorum,
paket proğram bazan adet sayılarını tarih olarak kaydediyor,
bunları excele alıp yeni bir sayfada toplamak istiyorum,
yeni sayfaya alırken 6,50 olarak almak istedim
kaç çeşit denedim olmadı,
Nasıl yapabilirim?

 

[Levent Menteşoğlu]

Paket programdan derken, direk programın veri tabanındanmı alıyorsunuz yoksa programın direk verilere excele atan özelliğinimi kullanıyorsunuz.

 

[akd]

Proğram excele atıyor,
ben bu verileri sağlıklı bir şekilde başka 1 excel sayfasında toplayıp,
accesse alacağım, onun için sayı olması gerekli bu sutunda bazan tarih oluşuyor,
bunu sayısal tipe çevirmem gerek, EXTRE sayfasındaki Miktarı sıtınundan bahsediyorum.

 

[Zeki Gürsoy]

Merhaba,

Sadece tek satırda mı sorun çıkıyor? yoksa miktar sütunun tamamı mı?
Eğer programınız doğrudan xls olarak çıkarıyorsa sunacağımız çözümler kalıcı olmayacaktır. Eğer ilk olarak bir text dosyası ise onu ekleyin onun üzerinden gidelim.

 

[akd]

Hayır zeki hocam,
proğram csv uzantılı atıyor,
ben bu bilgileri tek sayfada toplayıp access'de yapacağım proğrama alacağım,
miktarı sutununda çıkıyor satırı belirsiz,
proğramın oluşturduğu belgeyi olduğu gibi gönderiyorum.

 

[Levent Menteşoğlu]

csv dosyasından verileri excel dosyasına "dış veri al" özelliği ile alırken tüm sütunları metin olarak tanımlarsanız istediğiniz sonucu alırsınız. Aslında bu işlem Zeki beyinde belirttiği gibi txt dosyasından daha kolay yapılabilir. Sorunun temeli, nokta ve virgüldeki kullanım farklılığıdır. Birde excel ayarlarınızı "araçlar-seçenekler-uluslararası" ayarlarıdan binlik ayıracını "," , ondalık ayıracınıda "." olarak belirleyerek deneyin. Belki bu şekilde de sonuç alabilirsiniz.

 

[Erdem Akdemir]

bu tip hatalar benimde başıma geliyor

en kolay yolu, sistemden raporu çektikten sonra

borç tutarı / fiyatı deyin, miktarları kendiniz hesaplayın

 

[Zeki Gürsoy]

Hayır zeki hocam,
proğram csv uzantılı atıyor,
ben bu bilgileri tek sayfada toplayıp access'de yapacağım proğrama alacağım,
miktarı sutununda çıkıyor satırı belirsiz,
proğramın oluşturduğu belgeyi olduğu gibi gönderiyorum.

Herhangi bir xls dosyasından .csv yolunu uyarlayarak aşağıdaki proseduru uygulayın.

Sub Get_CSV()
Set w = Workbooks.Open([COLOR=Blue][B]ThisWorkbook.Path & "\extre.csv"[/B][/COLOR])

w.Sheets(1).Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar:=";", _
        FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), _
        Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), _
        Array(12, 1)), DecimalSeparator:=".", ThousandsSeparator:=",", TrailingMinusNumbers:=True
End Sub

 

[akd]

Çok çok teşekkür ederim zeki hocam,
rica etsem, csv formatlı belgelerden,
HEPSI adında oluşturduğum excele,
son adlı sayfadaki formatta göre alabilirmiyiz.
ben 1 form üzerine almak istedigim csv leri gösteren
listbox ekledim , o seçtigim csv nin içindekileri son adlı sayfaya alt alta
eklemek istiyorum.
yani bütün csv leri HEPSİ adlı excelin son adlı sayfasına almak.
son adlı sayfadaki düzenege göre
İlgilenirseniz çok sevinirim.
İyi günler dilerim.

 

[akd]

Merhaba zeki hocam,
Yeni yılınız kutlu olsun,
bu belirttiğim olayı yapabilirmiyiz?
iyi çalışmalar.