Como criar e apagar documentos via VBA?

[Marlon S 0]

Olá, a princípio, gostaria de salvar planilhas em documentos word ou txt que servissem como relatórios.

 

Procurei saber como se apaga um objeto, mas a seguinte macro não funciona, por quê?

 

Sub deleta()

Dim wdDoc As Object

Set wdDoc = GetObject(ThisWorkbook.Path & "\teste.docx")

Kill wdDoc

End Sub

[scorpio 7]

Olá, a princípio, gostaria de salvar planilhas em documentos word ou txt que servissem como relatórios.

 

Procurei saber como se apaga um objeto, mas a seguinte macro não funciona, por quê?

 

Sub deleta()

Dim wdDoc As Object

Set wdDoc = GetObject(ThisWorkbook.Path & "\teste.docx")

Kill wdDoc

End Sub

Está utilizando errado o Kill.

 

 

Kill "C:\doc1.docx"

[Marlon S 0]

Olá, Scorpio.

 

Obrigado, mas o que acontece se eu não tiver o endereço exato, apenas que o arquivo que preciso apagar está em uma pasta dentro daquela em que o xls se encontra?

[scorpio 7]

Não entendi.

[Marlon S 0]

é que você utilizou "C:\doc1.docx" sabendo que doc1.docx está na pasta C:\

e se a única coisa que souber sobre doc1.docx é que ele está na mesma pasta que o arquivo do excel "myworkbook.path"?

[scorpio 7]

Recupera a pasta o arquivo excel e lista os arquivos.

 

List Files in folder: http://www.freevbcode.com/ShowCode.Asp?ID=1487

[Fagner Takeshi 0]

Use File System Object.

 

Att,

 

Fagner Takeshi

Analista de Sistemas

 

Recupera a pasta o arquivo excel e lista os arquivos.

 

List Files in folder: http://www.freevbcode.com/ShowCode.Asp?ID=1487