How to find the named range of a cell - VSTO

问题

I have generated a series of rows using C# and VSTO. I have basically loaded a couple of rows with data and have given each cell a NamedRange. My question is how would I, knowing the beginning row and end row index, traverse each cell and retrieve it's NamedRange. I've tried Excel.Range range = (Excel.Range)m_worksheet.Cells[x,y]; which gets the range fine, but then when I do a range.Name.ToString(); I get "System.__COM...." instead of the name. Can anyone assist?

Thanks

回答1:

Here is the sample code (take from here) how you can iterate through named range in Excel.

private Excel.Workbook m_workbook;
object missing = Type.Missing;

   public void testNamedRangeFind()
    {
        m_workbook = Globals.ThisAddIn.Application.ActiveWorkbook;
        int i = m_workbook.Names.Count;
        string address = "";
        string sheetName = "";

        if (i != 0)
        {
            foreach (Excel.Name name in m_workbook.Names)
            {
                string value = name.Value;
                //Sheet and Cell e.g. =Sheet1!$A$1 or =#REF!#REF! if refers to nothing
                string linkName = name.Name;
                //gives the name of the link e.g. sales
                if (value != "=#REF!#REF!")
                {
                    address = name.RefersToRange.Cells.get_Address(true, true, Excel.XlReferenceStyle.xlA1, missing, missing);
                    sheetName = name.RefersToRange.Cells.Worksheet.Name;
                }
                Debug.WriteLine("" + value + ", " + linkName + " ," + address + ", " + sheetName);
            }
        }

    }

回答2:

I know this sucker is old but I just needed this answer so now that I have it I will share: When you build your named ranges you want to handle their Change event, In that handler you'll need some code like this:

foreach (Excel.Name name in Globals.ThisWorkbook.Name)
{
if (Application.Intersect(name.RefersToRange, Target) != Null) //Target is the single parameter of our handler delegate type.
{
// FOUND IT!!!!
}
}

Application.Intersect determines the intersection of 2 ranges, and returns null if it doesn't find one.

回答3:

I used a cast:

 ((Excel.Name)target.Name).Name

Where "target" is a Microsoft.Office.Interop.Excel.Range; The Name included the name of the sheet.

回答4:

I tried this way : Works if the cell is part of first sheet, but the moment I click on a cell in some other sheet and use the function gives me Exception from HRESULT: 0x800A03EC Error

My code is this way:

Microsoft.Office.Interop.Excel.Workbook _workbook = Globals.ThisAddIn.Excel.CurrentWorkbook.InteropReference;
            Microsoft.Office.Interop.Excel.Range Target = (Microsoft.Office.Interop.Excel.Range)Globals.ThisAddIn.Application.ActiveCell;
            foreach (Microsoft.Office.Interop.Excel.Name name in _workbook.Names)
            {
                Microsoft.Office.Interop.Excel.Range intersectRange = Globals.ThisAddIn.Excel.CurrentWorkbook.InteropReference.Application.Intersect(Target, name.RefersToRange);

                if (intersectRange != null)
                {
                    rangeName = name.Name;
                    break;
                }
            }

回答5:

You need loop through Names collection to find the namedrange

回答6:

This worked for me

        var ranges = activeworkBook.Names;
        int i = 1;
        while (i <= ranges.Count)
        {
            String currentName = ranges.Item(i, Missing.Value, Missing.Value).Name;
            if (currentName.Equals(namedRangeToBeDeleted))
            {
                ranges.Item(i, Type.Missing, Type.Missing).Delete();
            }
            else
            {
                i++;
            }
        }

Took reference from here and replaced the refereTo as that was giving actual cell addresses.

回答7:

The sample above uses m_workbook.Names. In my case I needed to find named ranges on a specific worksheet (ActiveWorksheet). However, this does not seem to work: the names-list remains empty. When using the workbook to access the named ranges, it DID work. (VS 2015, Office 2016)

来源：https://stackoverflow.com/questions/1764491/how-to-find-the-named-range-of-a-cell-vsto

标签

excel

vsto