Pytanie :

I mieć pasmo wymieniać Tails1 z ten definicja:
Tails1='[ACA Tydzień 24.xls] TailAvailability'!$6: $R$204

I potrzeba macro który tworzyć imię dla the 51 tydzień the rok, tydzień z różny tydzień liczba, na przykład:
Tails2='[ACA Tydzień 2.xls] TailAvailability'!$C$6: $R$204
Tails17='[ACA Tydzień 17.xls] TailAvailability'!$6: $R$204

If konieczny I móc the pierwszy 9 kartoteka z dwa cyfra liczba, ale I raczej utrzymywać tytułować być. (Chociaż przychodzić myśl ono, ono być ładny ono the dwa cyfra sposób także, jeśli sposób decydować chcieć the kartoteka wszystko zwany z dwa cyfra.)

Thanks,
John

Odpowiedź :

OK, the zwany pasmo zewnętrznie workbook, próbować ten kod:

Być pewny the filepath dokąd twój "ACA Tydzień x" workbooks lokalizować w ten linia:

filePath = "C:\"
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

Okręt podwodny CreateNamedRangesExtWbk ()
'Tworzyć Zwany Pasmo w Zewnętrznie Workbook
    
    Ćmić wb Jako Workbook
    Ćmić filePath Sznurek
    Ćmić currentWbk Sznurek
    
    filePath = "C:\"
    
    Application.ScreenUpdating = Fałszywy
    currentWbk = ActiveWorkbook.Name
    
    Dla i = (1) 52
        Set wb = Workbooks.Open (filePath & "ACA Tydzień" & i)
        Workbooks (currentWbk). Names.Add Imię: = " Ogon " & i, RefersTo: =wb. Worksheets ("TailAvailability"). Pasmo ("6: $R$204")
        wb. Zamknięty Fałszywy
        Set wb = Nic
    Następnie

    Application.ScreenUpdating = Prawdziwy
    
    MsgBox "Wymieniać Pasmo ustawiać!"

Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us