Como utilizar a automatização OLE adicionar dados à folha de Excel

Traduções de Artigos Traduções de Artigos
Artigo: 142193 - Ver produtos para os quais este artigo se aplica.
Expandir tudo | Reduzir tudo

Nesta página

Sumário

OLE automatização fornece uma forma para Visual FoxPro para Windows interagir com outras aplicações compatíveis com OLE. Utilizando OLE, o programa do Visual FoxPro pode iniciar uma sessão de Microsoft Excel, abrir um livro, seleccione uma folha de cálculo do livro, colocar dados numa célula ou intervalo de células, imprimir uma folha de cálculo, guarde o livro actualizado e fechar a sessão do Microsoft Excel. Este artigo mostra como fazer isso por exemplo.

Mais Informação

Exemplo passo a passo

  1. Abra um livro novo 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 vai trabalhar.
  2. Seleccione folha 3 clicando no separador na parte inferior da folha de cálculo e introduza os seguintes dados na folha de cálculo:
          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, faça clique sobre Subtotal. Caixa de diálogo resultante deve mostrar que a cada alteração em parte #, a função 'Soma 'adiciona o subtotal para' Vendas (AE)' e visualizar esse resumo abaixo dos dados. Se for esse o caso, clique em OK.
  4. Clique no separador na parte inferior da folha de para folha 1 restaurar predefinido página o livro 1 de folha de cálculo.
  5. Guarde o livro. Em seguida, feche o livro e sair do Microsoft Excel. O código de exemplo seguinte, o livro foi guardado 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 de ajuda do Microsoft Excel "Objecto de aplicação" e muitos tópicos que estão incluídos nas listas de propriedades e métodos desse tópico.

Para obter mais informações sobre muitos dos conceitos do programa de exemplo, consulte os seguintes artigos na base de dados de conhecimento da Microsoft:
139051Como seleccionar células no Microsoft Excel utilizando Automatização OLE
132535PROBLEMA: Fechar variável de objecto fechar não Microsoft Excel
138398PROBLEMA: Edição poderá não remover OLE objectos de memória

Propriedades

Artigo: 142193 - Última revisão: 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 revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes 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