Pular para o conteúdo principal

Postagem em destaque

BlackTDN NEWS :: 2025.02.12 :: 22:09:23

_Créditos das imagens: ChatGPT # Essa é a primeira imagem gerada por IA protegida por direitos autorais **Fonte:** B9.com.br **Autor:** Carlos Merigo **Publicado em:** 2025-02-12T17:58:04Z ![Imagem](https://assets.b9.com.br/wp-content/uploads/2025/02/i-american-cheese.jpg) > A primeira obra de arte inteiramente gerada por inteligência artificial acaba de receber proteção de direitos autorais nos Estados Unidos. A imagem “A Single Piece of American Cheese”, criada por Kent Keirsey, CEO da Invoke, foi aprovada pelo U.S. Copyright O… [Leia mais](https://www.b9.com.br/171074/imagem-ia-recebe-protecao-direitos-autorais-american-cheese/) --- # SXSW 2025: Issa Rae, Hideo Kojima e elenco de “The Last of Us” estão entre os novos destaques confirmados **Fonte:** B9.com.br **Autor:** Carlos Merigo **Publicado em:** 2025-02-12T13:06:07Z ![Imagem](https://assets.b9.com.br/wp-content/uploads/2025/02/sxsw-pedro-pascal.jpg) > O SXSW anunciou uma nova leva de keynotes e palestrantes para...

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

Comentários

Postagens mais visitadas