..:: Cep Telefonu Fatura Bilgilerini Excele Alma ::..

[Ömer BARAN]

.: Cep Telefonu Fatura Bilgilerini Ayıklama :.

Merhabalar !.

Ekte resim olarak gönderdim ama, asıl belgeler pdf olarak mevcut.

Öğrenmek istediğim şudur:

Cep telefonu faturalarının
-- 1. sayfasından 6 bilgiyi (resimdeki üst kısım)
-- 2. sayfasından da 8 bilgiyi (resimdeki alt kısım)
excele almanın bir yolu var mıdır acaba?

Bilgilerin tümünü 1 satırda sütunlara dağıtılmış olarak elde etmek istiyorum.
Böylece her bir faturadaki bilgiler bir satırda olacak şekilde bir liste oluşturup
buradan hesaplamalar yapacağım. Her ay için pdf formatında faturalar mevcut.
İlgilenecek üyelere teşekkürler.

 

[Ömer BARAN]

Örnek dosya ekte.

Rakamla işaretlenmiş bölümleri excel'e almak istiyorum.

Destek ricam devam ediyor.

 

[Zeki Gürsoy]

PDF dosyasını okuyabilen bir ActiveX dll gerekiyor. Arşivimde kendi yazdığım bir dll olacaktı sanırım.

 

[Emir Hüseyin Çoban]

. . .

Turkcell' in bize html olarak attığı mail eki.
Bundan kopyala yapıştır yaparak rahatlıkla excele alabiliyorum.

. . .

 

[Ömer BARAN]

Turkcell' in bize html olarak attığı mail eki.
Bundan kopyala yapıştır yaparak rahatlıkla excele alabiliyorum.

Sayın ÇOBAN, TURKCELL'den böyle bir html belge gelse, sizce bu konuyu neden açayım?
Bana gelen e-fatura öteden beri pdf formatında (ayrıca TURKCELL sayfasına girip fatura, tarife vs görüntüleme işlemlerini yaparken de sadece PDF formatında fatura alabiliyorum) .
Kendi kullandığım dosyada; pdf belgemi açıp fareyle,
-- 1'inci sayfada FATURA ID kısmından başlayıp, Ödenecek Tutar....TL olan kısma kadar manuel kopyalayıp A1 hücresine yapıştırıyorum,
-- 2'nci sayfadaki Toplam Fatura Tutarı diye başlayıp Bir Sonraki Fatura Tarihi (bu satır harıç) kısmına kadarki bölümü kopyalayıp belgemde manuel olarak B1 hücresine yapıştırıyorum.
Bu verilerden hareketle, yan taraftaki hücrelerde yer alan formüllerle (onları kod haline getirdim) gerekli verileri çekiyorum ve fatura listemin sonuna değer olarak eklettikten sonra yapıştırdığım veriler ile hesaplama hücrelerini boşaltıyorum.
Umarım anlatabildim.
Konuyu açma sebebim, defalarca yapmak durumunda olduğum; pdf belgeden kopyalayıp excel belgesine yapıştırma ve hesaplama işlemlerini, oluşturulacak koda yaptırabilmek umuduydu.

 

[Emir Hüseyin Çoban]

Turkcell müşteri hizmetlerini arayıp
Fatura bilgilerinin toplu listesini html olarak atan bir servisiniz varmış.
Bizde yararlanmak istiyoruz. Diyerek edinebilirsiniz.

 

[Ömer BARAN]

Turkcell müşteri hizmetlerini arayıp
Fatura bilgilerinin toplu listesini html olarak atan bir servisiniz varmış.
Bizde yararlanmak istiyoruz. Diyerek edinebilirsiniz.

Sayın ÇOBAN, benim ihtiyacım geriye dönük toplu liste değil, belli hatların her ay gelen faturalarındaki bilgileri, her fatura gelişinde excel'e çekmek istiyorum.
Yani ihtiyacım, geçmiş faturalar değil, bu döneme ait son faturalardaki (1'den fazla hat var) bilgileri alabilmek.

 

[Ömer BARAN]

PDF dosyasını okuyabilen bir ActiveX dll gerekiyor. Arşivimde kendi yazdığım bir dll olacaktı sanırım.

Sayın GÜRSOY, unuttu ya da dll dosyasını bulamadı sanırım.
Hatırlatmak ve konunun güncel olduğunu belirtmek için bu mesajı yazıyorum.

 

[5353]

ABBY programıyla PDF yi Excel dosyası yapıp, sayfayı ekteki dosyada Sheet1 sayfasına yapıştırmayı bir denermisiniz. örnek dosya ektedir.

 

[Ömer BARAN]

Sayın 5353 ilginiz için teşekkürler ancak, Fine Reader'i kullanmadan kolayca iki adet kopyala yapıştır ile işimi zaten görüyorum (5 numaralı mesajda yazmıştım). Fine Reader yöntemi daha uzun bir yöntem, o programı biliyorum ve kullanmıştım.
İyi günler dilerim.

 

[Ömer BARAN]

Kendi kullandığım dosyada; pdf belgemi açıp fareyle,
-- 1'inci sayfada FATURA ID kısmından başlayıp, Ödenecek Tutar....TL olan kısma kadar manuel kopyalayıp A1 hücresine yapıştırıyorum,
-- 2'nci sayfadaki Toplam Fatura Tutarı diye başlayıp Bir Sonraki Fatura Tarihi (bu satır harıç) kısmına kadarki bölümü kopyalayıp belgemde manuel olarak B1 hücresine yapıştırıyorum.
Bu verilerden hareketle, yan taraftaki hücrelerde yer alan formüllerle (onları kod haline getirdim) gerekli verileri çekiyorum ve fatura listemin sonuna değer olarak eklettikten sonra yapıştırdığım veriler ile hesaplama hücrelerini boşaltıyorum.

Konuyu açma sebebim, defalarca yapmak durumunda olduğum; pdf belgeden kopyalayıp excel belgesine yapıştırma ve hesaplama işlemlerini, oluşturulacak koda yaptırabilmek.
Konu günceldir.

 

[Ömer BARAN]

kod:

Sub pdf_verial()

Dim dosya, yol
dosya_adı = ActiveWorkbook.Name

yol = ThisWorkbook.Path

With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "AcroRd PDF Files", "*.pdf", 1
.InitialFileName = yol
.Show
'.Execute
If .SelectedItems.Count = 0 Then GoTo 1
dosya = .SelectedItems(1)

Range("A1:aa65536").ClearContents
Application.ScreenUpdating = False

If dosya <> "" Then
CreateObject("Shell.Application").Open (dosya)
End If

Application.Wait (Now + TimeValue("0:00:03"))

SendKeys "^{a}"
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "^{c}"
Application.Wait (Now + TimeValue("0:00:10"))

Windows(dosya_adı).Activate
Range("A1").Select
ActiveSheet.Paste

Range("b1").Select

Shell ("taskkill /F /IM AcroRd32.exe*")

Application.ScreenUpdating = True
MsgBox "dosyasından veriler alınmıştır.", vbOKOnly + vbInformation, "uyarı"

1
End With

End Sub

PDF dosyasından kapyalayarak veri alma
Konu KİLİTLİ olduğundan buraya yazmak durumundayım.
Teşekkürler Sayın ÖZDEMİR.


Benim açımdan Cep Telefonu Faturasındaki bilgileri alma konusunda kullanılabilecek kodlar.

Sayın ÖZDEMİR'in yukarıdaki kodlarına nasıl ilaveler yapılmalı ki;
belli kelimeleri içeren satırları çekebileyim?

 

[Ömer BARAN]

Halit Bey'in yukarıdaki kodu verileri A1'den başlayarak A sütununa getiriyor.

Koda ilave yapılarak, bu bilgilerin sadece aşağıdaki kelime veya harflerle
BAŞLAYAN satırlarındaki verileri almak,
diğer satırları excel'e hiç yazdırmamak mümkün müdür acaba?

Başlangıcı SADECE;
-- FATURA ID
--Telefon No
--Fatura Tarihi :
--Fatura Dönemi :
--Sn.
--Son Ödeme Tarihi :
--Ödenecek Tutar :
--Toplam Fatura Tutar
--Vergiye Tabi
--Vergiler ve Di
--KDV
--Ö V
--Di
--Vergiye Tabi Ücretler
--Vergiye Tabi Olmayan
--Bir Sonraki Fatura
--Bir Sonraki Ödeme
olan satırları almak istiyorum.

 

[yavuzoz]

Halit beyin kodları bende denedim,
benim denediğim örnekte sizin dediğiniz gibi A sütununa değil,
tüm pdf bilgilerini sadece A1 hücresine topladı, tabi bu haliyle pek bir sonuç alınamıyor..
Sanırım bu konuda daha bilgili arkadaşlar ilgilenecektir.

 

[Ömer BARAN]

PDF dosyasını okuyabilen bir ActiveX dll gerekiyor. Arşivimde kendi yazdığım bir dll olacaktı sanırım.

Sanırım Sayın GÜRSOY, ActiveX dll konusunu unuttu onun için hatırlatmış olmak istedim.

kod:

[SIZE="2"]Sub pdf_verial()
...............
...............
End Sub[/SIZE]

PDF dosyasından kapyalayarak veri alma
Konu KİLİTLİ olduğundan buraya yazmak durumundayım.
Teşekkürler Sayın ÖZDEMİR.


Benim açımdan Cep Telefonu Faturasındaki bilgileri alma konusunda kullanılabilecek kodlar.

Sayın ÖZDEMİR'in yukarıdaki kodlarına nasıl ilaveler yapılmalı ki; belli kelimeleri içeren satırları çekebileyim?


Sayın Halit ÖZDEMİR'in kodları süper ötesi ancak iki husus var ki müdahaleye ihtiyaç var.

Birincisi; ekte gönderdiğim excel belgesinde yer alan (SONUÇ sayfası) ve hücrelere formül uygulayıp sonuçlarını DEĞER olarak yazan ilave ile yukarıdaki 13 numaralı mesajımda belirttiğim hususa geçici de olsa çözüm buldum ve gayet başarılı sonuçlar elde ediyorum. Benim yaptığım bu ilavenin Sayın ÖZDEMİR'in kodlarının içine dahil edilerek; gerekmeyen bilgileri hiç almamak ve bu bilgileri eklediğim belgedeki SONUÇ sayfasındaki şekle getirmek çok yararlı olur diye düşünüyorum.
İkincisi; kodlar çalıştırıldığında bilgisayarın NumLOCK tuşu kendiliğinden pasif hale geliyor, bunun da düzelmesi lazım (Kod'daki SendKey satırlarında Ctrl+a ve Ctrl+c anlamında satırlar var ve bu satırlarla ilgili değil sanırım).

Umarım Sayın GÜRSOY ve Sayın ÖZDEMİR konuya tekrar bakabilirler.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki linkte en alt bölümde bir excel dosyası var. Onu indirip çalıştırın. Sayfadaki butona bastığınızda PDF dosyasını seçmenizi isteyecek. Seçiminizi yaptıktan sonra alt kısımdan excel seçeneğini seçip işleme devam ettiğinizde verileriniz excel formatına dönüşecektir.

http://www.vbaexpress.com/kb/getarticle.php?kb_id=1101


Ben eklediğiniz PDF dosyasını denedim. Fakat tam olarak çeviremiyor. Bazı bilgiler eksik geliyor.

Bu sebeple Hüseyin beyin belirttiği gibi Turkcell müşteri hizmetlerini arayıp bahsettiğiniz faturaları içeriği okunabilecek formatta göndermelerini talep edin. Böylece sorun daha kolay yoldan çözülmüş olacaktır.

 

[Ömer BARAN]

Merhaba,
Aşağıdaki linkte en alt bölümde bir excel dosyası var. Onu indirip çalıştırın........... verileriniz excel formatına dönüşecektir.
http://www.vbaexpress.com/kb/getarticle.php?kb_id=1101

Sayın AYHAN bilgi için teşekkürler ancak, isteğim pdf formatındaki belgenin excel'e aktarılması değil idi, kaldı ki Sayın Halit ÖZDEMİR'in kodları pdf belgedeki metinleri gayet başarılı olarak excel'e aktarıyor zaten.

PDF dosyasını okuyabilen bir ActiveX dll gerekiyor. Arşivimde kendi yazdığım bir dll olacaktı sanırım.

Sanırım Sayın GÜRSOY, ActiveX dll konusunu unuttu onun için hatırlatmış olmak istedim.

PDF dosyasından kapyalayarak veri alma

Sayın Halit ÖZDEMİR'in verdiği kod ukarıdaki linkte.
Sayın Halit ÖZDEMİR'in kodları süper ötesi ancak iki husus var ki müdahaleye ihtiyaç var.

Birincisi; ekte gönderdiğim excel belgesinde yer alan (SONUÇ sayfası) ve hücrelere formül uygulayıp sonuçlarını DEĞER olarak yazan ilave ile yukarıdaki 13 numaralı mesajımda belirttiğim hususa geçici de olsa çözüm buldum ve gayet başarılı sonuçlar elde ediyorum. Benim yaptığım bu ilavenin Sayın ÖZDEMİR'in kodlarının içine dahil edilerek; gerekmeyen bilgileri hiç almamak ve bu bilgileri eklediğim belgedeki SONUÇ sayfasındaki şekle getirmek çok yararlı olur diye düşünüyorum.
İkincisi; kodlar çalıştırıldığında bilgisayarın NumLOCK tuşu kendiliğinden pasif hale geliyor, bunun da düzelmesi lazım.

Benim ricam, ya Sayın GÜRSOY'un göndereceği dll dosyayı görüp test etmek ya da Sayın ÖZDEMİR'in verdiği kod'a ilave yaparak; pdf belgenin tüm içeriğini değil; sadece aşağıdaki kelimeleri içeren (KAÇINCI işlevi üzerinden formüllerle bilgileri çekebiliyorum zaten) satırlar ve bu satırlar üzerinden de kullanmakta olduğum formüllerdeki mantık üzerinden sadece gerekli olan bilgileri formül kullanmadan ve bir faturadaki bilgiler bir satırda olacak şekilde (biçim ve formüller bir önceki cevabımın ekinde var) hücrelere yazdırmak.
Sayın ÖZDEMİR'in kod'unda; sadece aşağıdaki kelimeleri içeren 13 satırın tespiti ve bu satırlar üzerinde işlem yaparak nihai verilere ulaştıracak değişiklik yapılabilip yapılamayacağı konusuydu.
İşlem yapılacak satırlar sadece aşağıdaki metinleri içeren satırlardır.
FATURA ID
No :
Fatura Tarihi :
Dönemi :
Sn.
deme Tarihi :
denecek Tutar
Toplam Fatura
Vergiye
Vergiler ve
% 18
% 25
Fonlar

 

[Ömer BARAN]

Özellikle Sayın Halit ÖZDEMİR'den (başlangıç kodları kendisine ait olduğundan) ve Sayın Zeki GÜRSOY ( konuyla ilgili olarak elinde dll dosyasının mevcut olduğunu belirttiğinden ) olmak üzere kod bilgisi yeterli olan üyelerden destek rica ediyorum.

 

[halit3]

Bu kodun fazla olduğunu düşündüğümden mesajı siliyorum.

 

[Ömer BARAN]

Merhaba Sayın ÖZDEMİR.
Kodu belgemdeki kod ile değiştirdiğim ancak sonuç alamadım malesef, neyi yanlış yapıyorum bilemedim doğrusu.
Umarım ihtiyacımı tam olarak anlatabilmişimdir.
İlk kod, benim manuel olarak pdf belgeden bilgileri metin şeklinde elde etme işimi otomatiğe bağlamamı sağlamıştı. Sizin ilk kodunuz pdf faturadaki bilgileri metin olarak OKU sayfasına alma işini manel olmaktan çıkartmıştı.
Ben de SONUÇ adlı sayfada, OKU adlı sayfadaki metinlerden, benim için gerekli olan bilgileri formül ile bir satıra aktarıyordum.

Konuyu tekrar canlandırma sebebim formüllerle yaptığım işin kod üzerinden yapılması, yani SONUÇ adlı sayfadaki ilk boş satıra, OKU sayfasındaki metinlerden ( en son cevapta belirttiğim kelime gruplarını içeren satırlardan ) formüllerle aldığım bilgilerin formül kullanmadan aktarılması idi.

Verdiğimiz zahmetler için kusura bakmayınız lütfen.
Sağlıcakla.