Erro em tempo de execução '1004': O método 'Open' do objeto 'Workbooks' falhou

[angelo_cesar]

ola pessoal boa noite , eu possuo uma macro para gerar um pedido , pois uma possuo uma planilha de cotação , apos ter colocado os preços na mesma eu gero um pedido atraves da macro pegando os dados da mesma e formula o pedido automatico , mas esta dando o erro na macro que esta no campo assunto, nao sei por que esta acontecendo isto , pois sempre usei normal , segue o codigo da mesma abaixo

Range("A1:P28").Select

Range("P1").Activate

Selection.Copy

Workbooks.Open FileName:="C:\COMPRAS\PEDIDO1.XLS"[/b ATENÇÃO QUANDO EU DEPURO A MACRO E O ERRO ESTA EM AMARELO AQUI NESTA LINHA

Range("A1").Select

ActiveSheet.Paste

Application.CutCopyMode = False

Selection.Interior.ColorIndex = xlNone

Range("S7:U20").Select

Selection.Copy

Range("V7").Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Range("V6:X20").Select

Application.CutCopyMode = False

Selection.Sort Key1:=Range("X7"), Order1:=xlDescending, Key2:=Range("V7") _

, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _

False, Orientation:=xlTopToBottom

Sheets("Pedido de Compras").Select

Range("A7:J40").Select

Selection.Copy

Range("A7").Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Sheets("Coleta").Select

Columns("P:X").Select

Range("X1").Activate

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Sheets("Pedido de Compras").Select

Range("A1").Select

End Sub

[Visitante]

experimente:

Workbooks.Open "C:\COMPRAS\PEDIDO1.xls"

ou

Workbooks.Open ("C:\COMPRAS\PEDIDO1.xls")

[angelo_cesar]

obrigado pela ajuda , mas mudei e ainda continua com o mesmo erro! estou perdido , por que uso esta macro a muito tempo e nunca deu problema e agora nao sei resolver o mesmo!

[Visitante]

verifique:

1. se a pasta COMPRAS existe em C:

2. se o arquivo PEDIDO1 existe na pasta COMPRAS

3. se o arquivo tem extensão .xls (versão 2003) ou outra extensão

4. se o nome da pasta e o nome do arquivo estão escritos corretamente na macro (grafia, espaços ou caracteres indevidos)

[angelo_cesar]

então osvaldo boa tarde obrigado pela resposta , mas acabei de olhar esta tudo certinho , pasta , extensão da planilha , estão todas salvas em .xls

[Visitante]

Aê, Angelo.

O seu código funciona aqui. É algum problema relacionado com o seu Excel ou com a sua máquina.

Tente este penúltimo tiro... com bastante fé...

Application.Workbooks.Open ("C:\COMPRAS\PEDIDO1.xls")

abraço

[angelo_cesar]

olá osvaldo boa tarde , desculpe a demora de responder , mas voltou a funcionar a mesma sem mexer em nada na mesma. sei lá o que ouve , desde ja muito obrigado

[Flavio Soares]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.