BlackTDN Search

quarta-feira, 8 de fevereiro de 2012

BalckTDN :: PowerShell :: Usando Microsoft FoxPro VFP Driver para popular uma Planilha em Excel

No post: Protheus :: Advpl :: Usando Microsoft FoxPro VFP Driver para conexão ODBC (Generic) no totvsdbAccess vimos como usar o Driver FoxPro VFP para possibilitar o acesso a arquivos ISAM usando comandos SQL. Veremos agora, o mesmo princípio usando o PowerShell. Nesse novo exemplo, o resultado da consulta será utilizado para “popular” uma planilha do Excel com dados da Tabela SX3 (Dicionário de Dados) do Protheus.

Como no exemplo anterior, e, para facilitar a conexão, inclui uma nova “Fonte de Dados (ODBC)” apontando para o Diretório \system\ da minha instalação do Protheus.

image

image

e, utilizando as seguintes instruções no PowerShell:

   1: $oExelApp = New-Object -Com Excel.Application;
   2: $oExelApp.Visible = $true;
   3: $oWorkbooks = $oExelApp.Workbooks.Add();
   4: $oWorksheets = $oWorkbooks.Worksheets.Item(1);
   5: $QueryTables = $oWorksheets.QueryTables.Add("ODBC;DSN=NDJ_PROTHEUS_SYSTEM;", $oWorksheets.Range("A1"), "SELECT * FROM SX3010.DBF");
   6: $QueryTables.Refresh();
   7: While ( $QueryTables.Refreshing ){}
   8: $oWorkbooks.SaveAs("C:\SX3010.xlsx");

Instanciei um novo Objeto COM para o Excel. Conectei a Fontes de Dados, populei a planilha com as informações extraídas e salvei-a em um diretório pré-definido.


Usando o PowerGui Editor, no exemplo, teremos:


image


image


image


image


[]s


иαldσ dj

Nenhum comentário:

Postar um comentário