|
|
|
|
 |
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
|
|
|
|
|
