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.

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:

[]s

иαldσ dj