Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Duvida sobre argumento PublishObjects.Add

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
kewillanco
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Seg Mai 03, 2021 10:10 am

Duvida sobre argumento PublishObjects.Add

Mensagem por kewillanco »

Boa tarde

Por favor, consegue me ajudar?

Estou com a seguinte função:

Function TabelaHTML() As String

Dim arqTemp As String


arqTemp = "C:\Users\kevin.souza\Documents\Email.htm"

With ActiveWorkbook.PublishObjects.Add(xlSourceRange, arqTemp, "Base envio", "A1:H500", xlHtmlStatic)
.Publish False
.AutoRepublish = False
End With

Set FSO = CreateObject("Scripting.FileSystemObject")
Set arqHtm = FSO.getFile(arqTemp).openastextStream(1, -2)

TabelaHTML = arqHtm.ReadAll
arqHtm.Close

TabelaHTML = Replace(TabelaHTML, "align=center", "align=left")

Kill arqTemp

Set arqHtm = Nothing
Set FSO = Nothing

End Function



Em With no argumento source esta "A1:500", eu quero ao invés de limitar ha essas células, gostaria de que ele copia a região, pois ha um filtro na planilha.

Gostaria de adicionar um Plan1.Range("A1").CurrentRegion

Mas não consigo por no argumento, como faço para ao invés de limitar da região "A1:500" ele seleciona a região onde estará filtrada?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder