|
|
|
|
 |
Título da Dica: Criando Planilha Excel com VB Adicionando Várias Planilhas em Uma - Sheets
|
 |
|
|
|
Postada em 31/3/2004 por FatBoy
Crie uma referencia no projeto a biblioteca do MicroSoftExcel
Usei uma dica já existente no site para exemplo com algumas alterações que dara o resultado esperado, este exemplo é meramente didadico podendo ser usado com loops e tudo mais.
Sub CriaPlanilha()
Dim fApp As Excel.Application
Dim fBook As Excel.Workbook
Dim fSheet As Excel.Worksheet
'Carregar o Excel:
Set fApp = CreateObject("Excel.Application")
'Crie um WorkBook:
Set fBook = fApp.Workbooks.Add
'Defina Uma nova Planilha
Set fSheet = fApp.ActiveWorkbook.Sheets.Add
fSheet.Name = "FAT"
fApp.Visible = True
fSheet.Visible = True
'Definir o conteúdo de 4 células:
With fSheet
.Cells(1, 1).Value = "F"
.Cells(1, 2).Value = "A"
.Cells(1, 3).Value = "T"
End With
Set fSheet = Nothing
Set fSheet = fApp.ActiveWorkbook.Sheets.Add
fSheet.Name = "FATBOY"
fSheet.Visible = True
'Definir o conteúdo de 4 células:
With fSheet
.Cells(1, 1).Value = "FAT"
.Cells(1, 2).Value = "BOY"
.Cells(1, 3).Value = "FAT"
.Cells(1, 4).Value = "BOY"
End With
Set fSheet = Nothing
Set fSheet = fApp.ActiveWorkbook.Sheets.Add
fSheet.Name = "FATBOY1"
fSheet.Visible = True
'Definir o conteúdo de 4 células:
With fSheet
.Cells(1, 1).Value = "FATBOY"
.Cells(1, 2).Value = "FATBOY"
.Cells(1, 3).Value = "FATBOY"
.Cells(1, 4).Value = "FATBOY"
End With
'Limpe as variáveis de Objeto:
Set fSheet = Nothing
Set fBook = Nothing
Set fApp = Nothing
End Sub
Private Sub Command1_Click()
CriaPlanilha
End Sub
|
|
|
|
|
