Descrição:
Como posso manipular (ler/escrever) arquivos Excel a partir do Elipse E3/Power?
Solução:
O Microsoft Excel é um editor de planilhas produzido pela Microsoft para computadores que utilizam o sistema operacional Microsoft Windows, além de computadores Macintosh da Apple Inc. e dispositivos móveis como o Windows Phone, Android ou o iOS. Seus recursos incluem uma interface intuitiva e capacitadas ferramentas de cálculo e de construção de tabelas.
Conforme já vimos anteriormente no artigo KB-12658: Como ler/escrever em arquivos texto (TXT) pelo E3, é possível ler/escrever dados de arquivos de texto (TXT) utilizando os métodos do objeto FileSystemObject. Nosso presente artigo utilizará portanto uma lógica semelhante ao propor uma solução para ler/escrever arquivos do Excel via Elipse E3/Power. Neste caso, no entanto, iremos variar o objeto de sistema e optar por um objeto específico para a manipulação de arquivos Excel. O objeto do sistema indicado para tratar desse tipo de arquivo é o EXCEL.APPLICATION, e a solução explora os seus principais métodos e propriedades, bem como seus objetos internos.
Exemplos:
- ** Script para criar arquivo excel**
- Dim objExcel,objWorkBook
- Set objExcel = CreateObject("EXCEL.APPLICATION")
- Set objWorkBook = objExcel.Workbooks.add
- objWorkBook.SaveAs "C:\arq3.xlsx"
- objWorkBook.Close
- objExcel.Quit
- Set objWorkBook = Nothing
- Set objExcel = Nothing
- ** Script para criar nova planilha no arquivo**
- Dim objExcel,objWorkBook
- Set objExcel = CreateObject("EXCEL.APPLICATION")
- Set objWorkBook = objExcel.Workbooks.open ("C:\arq3.xlsx")
- objWorkBook.Sheets.Add
- ** Script para adicionar informação no arquivo**
- Dim objExcel,objWorkBook,sheet
- Set objExcel = CreateObject("EXCEL.APPLICATION")
- Set objWorkBook = objExcel.Workbooks.open ("C:\arq3.xlsx")
- Set sheet = objWorkBook.Sheets ("Planilha1")
- sheet.Cells(1,1) = "Nome1"
- ** Script para deletar planilha do arquivo**
- Dim objExcel,objWorkBook
- Set objExcel = CreateObject("EXCEL.APPLICATION")
- Set objWorkBook = objExcel.Workbooks.open ("C:\arq3.xlsx")
- objWorkBook.Sheets("Planilha1").delete
- ** Script para deletar o arquivo excel**
- Set obj = CreateObject("Scripting.FileSystemObject")
- obj.DeleteFile("C:\arq3.xlsx")
Seguindo o exemplo acima, você conseguirá manipular arquivos Excel através dos softwares da Elipse (Elipse E3 e Elipse Power).
NOTA: A fim de executar aplicativos do Office (Excel e outros) na conta do Sistema (SYSTEM), e rodar este script em objetos do servidor, deve-se criar uma pasta chamada Desktop nos seguintes diretórios:
C:\Windows\system32\config\systemprofile\
C:\Windows\SysWOW64\config\systemprofile\
A aplicação exemplo anexada a este artigo foi desenvolvida no Elipse E3 versão 5.1 build 186.
Artigos Relacionados:
Anexos:
