Visual Basic - MailMerge en VB 6.0

Life is soft - evento anual de software empresarial
   
Vista:

MailMerge en VB 6.0

Publicado por Fontains (1 intervención) el 17/11/2010 16:18:46
Hola a todos tengo una duda que si alguien me la pudiera solucionar me "salvaría la vida". Resulta que tengo una aplicacion en VB 6.0 contra una base de datos Postgres 8.4 y simplemente tengo realizado una automatizacion de correspondencia en un documento de word, lo unico que tengo que hacer es abrir ese documento pero al escribir este codigo me da error ya que dice que no le es posible reconocer el origen de datos y no se por qué:

Sub ImprimeCLick

Set AplicacionWord = CreateObject("Word.Application.12")

AplicacionWord.Documents.Open (Chr$(34) + C:\aluman\textos\CartaOperarios.doc+ Chr$(34))

AplicacionWord.Documents(QueDocumento).MailMerge.M ainDocumentType = wdFormLetters
AplicacionWord.Documents(QueDocumento).MailMerge.D estination = wdSendToNewDocument
MiSql = "SELECT * FROM [Operarios] " + MiSqlWhere + " ORDER BY Operarios.ApellidosOpe, Operarios.NombreOpe, Operarios.CodigoOpe"

'Es en la siguiente linea donde me da el fallo

AplicacionWord.Documents(QueDocumento).MailMerge.O penDataSource Name:="", Connection:="DSN=alumanPG;DATABASE=alumanPG;UID=po stgres;PWD=Aluman05", SQLStatement:=MiSql, SubType:=wdMergeSubTypeWord2000
AplicacionWord.Documents(QueDocumento).MailMerge.E xecute
AplicacionWord.Documents(QueDocumento).Close wdDoNotSaveChanges
AplicacionWord.Visible = True

Set AplicacionWord = Nothing
Set AplicacionAccess = Nothing

End Sub

'Los datos que pongo en conection son correctos que los revisé muchas veces.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder