Convidado 19/8/2011, 10:45
Testei este agora com sucesso:
Private Sub Comando12_Click()
Dim appAccess As Object
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase ("C:\test.mdb")
appAccess.ImportXML "http://rss.cnn.com/rss/edition_meast.rss"
appAccess.CloseCurrentDatabase
appAccess.Quit acExit
Set appAccess = Nothing
End Sub
Esta ao comando de um botão, mais podes adapta-lo com um timer...