excel 2013 vba диапазон имена не работят - Excel-VBA, Excel-2013, име-диапазони, VBA, Excel

Аз използвам Excel 2013 и не мога да получа броянито списък с имена на диапазони. Мога да отворя диалоговия прозорец "Мениджър имена" и да посоча имената и диапазоните. Добавих имената (List1, List2 и List3) в работната книга, използвайки VBA (Set rngTable = c.CurrentRegion.ListObjects.Add). Мога да повторя през изброените диапазони, като използвам "Списък" & intCounter, за да получите диапазоните, свързани с всеки списък. Но не мога да намеря броя на имената, нито списък с имена.

Опитах следния код в Excel 2013 и 2007 и когато изпълнението стигна до линията За i = 1 To namedRanges.Count тя връща нула (0). Какво мога да направя, за да получа номера на избраните диапазони в работната книга и да изброя имената на посочените диапазони? Вашата помощ е много ценена!

Частно подсъзнание ()

Dim namedRanges As Names
Set namedRanges = ActiveSheet.Names

Dim targetSheet As Worksheet
Set targetSheet = Sheet3
targetSheet.Cells.Clear

Dim i As Integer
For i = 1 To namedRanges.Count
targetSheet.Cells(i, 2).Value = namedRanges(i).Name
targetSheet.Cells(i, 3).Value = namedRanges(i).RefersToRange.Address
Next

End Sub

Отговори:

Посочените диапазони са обхванати в работния лист или в работната книга? Ако те не се ограничават само до един работен лист, ще трябва да препратите към работната книга.

Set namedRanges = ActiveWorkbook.Names