{"id":10714,"date":"2020-06-23T15:27:43","date_gmt":"2020-06-23T18:27:43","guid":{"rendered":"http:\/\/kb.elipse.com.br\/?p=10714"},"modified":"2021-01-25T16:06:23","modified_gmt":"2021-01-25T19:06:23","slug":"como-ler-escrever-em-arquivos-excel-pelo-elipse","status":"publish","type":"post","link":"https:\/\/kb.elipse.com.br\/en\/como-ler-escrever-em-arquivos-excel-pelo-elipse\/","title":{"rendered":"Como ler\/escrever em arquivos Excel via Elipse E3\/Power."},"content":{"rendered":"

Descri\u00e7\u00e3o:<\/strong><\/h2>\n

Como posso manipular (ler\/escrever) arquivos Excel a partir do Elipse E3<\/a>\/Power<\/a>?<\/p>\n

Solu\u00e7\u00e3o:<\/strong><\/h2>\n

O\u00a0Microsoft Excel<\/b><\/a> \u00e9 um editor de planilhas produzido pela Microsoft para computadores que utilizam o sistema operacional\u00a0Microsoft Windows, al\u00e9m de computadores\u00a0Macintosh\u00a0da\u00a0Apple Inc.\u00a0e dispositivos m\u00f3veis como o\u00a0Windows Phone,\u00a0Android\u00a0ou o\u00a0iOS. Seus recursos incluem uma interface intuitiva e capacitadas ferramentas de c\u00e1lculo e de constru\u00e7\u00e3o de tabelas.<\/p>\n

Conforme j\u00e1 vimos anteriormente no artigo KB-12658: Como ler\/escrever em arquivos texto (TXT) pelo E3<\/a><\/strong>, \u00e9 poss\u00edvel ler\/escrever dados de arquivos de texto (TXT) utilizando os m\u00e9todos do objeto FileSystemObject<\/em>. Nosso presente artigo utilizar\u00e1 portanto uma l\u00f3gica semelhante ao propor uma solu\u00e7\u00e3o 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\u00edfico para a manipula\u00e7\u00e3o de arquivos Excel. O objeto do sistema indicado para tratar desse tipo de arquivo \u00e9 o EXCEL.APPLICATION, e a solu\u00e7\u00e3o explora os seus principais m\u00e9todos e propriedades, bem como seus objetos internos.<\/p>\n

Exemplos:<\/p>\n

** Script para criar arquivo excel**\r\nDim objExcel,objWorkBook\r\nSet objExcel = CreateObject(\"EXCEL.APPLICATION\")\r\nSet objWorkBook = objExcel.Workbooks.add\r\n\r\nobjWorkBook.SaveAs \"C:\\arq3.xlsx\"\r\nobjWorkBook.Close\r\nobjExcel.Quit\r\nSet objWorkBook = Nothing\r\nSet objExcel = Nothing\r\n\r\n** Script para criar nova planilha no arquivo**\r\nDim objExcel,objWorkBook\r\nSet objExcel = CreateObject(\"EXCEL.APPLICATION\")\r\nSet objWorkBook = objExcel.Workbooks.open (\"C:\\arq3.xlsx\")\r\nobjWorkBook.Sheets.Add\r\n\r\n** Script para adicionar informa\u00e7\u00e3o no arquivo**\r\nDim objExcel,objWorkBook,sheet\r\nSet objExcel = CreateObject(\"EXCEL.APPLICATION\")\r\nSet objWorkBook = objExcel.Workbooks.open (\"C:\\arq3.xlsx\")\r\nSet sheet = objWorkBook.Sheets (\"Planilha1\")\r\nsheet.Cells(1,1) = \"Nome1\"\r\n\r\n** Script para deletar planilha do arquivo**\r\nDim objExcel,objWorkBook\r\nSet objExcel = CreateObject(\"EXCEL.APPLICATION\")\r\nSet objWorkBook = objExcel.Workbooks.open (\"C:\\arq3.xlsx\")\r\nobjWorkBook.Sheets(\"Planilha1\").delete\r\n\r\n** Script para deletar o arquivo excel**\r\nSet obj = CreateObject(\"Scripting.FileSystemObject\")\r\nobj.DeleteFile(\"C:\\arq3.xlsx\")\r\n\r\n<\/pre>\n
Seguindo o exemplo acima, voc\u00ea conseguir\u00e1 manipular arquivos Excel atrav\u00e9s dos softwares da Elipse (Elipse E3 e Elipse Power).<\/p>\n
NOTA:<\/strong> 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\u00f3rios:
\nC:\\Windows\\system32\\config\\systemprofile\\<\/em>
\nC:\\Windows\\SysWOW64\\config\\systemprofile\\<\/em><\/p>\n
A aplica\u00e7\u00e3o exemplo anexada a este artigo foi desenvolvida no Elipse E3 vers\u00e3o 5.1 build 186.<\/strong><\/p>\n
 <\/p>\n
Artigos Relacionados:<\/h3>\n
\n