Ruta de disco en red

Buenas

Sabes tengo un problema para abrir el libro deseado que esta alojado en un disco de en red

este es parte del código

Carpeta = "C:\Users\raul.peredo\Desktop\Caracterizaciones\"

Workbooks.Open (Carpeta )

Como hago para que vaya al disco duro deseado

\\ newton \ users \ 9PRODUC \ RPeredo\ caracterizaciones \.

no resulta dice que no se puede abrir..

Espero su respuesta

Muchas gracias.

1 respuesta

Respuesta
1

A esto le falta el archivo

Carpeta = "C:\Users\raul.peredo\Desktop\Caracterizaciones\"

Workbooks. Open (Carpeta )

Por ejemplo

Carpeta = "C:\Users\raul.peredo\Desktop\Caracterizaciones\"

nom_arch = "datos.xlsx"

Workbooks.Open Carpeta & nom_arch

Revisa y me comentas

Saludos. DAM

Este es el código

En el disco local C funciona bien pero al agregar la ruta del disco en red no me funciona he leído que algunos le ponen una IP en la ruta o algo del path

realmente no se como hacer eso....

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim l1 As Worksheet
Application.ScreenUpdating = False
Set l1 = ThisWorkbook.Sheets("Base dato")
On Error GoTo x

Dim Carpeta As String

Dim formato

Dim fecha

Carpeta = "RUTA"
If Target.Text = "" Then Exit Sub

formato = Format(Range("M5"), "mm-y")

Workbooks.Open (Carpeta & formato)
Sheets("TABLERO GESTIÓN").Range("A1:Q34").Copy

l1.Range("B9").PasteSpecial _

Paste:=xlPasteValuesAndNumberFormats, _

Operation:=xlNone, _

SkipBlanks:=False, _

Transpose:=False
ActiveWorkbook.Save

ActiveWorkbook.Close

Hoja13.Select

Exit Sub

x:
fecha = Range("M5").Value
Sheets("Base dato").Range("B12:R42").ClearContents
MsgBox "Por el momento no existen datos manuales con Fecha ( " & fecha & " ) ,64,"Información"
End Sub

GRACIAS

Es para ir a una carpeta que esta en red y de ahi saco el libro que quiero escribiendo en M5

eso no me funciona lo de la ruta en red..

gracias

Intenta montar la ruta de red en un drive, por ejemplo

G:

Saludos. DAM

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas