Como usar automação OLE para adicionar dados a planilha do Excel

Traduções deste artigo Traduções deste artigo
ID do artigo: 142193 - Exibir os produtos aos quais esse artigo se aplica.
Expandir tudo | Recolher tudo

Neste artigo

Sumário

OLE automação fornece uma maneira para Visual FoxPro para Windows para interagir com outros aplicativos compatíveis com OLE. Usando OLE, o programa FoxPro pode iniciar uma sessão do Microsoft Excel, abra uma pasta de trabalho, selecione uma planilha da pasta de trabalho, colocar dados em uma célula ou intervalo de células, imprimir uma planilha, salvar a pasta de trabalho atualizada e fechar a sessão do Microsoft Excel. Este artigo mostra pelo exemplo de como fazer exatamente isso.

Mais Informações

Exemplo passo a passo

  1. Abra uma nova pasta de trabalho no Microsoft Excel 5.0 ou Microsoft Excel 7.0 (parte do Office 95) ou no Microsoft Excel 97 (parte do Office 97), para que o programa de exemplo neste artigo funcionarão.
  2. Selecione folha 3 clicando na guia na parte inferior da planilha e digite os seguintes dados na planilha:
          Enter         In Cells
          ----------------------------
          Part #        A1
          Sales YTD     B1
          1             A2 through A4
          2             A5 through A7
          3             B2 through B7
    					
  3. No menu dados do Microsoft Excel, clique em subtotal. A caixa de diálogo resultante deve mostrar que a cada alteração na parte #, a função 'Soma vendas 'adiciona o subtotal para' Ano' e exibir esse resumo abaixo dos dados. Em caso afirmativo, clique em OK.
  4. Clique na guia na parte inferior da planilha para planilha 1 Restaurar padrão página da pasta de trabalho 1 da planilha.
  5. Salve a pasta de trabalho. Feche a pasta de trabalho e sair do Microsoft Excel. Para o seguinte código de exemplo, a pasta de trabalho foi salva como
          C:\XLSheets\Testbook.xls.
    					
  6. No Microsoft Visual FoxPro para Windows, crie o seguinte programa denominado oleExcel.prg:
    *** Program oleExcel.prg *****
    #DEFINE xlLandscape 2
    #DEFINE xlDoNotSaveChanges 2
    
    DIMENSION laDemoData(4)      && For some Visual FoxPro users, data
    laDemoData(1)= 1024          && could come from table or view
    laDemoData(2)= 2048
    laDemoData(3)= 5120
    laDemoData(4)= "The Sample Message"
    
    loExcel = CREATEOBJECT("Excel.application") 
    
    WITH loExcel
       .Application.Workbooks.Open("C:\XLSheets\testbook.xls")
       .Application.Worksheets("Sheet3").Activate  && Select sheet
       
       .Range("b2").Value = 14444          && constants as data
       .Range("b3").Value = 25555
       .Range("b4").Value = 30001
    
       .Range("b6").Value = laDemoData(1)  && variables as data
       .Range("b7").Value = laDemoData(2)
       .Range("b8").Value = laDemoData(3)
       .Range("a12").Value = laDemoData(4)
    
       .Worksheets("Sheet3").PageSetup.Orientation = xlLandscape
       .ActiveSheet.PrintOut  && Example of printing the worksheet
    
       .Visible = .t. && See the results
       =MESSAGEBOX("Click OK to close Excel.") && Keep the program running, 
                                               && so Excel isn't stranded
    
       .ActiveWindow.Close(xlDoNotSaveChanges)
       .Quit()
    ENDwith
    					

Referências

Examine o tópico da Ajuda do Microsoft Excel "Objeto de aplicativo" e muitos tópicos apresentados nas listas de propriedades e métodos desse tópico.

Para obter mais informações sobre muitos dos conceitos no programa de exemplo, leia os seguintes artigos na Base de dados de Conhecimento da Microsoft:
139051Como selecionar células no Microsoft Excel por meio de automação OLE
132535PROBLEMA: Liberando a variável de objeto não fechar o Microsoft Excel
138398PROBLEMA: Versão pode não remover OLE objetos de memória

Propriedades

ID do artigo: 142193 - Última revisão: terça-feira, 13 de julho de 2004 - Revisão: 3.3
A informação contida neste artigo aplica-se a:
  • Microsoft Visual FoxPro 3.0 Standard Edition
  • Microsoft Visual FoxPro 3.0b Standard Edition
  • Microsoft Visual FoxPro 5.0 Standard Edition
  • Microsoft Visual FoxPro 6.0 Professional Edition
Palavras-chave: 
kbmt kbcode kbhowto kbinterop KB142193 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 142193

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com