-1
Bir e-postanın gövdesini çıkarmak için bir VBA komut dosyası kullanıyorum, e-postanın% 90'ını başarılı bir şekilde yok ettim, ancak son "Sorgulama" bölümüne gittiğimde bir hata düzeltemiyorum. Bu e-posta gövdesi.E-posta gövdesi sıyırma sırasında VBA görünüm hatası
Ref: 1993
Business Headline: bla bka
Name: A Name
Email: [email protected]
Tel: 0777777777
Address Line: 123
Address Line 2: someroad
Town: sometown
County: lancashire
Postcode: APOS TCDE
Enquiry:
Please send me more information about this business. Regards, Gary.
Sorun, Sorgulamayı bulmaya çalışırken posta kodundadır. Benim kodumda Sorgulama pozisyonunu buluyor gibi görünüyor ancak değişkene tamsayı atamıyor. Ne demek istediğimi görmek için ekran görüntüleri bakın.
Dim pstcodee As Integer
pstcodee = InStr(1, b4, "Postcode: ")
Dim enqui As Integer
enqui = InStr(1, b4, "Enquiry:")
Dim pstenquire As String
pstenquire = Mid(b4, pstcodee, enqui - pstcodee)
Dim bup2222() As String
bup2222 = Split(pstenquire, ":")
postcode = bup2222(1)
kod Tamam çalışır ve ekstreler: _ "APOS TCDE" _
The variable is just staying at 0
Bu
finds correct positon
posta kodu sıyırma kodudur. Tam sorunun ne olduğunu daha ayrıntılı olarak açıklamanız gerekir. Ekran görüntüleri, şu anda yürütülen satırın ne olduğunu göstermez (hata ayıklama sırasında sarı olarak işaretlenir). – BrakNicku