Apoyo: Guardar Archivo Independiente desde Excel (Macro)
Publicado por Mx WaR HaBiB (12 intervenciones) el 28/07/2020 23:21:24
Estimados Foreros, buenas tardes
Por este medio pido su apoyo tengo una macro que lo que hace es obtener una ruta de un archivo seleccionado pero no logro que el archivo se guarde en una ruta especifica (Celda A5) que también lo tengo considerado, adjunto código:
como pueden ver al seleccionar el archivo se guarda la ruta en la variable: "NombreArchivo" y la ruta donde se va a guardar la tengo en la celda "A5" o como lo interpretaría VBA la variable: "Ruta2".
lo que me falta es la instrucción de COPIAR el archivo a la "Ruta2"
gracias por su atención y apoyo.
Atte:
Luis :)
Por este medio pido su apoyo tengo una macro que lo que hace es obtener una ruta de un archivo seleccionado pero no logro que el archivo se guarde en una ruta especifica (Celda A5) que también lo tengo considerado, adjunto código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Revision()
'On Error Resume Next
Dim Filtro As String
Dim IndiceFiltro As Integer
Dim Titulo As String
Dim NombreArchivo As Variant
Dim Ruta2 As Variant
Ruta2 = Range("A5")
Filtro = "Archivos PDF (*.pdf),*.pdf,"
IndiceFiltro = 1
Titulo = "Seleccionar Archivos - Mx"
NombreArchivo = Application.GetOpenFilename(Filtro, IndiceFiltro, Titulo)
**********Aquí Falta el Código**********
Else
NombreArchivo = False
MsgBox "No Seleccionaste Archivos"
End If
End Sub
como pueden ver al seleccionar el archivo se guarda la ruta en la variable: "NombreArchivo" y la ruta donde se va a guardar la tengo en la celda "A5" o como lo interpretaría VBA la variable: "Ruta2".
lo que me falta es la instrucción de COPIAR el archivo a la "Ruta2"
gracias por su atención y apoyo.
Atte:
Luis :)
Valora esta pregunta
1