Localizar e substituir no Excel através do VBA Access

[DreamPearl]

Bom dia!

Tenho o seguinte código que através do formulario em Access(2000) localiza e substitui numa folha de Excel:

Dim WApp As Object

Set WApp = CreateObject("Excel.Application")

WApp.Workbooks.Open (Parametrizacao.CaminhoTemplates & Texto4)

WApp.Visible = True

       

       

        With WApp

        .Cells.Replace What:="[Cliente]", Replacement:=Forms![imprime].Nome, LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

         

        .Cells.Replace What:="[Contacto]", Replacement:=Forms![imprime].Contacto, LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

(...)

agora o meu problema é k se nao estao alguns desses campos nas folhas de Excel ele  da sempre akelas mensagens de erro a dizer que nao encontrou...bla,bla... O cliente pode fazer outras folhas de Excel e precisar desses campos por isso nao apago...

Alguem po me ajudar?? Nem k seja alguma maneira de por um if....tiver substitui else...passa à frente...

🙂

Obrigada! 😄

[jpaulino]

Não entendi tudo! Esse código está a funciona certo ? Embora não tenhas mostrado tudo o que queres é substituir apenas numa folha especifica ? E essa folha tem o mesmo nome ou queres procurar em todas ?

PS: Atenção que isto não é um telemóvel ... escreve correctamente 😄

[DreamPearl]

Bom dia!

Esse codigo funciona correctamente. Atraves de uma listbox sao me dadas todas as folhas k estao numa pasta de templates... clico numa e escolho ...o k ele faz é abrir esse modelo, substituir com a informação k esta seleccionada num form de access e gravar com outro nome na pasta do processo... e faz isto tudo! só  que esses modelos mudam e nem sempre  têm os mesmos campos... A minha questao é ,por exemplo, abrir um template "teste" que nao tem o campo "Assunto" antes de substituir e gravar vai dar mensagem de erro a dizer que o Excel nao encontrou o campo....bla...bla... e isso é aborrecido pa o utilizador....imagina k faltas mais campos?quantas mensagens nao vao aparecer... 😞

Espero ter-me expressado bem  🙂

Obrigada 😄

[DreamPearl]

Desculpa lá!

Agora é que vi a última frase da tua resposta.

?

[jpaulino]

Desculpa lá!

Agora é que vi a última frase da tua resposta.

?

Já ia "cascar" 🙂

Tudo bem 😄

Experimenta desactivar os avisos ao utilizador. Mais ou menos:

.DisplayAlerts = False
   ' o teu código
.DisplayAlerts = True

[DreamPearl]

Muito obrigada!! 😁

Funcionou perfeitamente!

PS: Nunca mais escrevo com abreviaturas... 😄

[jpaulino]

Muito obrigada!! 😁

Funcionou perfeitamente!

PS: Nunca mais escrevo com abreviaturas... 😄

Ainda bem 🙂