ENVIAR EMAIL E NO CORPO DO EMAIL ABA DO EXCEL
Preciso enviar email onde no corpo do email terei que mostrar uma das abas geradas em um excel (que também deverá ÃÂr anexo) como se fosse um print dessa aba..
alguem sabe como fazer ou tem algo já pronto ??
em VB6
alguem sabe como fazer ou tem algo já pronto ??
em VB6
Porque necessariamente um print? Todo corpo de e-mail é HTML, portanto voce poderia converter a sua planilha em uma tabela HTML
e como converto a aba que desejo ???
Resposta do ChatGPT(aliás, tenho usado ele direto pra escrever uma pá de código):
Para converter uma aba do Excel e seu conteúdo em uma tabela HTML usando VB6, voce precisará seguir alguns passos. Aqui está uma sugestão de como voce pode fazer isso:
Abra o arquivo do Excel usando o objeto Excel.Application. Voce pode fazer isso usando o seguinte código:
Crie uma variável para armazenar o conteúdo HTML da tabela. Voce pode usar uma string para isso:
Percorra as células da planilha e adicione o conteúdo HTML correspondente. Voce pode fazer isso usando um loop For ou While. Aqui está um exemplo de como voce pode fazer isso:
Agora voce pode salvar a variável html em um arquivo HTML. Voce pode fazer isso usando o objeto FileSystemObject. Aqui está um exemplo de como voce pode fazer isso:
Finalmente, feche o objeto Excel.Application. Voce pode fazer isso usando o seguinte código:
Com esses passos, voce deverá ter a tabela HTML da planilha do Excel salva em um arquivo HTML.
Para converter uma aba do Excel e seu conteúdo em uma tabela HTML usando VB6, voce precisará seguir alguns passos. Aqui está uma sugestão de como voce pode fazer isso:
Abra o arquivo do Excel usando o objeto Excel.Application. Voce pode fazer isso usando o seguinte código:
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open("c:\caminho\para\o\arquivo.xlsx")
Set xlSheet = xlBook.Worksheets("NomeDaAba")
Crie uma variável para armazenar o conteúdo HTML da tabela. Voce pode usar uma string para isso:
Dim html As String
Percorra as células da planilha e adicione o conteúdo HTML correspondente. Voce pode fazer isso usando um loop For ou While. Aqui está um exemplo de como voce pode fazer isso:
Dim row As Integer
Dim col As Integer
html = "<table>"
For row = 1 To xlSheet.UsedRange.Rows.Count
html = html & "<tr>"
For col = 1 To xlSheet.UsedRange.Columns.Count
html = html & "<td>" & xlSheet.Cells(row, col).Value & "</td>"
Next
html = html & "</tr>"
Next
html = html & "</table>"
Agora voce pode salvar a variável html em um arquivo HTML. Voce pode fazer isso usando o objeto FileSystemObject. Aqui está um exemplo de como voce pode fazer isso:
Dim fso As FileSystemObject
Dim ts As TextStream
Set fso = New FileSystemObject
Set ts = fso.CreateTextFile("c:\caminho\para\o\arquivo.html")
ts.Write html
ts.Close
Finalmente, feche o objeto Excel.Application. Voce pode fazer isso usando o seguinte código:
xlBook.Close
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
Com esses passos, voce deverá ter a tabela HTML da planilha do Excel salva em um arquivo HTML.
Tópico encerrado , respostas não são mais permitidas