|
|
Postada em 12/02/2008 10:00 hs
Pessoal, estou tentando criar planilhas no Excel com o VB, peguei aqui no Fórum alguns exemplos e até consegui criar uma planilha de teste, porém gostaria de saber como fazer para depois de inserir os dados na planilha, fazer com que o Excel abra automaticamente esta planilha gerada, sem ter que sair do programa, abrir o Excel e depois abrir a planilha. E outra coisa, quando eu crio a planilha, abro o Excel para abrir a planilha, aparece a mensagem de que a planilha criada está bloqueada para edição podendo somente abrí-la para leitura. Acho que falta alguma coisa no final da rotina para, tipo apagar variável de memória, etc e tal. não consegui descobrir onde está o erro. Alguém me ajuda, por favor? Até mais. |
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 12/02/2008 10:03 hs
Perci qual foi a dica que você utilizou |
|
|
|
|
|
Postada em 12/02/2008 10:22 hs
Olha, Treze, eu busquei na seção dicas, digitei Excel e apareceram algumas dicas. Eu peguei esta. Claro que alterei alguns valores na minha planilha. CRIANDO UMA PLANILHA DO EXCEL 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: este.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 Creio que este modo de limpar as variáveis não está correto, pois aparece a mensagem que eu comentei. |
|
|
|
|
