ruta información combinada

Hola Fernando,

Puedes probar a mejorarla asi >>

'[]

Sub demo_a()
Dim xconexion As String
With ActiveDocument.MailMerge
.MainDocumentType = wdNotAMergeDocument
.MainDocumentType = wdFormLetters
.OpenDataSource Name:=ThisDocument.Path & "\Libro1.xls", _
ReadOnly:=True, _
Connection:=xconexion ', _
SQLStatement:="SELECT * FROM `Hoja1$`"
End With
End Sub

'[]

Fijate en la linea de codigo >>

SQLStatement:="SELECT * FROM `Hoja1$`"

La `hoja1$` esta entrecomillada con los apostrofes invertidos y si
quitas esta linea puedes elegir la hoja a crear la combinacion.

En cuanto al libro puedes crear una variable y asociarle esa variable
mediante algun inputbox ? pero lo logico es que si creas una macro
AutoOpen lo logico es que le pongas ya el archivo de excel el cual lleve
su combinacion ( para las copias su archivo de excel de la combinacion
original) ya que si vas a cambiar de origen de datos no te hace falta
ningun codigo ya que el propio programa te da opcion a cambiar el origen
de datos ...no sep... comprueba a ver y gracias a ti Fernando:-) !

Saludos
Monica


- Consulta-

Se me ha ocurrido una peque#a idea, la dejo por si sirve, funciona
perfectamente, si se te ocurre algo para mejorarla seria estupendo por
codigo se puede colocar esto.
La mejora seria algo asi, al abrir el word, este podria preguntarte si
quieres cambiar el nombre del origen de datos (puesto que la ruta
siempre será la de el word) si tu le dice que si, lo que haces es
escribir en un inputbox, o en el filedialog, el nombre del archivo,
esto ahora la clave es guardar ese nombre en algun sitio (esto es lo
que no sabría hacer, si me ayudas, acabamos de completarlo), claro eso
si, tendria que ser un archivo de excel y la hoja siempre la 1
bueno espero a alguien le sirva, para mi es muy útil no tener que ir
buscando cada vez el origen de datos
un saludo y muchas gracias Mónica.
Sub autoopen()
'
' Macro1 Macro
' Macro grabada el 27/06/2009 por Fernando Mollat Pardo
'
MsgBox "Tu estás funcionando con la macro ""autoopen""",
vbMsgBoxSetForeground

AbrirOrigenDatos

End Sub

Sub AbrirOrigenDatos()
'
' Macro1 Macro
' Macro grabada el 27/06/2009 por Fernando Mollat Pardo
'

ActiveDocument.MailMerge.OpenDataSource Name:= _
ThisDocument.Path & "\Libro1.xls" _
, ConfirmConversions:=False, ReadOnly:=False,
LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="",
PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="",
Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User
ID=Admin;Data Source=" & ThisDocument.Path &
"\Libro1.xls;Mode=Read;Extended Pr" _
, SQLStatement:="SELECT * FROM `Hoja1$`", SQLStatement1:="",
SubType:= _
wdMergeSubTypeAccess
ThisDocument.MailMerge.ViewMailMergeFieldCodes = False


End Sub

hola,

Al hacer un word con datos combinados, me pide una ruta del archivo
dedatos. Se la doy y todo perfecto.
1º ...hago una copia del archivo y ... copia del archivo de datos...
cambio cosas, al abrir este nuevo archivo, en otra carpeta, me pide que
abra el origen de datos, pero cuando lo vinculo a un nuevo archivo de
datos, no se queda guardado.

Si realizas una copia de ambos archivos y quieres que exista combinacion
en esos archivos de copia, deberas de crear de nuevo una nueva
combinacion de correspondencia...

2º Me gustaria darle una ruta guardada al archivo de word que fuera
\datos.xls (siendo que al ponerlo así, empezara a contar desde la carpeta
en la que se encuentra el archivo de word) ...es posible ponerlo de
alguna forma? de esta forma se mueve el archivo de word y los datos a
otra carpeta y no habria problemas al abrirlo tener que buscar.

Hasta donde se y creo recordar que esto no es posible sobre combinaciones
de correspondencia ya que cuando se pierde el origen de la combinacion el
propio programa te avisa para que puedas ubicar de nuevo la ruta del
archivo que ha perdido su ruta ? ...

Comentanos...!

Saludos
Monica

www.fermu.com
www.teladearana.es