ajuda converter a macro em portugues

[sorel]

eutenho esta macro nao funciona  porque o excel é em portugues

 tem como converter em portugues? por favor ou o erro nao é por isto

Sub GetSheets()

'Update ExcelJunction.com

Path = ""

Filename = Dir(Path & "*.xls")

Do While Filename <> ""

Workbooks.Open Filename:=Path & Filename, ReadOnly:=True

For Each Sheet In ActiveWorkbook.Sheets

Sheet.Copy After:=ThisWorkbook.Sheets(1)

Next Sheet

Workbooks(Filename).Close

Filename = Dir()

Loop

End Sub

[FF882007]

Caro @sorel;

 

O codigo acima funciona corretamente, mesmo no excel em portugues, porem, voce deve incerir os parametros para que isso ocorra.

 

por exemplo: onde o codigo deve buscar a informação ? voce definiu ?

no cod acima não esta definido....

 

faça o seguinte:

crie uma pasta;

coloque (dentro dessa pasta) somente as planilhas que deseja unir;

crie uma planilha vazia com o cod acima;

em Path = ""; terceira linha do codm coloque o caminho para a pasta criada ex "C:\Users\sorel\"

 

pronto

 

ao abrir a pasta contendo o cod, ela busca todas as planilhas que estiverem dentro da pasta informada.

 

Tecnica e Investimento Sempre!!

 

[FF882007]

cod funcionando

 

 Sub GetSheets()

'Update ExcelJunction.com

Path = "C:\Users\sorel\Documents\"

Filename = Dir(Path & "*.xls")

Do While Filename <> ""

Workbooks.Open Filename:=Path & Filename, ReadOnly:=True

For Each Sheet In ActiveWorkbook.Sheets

Sheet.Copy After:=ThisWorkbook.Sheets(1)

Next Sheet

Workbooks(Filename).Close

Filename = Dir()

Loop

 

[sorel]

opa ff882007 obrigado pela força, entao agora tenho que criar uma pasta nos meus documentos

 com o nome de C:\Users\sorel\Documents\   , 

[sorel]

ff88 as plnilai sao do excel 2016 ou seja terminaçao= ( .xlsx) tenho que troca aqui=Filename = Dir(Path & "*.xls")

[sorel]

ala FF88 eu tentei a hora e nada , meus sistema  wiondows 7 64 bito excel 2016

voce por a planilia? ai eu crio a pasta nos meus documentos,

o inclivel para quem sabe é rapido quem nao sabe vai ficar 50 anos e numca vai conseguir

[sorel]

tem erro

Path = "C:\Users\Windows\Documents\excel workbooks\"

Filename = Dir(Path & "*.xlsx")

Do While Filename <> "C:\Users\Windows\Documents\excel workbooks\"

Workbooks.Open Filename:=Path & Filename, ReadOnly:=True

For Each Sheet In ActiveWorkbook.Sheets  

Sheet.Copy After:=ThisWorkbook.Sheets(1)

Next Sheet

Workbooks(Filename).Close

Filename = Dir()

Loop

End Sub

[FF882007]

1 hora atrás, sorel disse:

opa ff882007 obrigado pela força, entao agora tenho que criar uma pasta nos meus documentos

 com o nome de C:\Users\sorel\Documents\   , 

ISSO FOI UM EXEMPLO

pode ser uma pasta que ja existe, ou criar uma nova ok

[FF882007]

1 hora atrás, sorel disse:

tem erro

Path = "C:\Users\Windows\Documents\excel workbooks\" 

Filename = Dir(Path & "*.xlsx")

Do While Filename <> "C:\Users\Windows\Documents\excel workbooks\"

Workbooks.Open Filename:=Path & Filename, ReadOnly:=True

For Each Sheet In ActiveWorkbook.Sheets  

Sheet.Copy After:=ThisWorkbook.Sheets(1)

Next Sheet

Workbooks(Filename).Close

Filename = Dir()

Loop

End Sub

Do While Filename <> "C:\Users\Windows\Documents\excel workbooks\"  << de onde saiu isso??

[FF882007]

baixa ai ja pronta

 

testei no 2007 com extenção xlsx e funfou..

[sorel]

ok bom trabalho, te devo esta

 << de onde saiu isso?? bom isto é no meus documento ao inves de sorel 

com a extensao certa funcionou  valeu um forte abraço

é claro obrigado

[sorel]

bahhh,ff88 da para colocar umas 200 planilias sem erros, o cara é bom no codigo da macro

a correçao da extençao  foi o fato,  é bem rapido a macro em planilias pesadas

bom para visualizar indice para cruzamentos, ff88 voce pode usar tambem fica a vontade

[FF882007]

ok valeu