tahsinanarat
Altın Üye
- Katılım
- 14 Mart 2005
- Mesajlar
- 2,158
- Excel Vers. ve Dili
- Ofis 2019 Türkçe
- Altın Üyelik Bitiş Tarihi
- 27-05-2028
Uzun süredir kullandığım aşağıdaki kod ile HTML dosyalarını excele aktarabiliyordum, pc sıfırlamasından sonra ekli resimlerde görüldüğü gibi hata mesajı vermektedir. Konu ile bilgisi olan arkadaşlardan yardım talep ediyorum.
Kod:
Sub bilgi_al()
Dim URL As String
Dim IE As InternetExplorer
Dim HTMLdoc As HTMLDocument
Dim TDelements As IHTMLElementCollection
Dim TDelement As HTMLTableCell
Dim r As Long
URL = dosyahtml
Set IE = New InternetExplorer
With IE
.navigate URL
.Visible = True
While .Busy Or .readyState <> READYSTATE_COMPLETE: DoEvents: Wend
Set HTMLdoc = .document
End With
Set TDelements = HTMLdoc.getElementsByTagName("TD")
r = 0
verial = False
For Each TDelement In TDelements
gecici = Trim(TDelement.innerText)
If verial = False Then
If gecici = "Fatura Saati:" Then verial = True
If gecici = "Fatura Tarihi :" Then verial = True
If gecici = "Sipariş Tarihi:" Then verial = True
If gecici = "ERP Fatura No:" Then verial = True
If gecici = "VKN / TCKN :" Then verial = True
If gecici = "Toplam Iskonto" Then verial = True
If gecici = "Net Toplam Tutar" Then verial = True
If gecici = "KDV Matrahi (%18)" Then verial = True
If gecici = "Genel Toplam" Then verial = True
If gecici = "KDV Tutari (%18)" Then verial = True
If gecici = "Fatura No:" Then verial = True
If gecici = "Fatura No:" Then verial = True
If gecici = "Vergi Dairesi:" Then verial = True
If gecici = "Yaziyla Toplam Tutar" Then verial = True
If gecici = "Tasima No:" Then verial = True
GoTo son
End If
If verial Then
r = r + 1
Cells(satir, r).Value = TDelement.innerText
End If
verial = False
son:
Next
IE.Quit
End Sub
Ekli dosyalar
-
5.6 KB Görüntüleme: 9
-
13.1 KB Görüntüleme: 11