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.
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


0