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?
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Duvida sobre argumento PublishObjects.Add
-
- Acabou de chegar
- Mensagens: 2
- Registrado em: Seg Mai 03, 2021 10:10 am