[Resolvido]Trabalhando com Sheets

Oi pessoal td bom!? Será que alguém poderia me ajudar na seguinte questão!?

Eu tenho duas consultas para exportar do Access pro Excel, até ai tudo bem... Fiz a formatação para a primeira Sheet do excel (até ai ok), o problema é que eu não estou conseguindo configurar cor, letra diferentes pra segunda Sheet...

A segunda sheet fica com o msm aspecto da primeira...

Como posso alterar as cores e fontes independente uma da outra?

Olá! Poste o código completo que está utilizando para darmos uma olhada.

Opa....desculpem a demora...

Segue o código...

'Inicia a variavel com o nome da planilha
vNome = "Tabela"

Set db = CurrentDb()
Set cs = db.OpenRecordset("select * from Tabela;")

'Verifica se o arquivo não está vazio
If Not cs.EOF Then

'Concatena o caminho do arquivo escolhido pelo usuario com o nome da planilha criada
'verifica se o arquivo existe, se existir será excluido para criar um novo
If Dir(x & vNome) <> "" Then
Kill x & vNome
End If

'Transfere como planilha para o Excel
DoCmd.TransferSpreadsheet acExport, 10, "Teste1", x & vNome, True, ""
DoCmd.TransferSpreadsheet acExport, 10, "Teste2", x & vNome, True, ""


Set Excel = CreateObject("Excel.Application")
Set ExcelWBK = Excel.workbooks.Open(x & vNome)
DoCmd.SetWarnings False

Excel.Application.DisplayAlerts = False
Excel.Application.Visible = True

'Zoom da página
Excel.ActiveWindow.Zoom = 80
'Cria a primeira linha em branco
Excel.Rows("1:1").Select
Excel.Range("A1:AK1").Select
Excel.Selection.Insert Shift:=-4121
Set ExcelWS = ExcelWBK.worksheets

Excel.Cells(1, 1) = "Dados"
Excel.Cells(1, 12) = "Produce"
Excel.Cells(1, 25) = "Memo"
Excel.Range("A1:Y1").Select
With Excel.Selection
.Font.Name = "Calibri"
.Font.Bold = True
.Font.Size = 11
'.HorizontalAlignment = xlCenterAcrossSelection
End With

Excel.Cells.Select
Excel.Cells.EntireColumn.AutoFit

Excel.Range("A1:K2").Select
With Excel.Selection.Interior
.ColorIndex = 15
End With

Excel.Range("L1:W2").Select
With Excel.Selection.Interior
.ColorIndex = 6
End With

Excel.Range("X1:X2").Select
With Excel.Selection.Interior
.ColorIndex = 2
End With

Excel.Range("Y1:AK2").Select
With Excel.Selection.Interior
.ColorIndex = 43
End With

With Excel.Selection.Borders(xlEdgeTop)
.Weight = "$00000004"
.LineStyle = -4119
.ColorIndex = -4105
End With
With Excel.Selection.Borders(xlEdgeLeft)
.Weight = "$00000004"
.LineStyle = -4119
.ColorIndex = -4105
End With
With Excel.Selection.Borders(xlEdgeRight)
.Weight = "$00000004"
.LineStyle = -4119
.ColorIndex = -4105
End With
With Excel.Selection.Borders(xlEdgeBottom)
.Weight = "$00000004"
.LineStyle = -4119
.ColorIndex = -4105
End With

Excel.Range("A2:AK2").Select
Excel.Selection.Font.Size = 11
Excel.Selection.HorizontalAlignment = xlCenter
Excel.Range("A1:A1").Select


Excel.Columns("l:w").Select
Excel.Selection.NumberFormat = "#,##0.00;[Red](#,##0.00)"

Excel.Columns("y:ak").Select
Excel.Selection.NumberFormat = "#,##0.00;[Red](#,##0.00)"


ExcelWBK.SaveAs FileName:=x & vNome & ".xlsx"

Set ExcelWS = Nothing
Set ExcelWBK = Nothing

End If

Tente selecionar a segunda planilha antes de aplicar as alterações:

Excel.Sheets("NomeDaPlanilha").Select

Nome da planilha ou nome da Sheet?!

Colocando o nome da planilha o vNome ou o da Sheet Teste2 da erro....

Aonde começam as células da planilha 2 e aonde você está colocando a linha que eu passei?

Não estou trabalhando com duas planilhas.... E sim coloquei estas duas consultas em uma mesma planilha (são só abas diferentes...) Coloquei a sua linha antes de começar a especificar a formatação do Excel.... mas não funciona....

O que fazer?

Ok....queira em português ou em inglês, esta linha de comando "Excel.Sheets("NomeDaPlanilha").Select" não funciona pois o Access acusa "Object applied"...

E eu acrescento a linha que vc me passou antes de começar a parametrização do excel....

Oi Cibele

Parece que está havendo uma confusão de nomenclatura:
Um arquivo do Excel chama-se pasta, e esta pasta pode conter várias planilhas (ou sheets), como mostra a imagem postada pelo Criquio.

Norbs eu entendi... só que quando eu coloco Excel.Sheets("Teste1").Select

Não funciona....

Testado e a funfar:


'Inicia a variavel com o nome da planilha
vNome = "teste.xlsx"

Set db = CurrentDb()
Set cs = db.OpenRecordset("select * from Teste1;")

'Verifica se o arquivo não está vazio
If Not cs.EOF Then

'Concatena o caminho do arquivo escolhido pelo usuario com o nome da planilha criada
'verifica se o arquivo existe, se existir será excluido para criar um novo
If Dir(X & vNome) <> "" Then
Kill X & vNome
End If

'Transfere como planilha para o Excel
DoCmd.TransferSpreadsheet acExport, 10, "Teste1", X & vNome, True, ""
DoCmd.TransferSpreadsheet acExport, 10, "Teste2", X & vNome, True, ""

Set Excel = CreateObject("Excel.Application")
Set ExcelWBK = Excel.workbooks.Open(X & vNome)
DoCmd.SetWarnings False

Excel.Sheets("Teste1").Select

Excel.Application.DisplayAlerts = False
Excel.Application.Visible = True

'Zoom da página
Excel.ActiveWindow.Zoom = 80
'Cria a primeira linha em branco
Excel.Rows("1:1").Select
Excel.Range("A1:AK1").Select
Excel.Selection.Insert Shift:=-4121
Set ExcelWS = ExcelWBK.worksheets

Excel.Cells(1, 1) = "Dados"
Excel.Cells(1, 12) = "Produce"
Excel.Cells(1, 25) = "Memo"
Excel.Range("A1:Y1").Select
With Excel.Selection
.Font.Name = "Calibri"
.Font.Bold = True
.Font.Size = 11
'.HorizontalAlignment = xlCenterAcrossSelection
End With

Excel.Cells.Select
Excel.Cells.EntireColumn.AutoFit

Excel.Range("A1:K2").Select
With Excel.Selection.Interior
.ColorIndex = 15
End With

Excel.Range("L1:W2").Select
With Excel.Selection.Interior
.ColorIndex = 6
End With

Excel.Range("X1:X2").Select
With Excel.Selection.Interior
.ColorIndex = 2
End With

Excel.Range("Y1:AK2").Select
With Excel.Selection.Interior
.ColorIndex = 43
End With

With Excel.Selection.Borders(xlEdgeTop)
.Weight = "$00000004"
.LineStyle = -4119
.ColorIndex = -4105
End With
With Excel.Selection.Borders(xlEdgeLeft)
.Weight = "$00000004"
.LineStyle = -4119
.ColorIndex = -4105
End With
With Excel.Selection.Borders(xlEdgeRight)
.Weight = "$00000004"
.LineStyle = -4119
.ColorIndex = -4105
End With
With Excel.Selection.Borders(xlEdgeBottom)
.Weight = "$00000004"
.LineStyle = -4119
.ColorIndex = -4105
End With

Excel.Range("A2:AK2").Select
Excel.Selection.Font.Size = 11
Excel.Selection.HorizontalAlignment = xlCenter
Excel.Range("A1:A1").Select


Excel.Columns("l:w").Select
Excel.Selection.NumberFormat = "#,##0.00;[Red](#,##0.00)"

Excel.Columns("y:ak").Select
Excel.Selection.NumberFormat = "#,##0.00;[Red](#,##0.00)"

Excel.Sheets("Teste2").Select

'Zoom da página
Excel.ActiveWindow.Zoom = 80
'Cria a primeira linha em branco
Excel.Rows("1:1").Select
Excel.Range("A1:AK1").Select
Excel.Selection.Insert Shift:=-4121
Set ExcelWS = ExcelWBK.worksheets

Excel.Cells(1, 1) = "Dados"
Excel.Cells(1, 12) = "Produce"
Excel.Cells(1, 25) = "Memo"
Excel.Range("A1:Y1").Select
With Excel.Selection
.Font.Name = "Calibri"
.Font.Bold = True
.Font.Size = 11
'.HorizontalAlignment = xlCenterAcrossSelection
End With

Excel.Cells.Select
Excel.Cells.EntireColumn.AutoFit

Excel.Range("A1:K2").Select
With Excel.Selection.Interior
.ColorIndex = 15
End With

Excel.Range("L1:W2").Select
With Excel.Selection.Interior
.ColorIndex = 6
End With

Excel.Range("X1:X2").Select
With Excel.Selection.Interior
.ColorIndex = 2
End With

Excel.Range("Y1:AK2").Select
With Excel.Selection.Interior
.ColorIndex = 43
End With

With Excel.Selection.Borders(xlEdgeTop)
.Weight = "$00000004"
.LineStyle = -4119
.ColorIndex = -4105
End With
With Excel.Selection.Borders(xlEdgeLeft)
.Weight = "$00000004"
.LineStyle = -4119
.ColorIndex = -4105
End With
With Excel.Selection.Borders(xlEdgeRight)
.Weight = "$00000004"
.LineStyle = -4119
.ColorIndex = -4105
End With
With Excel.Selection.Borders(xlEdgeBottom)
.Weight = "$00000004"
.LineStyle = -4119
.ColorIndex = -4105
End With

Excel.Range("A2:AK2").Select
Excel.Selection.Font.Size = 11
Excel.Selection.HorizontalAlignment = xlCenter
Excel.Range("A1:A1").Select


Excel.Columns("l:w").Select
Excel.Selection.NumberFormat = "#,##0.00;[Red](#,##0.00)"

Excel.Columns("y:ak").Select
Excel.Selection.NumberFormat = "#,##0.00;[Red](#,##0.00)"

ExcelWBK.SaveAs FileName:=X & vNome & ".xlsx"

Excel.Application.DisplayAlerts = True

Set ExcelWS = Nothing
Set ExcelWBK = Nothing

End If

Ao que parece a questão estava residindo no local aonde você colocou a linha que eu passei. Observe que eu falei para colocá-la antes de mudar para a segunda sheet, conforme exemplo postado pelo amigo JPaulo, ou seja, toda a formatação da primeira sheet deve ficar antes dessa linha e a formatação da segunda sheet, após essa linha.

Agora deu certo... mas por um detalhe ao qual eu não sabia e cabe como um aprendizado... o problema além da posição da linha da identificação da planilha era que minha consulta começava com números e não com letras como no Teste1 começava com 4D... E eu percebi que numeração ele da o erro de run-time error 9...

Muito obrigada pessoal! Um bom ano novo á todos!