Arkadaşlar merhaba.
Öncelikle forumda emeği geçen tüm arkadaşlara teşekkür ederim.
Metin makro A1 deki HTML veriyi B1 hücresine düz metin olarak okunuyor. Bunu A sütunundaki tüm hücre içeriği için uygulayabilir miyiz. Yani A1 deki B1 e, A2 deki B2 ye şeklinde oğul dolu hücreye kadar Okuyup okuyup B ye düz metin olarak okunabilir miyiz?
İlginiz için tekrar teşekkür ederim.
Alt Kodu ()
bul = Array ("& Uuml;", "& Ccedil;", "& uuml;", "& ouml;", "& Ouml;", "& ccedil;", "& nbsp;", ">", "<")
deg = Dizi ("Ü", "Ç", "ü", "ö", "Ö", "ç", "", ">", "<")
metin = Aralık ("A1")
A = LBound (bul) To UBound (bul) için
metin = Değiştir (metin, bul (a), derece (a))
Sonraki
Set IE = CreateObject ("InternetExplorer.Application")
IE ile
"Hakkında: boş" seçeneğine gidin.
.Doküman.Açık
Belge. "<HTML>" & metin & "</HTML>" yazın
.Doküman.Close
Aralık ("B1") = .Document.all (0) .innertext
IE.Çık
İle bitmek
Aboneliği Sonlandır
Öncelikle forumda emeği geçen tüm arkadaşlara teşekkür ederim.
Metin makro A1 deki HTML veriyi B1 hücresine düz metin olarak okunuyor. Bunu A sütunundaki tüm hücre içeriği için uygulayabilir miyiz. Yani A1 deki B1 e, A2 deki B2 ye şeklinde oğul dolu hücreye kadar Okuyup okuyup B ye düz metin olarak okunabilir miyiz?
İlginiz için tekrar teşekkür ederim.
Alt Kodu ()
bul = Array ("& Uuml;", "& Ccedil;", "& uuml;", "& ouml;", "& Ouml;", "& ccedil;", "& nbsp;", ">", "<")
deg = Dizi ("Ü", "Ç", "ü", "ö", "Ö", "ç", "", ">", "<")
metin = Aralık ("A1")
A = LBound (bul) To UBound (bul) için
metin = Değiştir (metin, bul (a), derece (a))
Sonraki
Set IE = CreateObject ("InternetExplorer.Application")
IE ile
"Hakkında: boş" seçeneğine gidin.
.Doküman.Açık
Belge. "<HTML>" & metin & "</HTML>" yazın
.Doküman.Close
Aralık ("B1") = .Document.all (0) .innertext
IE.Çık
İle bitmek
Aboneliği Sonlandır