Abrir planilha específica com macro Excel VBA

[rovisilva]

Bom dia,

Estou com um probleminha, não consigo resolvê-lo.

Já pesquisei aqui no fórum e no google, acabei não achando nada. É algo simples, espero que alguém possa me ajudar.

Tenho duas planilhas.

Vamos chamá-las de A e B.

A planilha A tem dois CommandButtons, o cmd1 e o cmd2.

Quero que o cmd1 chame o arquivo planilha B, abrindo no sheet1 e o cmd2 chame o arquivo planilha B, abrindo no sheet2.

Até agora eu fiz o seguinte:

Dim Xls As Object

Dim WkSheet As Object

Dim WkBook As Object

Private Sub CommandButton1_Click()

Set Xls = CreateObject("Excel.Application")

Set WkBook = Xls.Workbooks.Open("B.xls#Sheet1")

Set WkSheet = WkBook.ActiveSheet

Xls.Visible = True

End Sub

Private Sub CommandButton2_Click()

Set Xls = CreateObject("Excel.Application")

Set WkBook = Xls.Workbooks.Open("B.xls#Sheet2")

Set WkSheet = WkBook.ActiveSheet

Xls.Visible = True

End Sub

Dessa forma, ele abre o worksheet B, mas não encontra o Sheet1 ou Sheet2.

Se eu não colocar o "#SheetX", ele abre a planilha normalmente, mas não no sheet que eu quero.

Alguém pode me ajudar?

[PeHeBaCaSo]

Bom dia,

sou iniciante em VB Excel portanto fiquei confuso com o código que você utilizou, criei o código abaixo com poucos conhecimentos que tenho, é mais simples mas creio que irei poder te ajudar.

Private Sub CommandButton1_Click()
    Workbooks.Open ("C:\Documents and Settings\Administrador\Meus documentos\B.xls")
    Worksheets("Plan1").Activate
End Sub

Private Sub CommandButton1_Click()
    Workbooks.Open ("C:\Documents and Settings\Administrador\Meus documentos\B.xls")
    Worksheets("Plan2").Activate
End Sub

Obs.:

"C:\Documents and Settings\Administrador\Meus documentos\" é o caminho onde sua planilha B está localizada.

Espero ter te ajudado, poste se o código funcionou!!!!

:D:D

Abraços!

Pedro Henrique B. C. de Souza

[gilliardpc]

não consigo abrir arquivo word

Private Sub Comando3_Click()

 Workbooks.Open ("C:\Users\GilliardPacheco\Desktop\novo sistig\cartas\carta de colaboração.doc")
   

End Sub
 

[Basole]

Tente desta forma: 

Dim objWord As Object

Set objWord = CreateObject("Word.application")

objWord.documents.Open "C:\Users\GilliardPacheco\Desktop\novo sistig\cartas\carta de colaboração.doc"

objWord.Visible = True
' SEU CODIGO ......

'objWord.Close

 

 

[Lucasluiz]

Tenho um problema parecido.

 

Fiz uma macro que se alimenta de diversas planilhas e só consigo rodar ela na minha máquina, pois o user das outras pessoas varia de máquina para máquina.

 

exp:

 

C:\Users\GilliardPacheco\Desktop\novo sistig\cartas\carta de colaboração.doc

C:\Users\Administrador\Desktop\novo sistig\cartas\carta de colaboração.doc

 

Existe alguma função que dê para inserir um nome genérico?

 

[Basole]

Sim! use a função Environ

 

Exemplo

 

Sub Teste_Path()
Dim msg

msg = "C:\Users\" & VBA.Environ$("USERNAME") & "\Desktop\novo sistig\cartas\carta de colaboração.doc" & VBA.vbCr
msg = msg & "C:\Users\" & VBA.Environ$("USERNAME") & "\Desktop\novo sistig\cartas\carta de colaboração.doc"

MsgBox msg

End Sub

 

 

 

[Charley Rocha]

Olá,

 

Eu estou com um problema relacionado a esse. Eu estou desenvolvendo um software em VB que lê dados de uma planilha do Excel e também alimenta essa planilha com outros dados. Ao iniciar um novo projeto, o usuário clica em um botão e o programa abre uma planilha "template" e salva com o nome que usuário digitou. Ao clicar no botão "Carregar", ao invés de iniciar um novo projeto o programa importa dados de uma planilha existente.

 

Só que se o usuário digitar um nome de projeto que não existe e clicar em "Carregar" o programa dá erro e fecha. Eu gostaria de poder cercar essa situação e fazer aparecer uma MsgBox dizendo "Projeto não encontrado" e o programa continuasse aberto.

 

Alguém pode me ajudar?

 

Agradeço.

 

Charley Rocha

[Charley Rocha]

Consegui resolver pessoal. Pra quem estiver enfrentando o mesmo problema, segue:

 

Basta colocar a instrução On Error ANTES da parte do código onde se prevê que possa acontecer um erro. Na verdade eu já imaginava que deveria usar essa instrução, mas estava colocando ela DEPOIS do código.

 

Se houver dúvida sobre a sintaxe pode-se consultar esse link, de onde eu obtive a solução:

 

http://www.macoratti.net/erros.htm

 

Há braços.

[Erik Wesley]

17 horas atrás, Charley Rocha disse:

Olá,

 

Eu estou com um problema relacionado a esse. Eu estou desenvolvendo um software em VB que lê dados de uma planilha do Excel e também alimenta essa planilha com outros dados. Ao iniciar um novo projeto, o usuário clica em um botão e o programa abre uma planilha "template" e salva com o nome que usuário digitou. Ao clicar no botão "Carregar", ao invés de iniciar um novo projeto o programa importa dados de uma planilha existente.

 

Só que se o usuário digitar um nome de projeto que não existe e clicar em "Carregar" o programa dá erro e fecha. Eu gostaria de poder cercar essa situação e fazer aparecer uma MsgBox dizendo "Projeto não encontrado" e o programa continuasse aberto.

 

Alguém pode me ajudar?

 

Agradeço.

 

Charley Rocha

 

 

Você pode usar um sistema de busca nos nomes existentes e colocar alguns IF's para ajudar.

adicionado 1 minuto depois

Em 25/05/2009 às 10:21, rovisilva disse:

Bom dia,

Estou com um probleminha, não consigo resolvê-lo.

Já pesquisei aqui no fórum e no google, acabei não achando nada. É algo simples, espero que alguém possa me ajudar.

Tenho duas planilhas.

Vamos chamá-las de A e B.

A planilha A tem dois CommandButtons, o cmd1 e o cmd2.

Quero que o cmd1 chame o arquivo planilha B, abrindo no sheet1 e o cmd2 chame o arquivo planilha B, abrindo no sheet2.

Até agora eu fiz o seguinte:

Dim Xls As Object

Dim WkSheet As Object

Dim WkBook As Object

Private Sub CommandButton1_Click()

Set Xls = CreateObject("Excel.Application")

Set WkBook = Xls.Workbooks.Open("B.xls#Sheet1")

Set WkSheet = WkBook.ActiveSheet

Xls.Visible = True

End Sub

Private Sub CommandButton2_Click()

Set Xls = CreateObject("Excel.Application")

Set WkBook = Xls.Workbooks.Open("B.xls#Sheet2")

Set WkSheet = WkBook.ActiveSheet

Xls.Visible = True

End Sub

Dessa forma, ele abre o worksheet B, mas não encontra o Sheet1 ou Sheet2.

Se eu não colocar o "#SheetX", ele abre a planilha normalmente, mas não no sheet que eu quero.

Alguém pode me ajudar?

 

Se puder colocar um exemplo seria mais simples...