CreateNamedRangesExtWbk secundario ()
'Crear a Gama nombrada en libro de trabajo externo
Amortiguar el wb como libro de trabajo
Amortiguar el filePath como secuencia
Amortiguar el currentWbk como secuencia
filePath = “C:\”
Application.ScreenUpdating = falso
currentWbk = ActiveWorkbook.Name
Para i = 1 a 52
Fijar wb = Workbooks.Open (filePath y “semana del ACA” y i)
Libros de trabajo (currentWbk). Nombre de Names.Add: = " ata " y i, RefersTo: =wb. Hojas de trabajo (“TailAvailability”). Gama (“6: $R$204”)
wb. Falso cercano
Fijar wb = nada
Después
Application.ScreenUpdating = verdad
Se ha fijado MsgBox “Ranges nombrada!”
Submarino del extremo
|