e-fatura kullanıcı listesi

[bydogannn67]

arkadaşlar kolay gelsin sizden bi ricam olucak, muhasebeciyim ve e-fatura mukellefiyiz hergün http://www.efatura.gov.tr/efaturakayitlikullanicilar.html linkinden kayıtlı kullanıcıları kontrol ediyoruz

bunu excel ortamına aktarma şansımız varmı hali hazırda normalde sayfanın sonunda excel olarak indir var fakat ben bunu sabit bir exceli her açtığımda bu linkteki güncel kullanıcıları exceline indirsin istiyorum nasıl yaparız

 

[Kardiyak]

Webden dış veri al diyerek tüm listeyi excele alırsanız excel açıldığında bu listeyi webden otomatik güncelleyecektir. Ama her sayfada 32 satır bulunan 1728 sayfayı tek tek elle dış veri eklemek zor olacaktır.
aşağıda bir kod denemesi yaptım bunu otomatik olarak yapacak kodlara sahip fakat bende belli bir yerden sonra out of memory hatası veriyor. Dış veri yerine daha farklı bir yola ihtiyaç var sanırım.

Sub dışveridöngü()
yer = 1
sonsayfa = 1728
Application.ScreenUpdating = 0

For sayfa = 1 To sonsayfa
    Range("A" & yer).Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://sorgu.efatura.gov.tr/kullanicilar/yliste.php?harf=&sayfa=" & sayfa, Destination:=Range("$A$" & yer))
        .Name = "sayfa " & sayfa
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    yer = yer + 32
    Next sayfa
Application.ScreenUpdating = 1
End Sub

 

[suleyman112233]

Merhaba,
kullandığınız muhasebe programını öğrenebilir miyim?
(Bir çok program cari bölümünden bunu otomatik yapıyor)

 

[Hüseyin]

Son günlerde "e-fatura kullanıcı listesi" şeklinde çok arama oluyor forumda. Bu konudaki yanıt güncel mi acaba?
Konu hakkında bilgisi olanlar güncel bilgi paylaşırsa arayan üyelerimize epey faydası olacaktır.

Forumda E Fatura ile ilgili bir çok paylaşım mevcut. En iyi sonuçlar için sağ üst teki Ara kutucuğuna "e-fatura" şeklinde yazarak arayın.

 

[Zeki Gürsoy]

Entegratörlü muhasebe programları bu işi kendisi yapabiliyor zaten. Bu açıdan gereksiz bir uğraş gibi...


.