Notifications
Clear all

Abrindo planilhas com openDialog

7 Posts
3 Usuários
0 Reactions
1,322 Visualizações
 ti02
(@ti02)
Posts: 0
New Member
Topic starter
 

Olá amigos, estou trabalhando com abertura de planilhas porém uso o seguinte meio

Workbooks.Open Filename:= _
"J:PUBLICPlanilha1.xls

fico limitado, dessa forma, a acessar somente a planilha que está neste caminho.
Não há uma forma de abrir com openFileDialog??

 
Postado : 08/05/2017 12:07 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

ti02,

Boa tarde!

Veja se é assim.

 
Postado : 08/05/2017 12:32 pm
 ti02
(@ti02)
Posts: 0
New Member
Topic starter
 

Wagner, sim é isso exatamente, porém...

Estou a usar a planilha aberta no macro antes de fecha-la, tenho algo assim:

Windows("planilha1.xls").Activate
    Range("E1:E10000").Select
    Application.CutCopyMode = False
    Selection.Copy

como poderia fazer exatamente a mesma coisa me utilizando dessa opção que você me passou?

 
Postado : 08/05/2017 12:45 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

ti02,

Não entendi...

Na primeira mensagem que você postou você disse:

estou trabalhando com abertura de planilhas

. Logo, imaginei que você queria uma forma de abrir os arquivos sem ter que ficar preso ao código para abrir os mesmos.

Agora você postou um outro código que nada tem com abertura ou fechamento de arquivos...

 
Postado : 08/05/2017 12:55 pm
 ti02
(@ti02)
Posts: 0
New Member
Topic starter
 

Desculpe, creio ter me expressado mal, estou trabalhando com planilhas, não somente com a abertura delas, sim?
Porém, do jeito que postei, que costumo usar, fico limitado também por ter de usar o mesmo nome sempre que quero ativar a planilha, assim, abrindo com openFileDialog, como eu poderia fazer a mesma coisa? que é ativar a planilha que abri, após ativar outra?

 
Postado : 08/05/2017 1:17 pm
(@brunoxro)
Posts: 0
New Member
 

Boa tarde ti02,

Não entendi muito bem o que você quer. Mas já tentou usar o GetOpenFilename?

Por exemplo:

Sub Exemplo_GetOpenFilename()

    Dim Caminho     As String
        
    'Pega o caminho do arquivo
    Caminho = Application.GetOpenFilename

    Workbooks.Open (Caminho)

End Sub

att,

 
Postado : 08/05/2017 2:06 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Se você acabou de abri o arquivo, então não precisa dessa linha:

Windows("planilha1.xls").Activate

Pois assim que abre, este será o arquivo ativo, Desse modo, se quer se referir a uma Célula desse arquivo, basta fazer assim:

ActiveWorkbook.Range("A2").Value = "José"
 
Postado : 08/05/2017 7:34 pm