Me gustaría preguntarte ¿cómo utilizar VBA para introducir variables en la ruta de referencia en EXCEL?

sub CopyContentsTo()

dim sPath$,sFilename$,sSheetname$

dim sTemp$,i%

sPath=" H:\HRleader\DOCMENT\shift handover report\LINE\L18-DG DN" 'Puedes modificarlo tú mismo

sFilename="L18-DN.xls" 'Igual que el anterior

sSheetname=" Octubre" 'Igual que arriba

sTemp="'"& sPath & "\[" & sFilename & "]" & sSheetname & "'!"

Con Thisworkbook.Worksheets("Hoja1 ")

Para i=5 a 80

Con .Range("A"& i - 3 )

.FormulaR1C1= "=" & Temp & "$C$" & i

.value=.value

Terminar con

Siguiente i

Terminar con

End Sub

P.D. Si desea recorrer diferentes hojas de diferentes archivos con diferentes rutas,

puede asignar matrices a sPath, sFilename, sSheetname,

Por ejemplo

dim i%,Sheetname(1 a 12)

Para i = 1 a 12

Sheetname( i)=Array ("enero"," febrero","marzo","abril","mayo","junio", _

"julio","agosto","septiembre"," Octubre","Noviembre","Diciembre" )(i)

Siguiente i

Puede llamar a Sheetname(1) a Sheetname(12) en programas posteriores

Por ejemplo

.....

Para k = 1 a 12

sTemp="'"& sPath(i) & "\[ " & sFilename(j) & "] " & sSheetname(k) & "'!"

.....sTemp......

Siguiente k

.. ....