Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Extensão do Arquivo...
 
Notifications
Clear all

Extensão do Arquivo Com .xlsx ou sem .xlsx

 
2024 - VBA & Macros
Post Recente por carlosrgs 9 anos atrás
3 Posts
2 Usuários
0 Reactions
646 Visualizações
RSS
carlosrgs
 carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
Topic starter
 

Boa tarde Galera.

Eu fiz uma planilha no meu PC, e distribui para uma galera do setor que trabalho usar.

Numa Macro, eu abro um arquivo em excel copio o conteúdo e depois fecho este arquivo.

Logo o código é 

ChDir "C:relato"
    Workbooks.Open Filename:="C:relatoctbr490.xml"
    Range("A1:I100000").Select
    Selection.Copy
    Windows("Razão V - 1.0").Activate
    Range("H11").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("ctbr490.xml").Activate
    Application.CutCopyMode = False
    ActiveWindow.Close

Em um outro computador, o windows está configurado para exibir a extensão do arquivo.

Nesta parte do código a macro para com erro.

Tem uma maneira de continuar sem alterar o código de Windows("Razão V - 1.0").Activate P/ Windows("Razão V - 1.0.xlsx").Activate ?

Valeu!

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 06/11/2015 11:20 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

carlosrgs,

Boa Tarde!

Essa é uma das maneiras:

ChDir "C:relato"
    Workbooks.Open Filename:="C:relatoctbr490.xml"
    Range("A1:I100000").Select
    Selection.Copy
    On Error GoTo Proxima
    Windows("Razão V - 1.0").Activate
Proxima:
    Windows("Razão V - 1.0.xlsx").Activate
    Range("H11").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("ctbr490.xml").Activate
    Application.CutCopyMode = False
    ActiveWindow.Close

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 06/11/2015 1:54 pm
carlosrgs
 carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
Topic starter
 

Obrigado Wagner.

Planilha rodando em todos os PCs agora.

Só errei na hora de digitar a extensão do arquivo.

é xlsm em vez de xlsx

Obrigado!

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 09/11/2015 8:40 am
Forum Jump:
  Tópico Anterior
Próximo Tópico