Visual Basic para Aplicaciones - Mensaje excel

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 10
Ha aumentado su posición en 5 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Mensaje excel

Publicado por Ariadna (3 intervenciones) el 17/03/2021 10:23:21
Buenos días,

Mediante VBA abro un libro excel, me quedo con el valor de las celdas que me interesan con el método Range y los asigno a un marcador de un word, que también abro mediante VBA. Al terminar cierro ambos documentos con VBA.

Cuando hago funcionar el anterior programa varias veces (para generar diferentes ofertas), me acaba apareciendo un mensaje:

Imagen1

Pero me aparece muchas veces, le doy a Cancelar pero detrás hay 20 o más mensajes iguales! No se como hacerlo para que no me aparezca...

Estoy bastante desesperada por el tema de que salga tantas veces, si saliese solamente una me daría igual...

¡Muchísimas gracias!
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
Imágen de perfil de Antoni Masana
Val: 1.159
Oro
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Mensaje excel

Publicado por Antoni Masana (408 intervenciones) el 17/03/2021 19:34:57
¿Sabes que documento es el DataLyomega.xlsx?

Supongo que es uno de los que abres y que seguramente no cierras o alguien lo tiene abrierto.
Estaria bien ver el código, saber en que versión de Office trabajas, si estas en red y compartes ficheros con otros usuarios.
En fin algo más de informción

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 10
Ha aumentado su posición en 5 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Mensaje excel

Publicado por Ariadna (3 intervenciones) el 19/03/2021 09:56:29
Si, el documento es el que abro mediante VBA para copiar datos de sus celdas. Además se encuentra en la misma carpeta que el word (dirección almacenada en la variable dir). El código es el siguiente:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
openloc = dir & "Formulario.dotx"
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open(openloc)
 
Dim pathExcel As String
pathExcel = dir & "DataLyomega.xlsx"
Dim objExcel As New Excel.Application
Dim exWb As Excel.Workbook
Set exWb = objExcel.Workbooks.Open(pathExcel)
 
'a continuación escribo en el marcador del word un dato que se encuentra en una celda de una hoja del excel especificado:
WriteBookmarkFF "bmSalesManager", exWb.Sheets("hojaCommercial").Range("C" & 4).Text, wrdDoc
'y así con más datos, ya sean numéricos, strings..
 
'quizás el problema se encuentre al cerrar el libro?
exWb.Close
Set exWb = Nothing
Set wrdDoc = Nothing
Set wrdApp = Nothing

En cuanto a lo demás que me has comentado: trabajo con la versión de Office 365 y no se comparten estos documentos con otros usuarios.

Muchas gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 1.159
Oro
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Mensaje excel

Publicado por Antoni Masana (408 intervenciones) el 19/03/2021 17:02:49
He intentado probar tu macro pero no me funciona.

Yo utilizo esto que es más simple

1
2
3
4
5
6
7
8
9
10
11
12
13
14
c_File                                              ' --- Aqui esta la ruta y el nombre del libro EXCEL'
c_book                                              ' --- Solo tiene el nombre del libro'
 
Workbooks.Open Filename:=c_File, Origin:=xlWindows  ' --- Abro el Libro EXCEL
 
If ActiveWorkbook.ReadOnly Then                     ' --- Miro si el libro esta solo de lectura
    Mail_Outlook MAIL_Uso, c_Book
Else                                                ' --- Aqui trabajo con el libro
    (Aqui hago cosas)
End If
 
Windows(c_Book).Activate                            ' --- Pongo el libro activo que he abrierto
ActiveWorkbook.Save                                 ' --- Guarda los cambios
ActiveWindow.Close                                  ' --- Cierro el libro  que he abierto

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 10
Ha aumentado su posición en 5 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Mensaje excel

Publicado por Ariadna (3 intervenciones) el 22/03/2021 08:15:32
Voy a probarlo a ver si me deja de salir el mensaje,

muchísimas gracias!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar