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 p>
.. ....