Colección de citas famosas - Frases elegantes - Me gustaría preguntarte ¿cómo utilizar VBA para introducir variables en la ruta de referencia en EXCEL?

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

.. ....