VBA - limitar quantidade de planilha no excel

[kbça_master]

queria uma linha de comando para ter somente 1 planilha no arquivo gerado, e não 3, como é o padrão.

[lobismano]

E ai beleza.

Tenta isso.

Office 7

Opções do Excel -> Mais Usados -> "Incluir este número de planilhas:"

http://img607.imageshack.us/i/85296869.jpg/

http://img850.imageshack.us/i/90884216.jpg/

At.

[João.Neto]

Oi, segue código VBA:

Application.SheetsInNewWorkbook = 1

B)

[kbça_master]

pow velho..ate funcionou..e eu agradeço...

só q se você rodar esse codigo vai ver q quando cria o xls ele cria as planilhas "DADOS" e "Plan1", que é realmente o que o codigo faz.

qria saber como faço pra só aparecer a planilha "DADOS" a partir desse codigo abaixo:

'Declara variáveis.

Dim APLICATIVOEXCEL As Excel.Application

Dim PASTA As Excel.Workbook

Dim PLANILHA As Excel.Worksheet

'Carrega o Excel.

Set APLICATIVOEXCEL = CreateObject("Excel.Application")

'Cria uma pasta de trabalho.

Set PASTA = APLICATIVOEXCEL.Workbooks.Add

'Define uma nova planilha.

Set PLANILHA = APLICATIVOEXCEL.ActiveWorkbook.Sheets.Add

'Define o nome da planilha.

PLANILHA.Name = "DADOS"

'Limitar o número de planilhas no novo arquivo excel gerado.

APLICATIVOEXCEL.SheetsInNewWorkbook = 1

'Aplicação e planilha visíveis.

APLICATIVOEXCEL.Visible = True

PLANILHA.Visible = True

agradeço

[João.Neto]

ok então.

Fiz duas modificações em seu código (em negrito)

'Declara variáveis.

Dim APLICATIVOEXCEL As Excel.Application

Dim PASTA As Excel.Workbook

Dim PLANILHA As Excel.Worksheet

'Carrega o Excel.

Set APLICATIVOEXCEL = CreateObject("Excel.Application")

'Limitar o número de planilhas no novo arquivo excel gerado.

APLICATIVOEXCEL.SheetsInNewWorkbook = 1

'Cria uma pasta de trabalho.

Set PASTA = APLICATIVOEXCEL.Workbooks.Add

'Define uma nova planilha.

Set PLANILHA = APLICATIVOEXCEL.ActiveWorkbook.Worksheets(1)

'Define o nome da planilha.

PLANILHA.Name = "DADOS"

'Aplicação e planilha visíveis.

APLICATIVOEXCEL.Visible = True

PLANILHA.Visible = True