Abrir libro desde una macro
Tengo un libro donde pego información de otros libros, los mismos están guardados en el escritorio en una carpeta llamada "planillas de pedido" pero de diferentes pcs ya que la informacion la recaudo desde diferentes pc, entre otros los nombres de esos archivos son por ejemplo Mendez.xlsm.
Existe alguna manera de abrir esos archivos desde una macro
1 respuesta
Respuesta de Dante Amor
1
Prueba la siguiente:
Sub test()
Dim escritorio As String
Dim carpeta As String
Dim archivo As String
'
escritorio = CreateObject("WScript.Shell").SpecialFolders("Desktop")
carpeta = escritorio & "\" & "planillas de pedido"
archivo = carpeta & "\" & "Mendez.xlsm"
'
If Dir(carpeta, vbDirectory) = "" Then
MsgBox "La carpeta no existe"
Else
If Dir(archivo) = "" Then
MsgBox "Archivo no existe"
Else
Workbooks.Open archivo
End If
End If
End Sub
