USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (VBA)

Título da Dica:  Criar uma planilha do excel através do VB
Postada em 15/9/2003 por ~Ð@®£@Ñ            
Sub CriaPlanilha()
   Dim exclApp As Object
   Dim exclBook As Object
   Dim excSheet As Object

   'Carregar o Excel:
   Set exclApp = CreateObject("Excel.Application")
   'Crie um WorkBook:
   Set exclBook = exclApp.WorkBooks.Add

   'Defina a planilha ativa p/ facilitar o trabalho:
   Set exclSheet = exclApp.ActiveWorkBook.ActiveSheet

   'Definir o conteúdo de 4 células:
   With exclSheet
         .Cells(1, 1).Value = "1"
         .Cells(1, 2).Value = "2"
         .Cells(1, 3).Value = "3"
         .Cells(1, 4).Value = "4"

         'Salvar o Arquivo
         .SaveAs "c:\teste.xls"
   End With

   'Limpe as variáveis de Objeto:
   Set exclSheet = Nothing
   Set exclBook = Nothing
   Set exclApp = Nothing
End Sub

Private Sub Command1_Click()
   CriaPlanilha
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2018   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página