Извлечение URL-адреса из текста с гиперссылкой в ячейке Excel

у меня есть таблица, полная гиперссылок текста в excel, так что это в основном куча имен, но когда я нажимаю на один, он принимает меня к некоторому URL в моем браузере по умолчанию.

поэтому я извлекаю текст из этой таблицы excel в своей программе, но значение, которое я получаю, когда я извлекаю из этих ячеек гиперссылки, - это строка внутри, когда я хочу, чтобы строка была связана с файлом excel.

поэтому я думаю, что есть два способа сделать это. Либо конвертировать все гиперссылка текста в файле excel на соответствующие URL-адреса, или я могу использовать C#, чтобы каким-то образом извлечь значение URL из ячейки, а не текст.

Я не знаю, как сделать любую из этих вещей, но любая помощь была бы очень признательна.

код C# до сих пор:

Excel.ApplicationClass excelApp = new Excel.ApplicationClass();

//excelApp.Visible = true;

Excel.Workbook excelWorkbook = 
excelApp.Workbooks.Open("C:UsersuseDesktoplist.xls",
0, false, 5, "", "",false, Excel.XlPlatform.xlWindows, "", 
true, false, 0, true, false, false);

Excel.Sheets excelSheets = excelWorkbook.Worksheets;

string currentSheet = "Sheet1";
Excel.Worksheet xlws = (Excel.Worksheet)excelSheets.get_Item(currentSheet);

string myString = ((Excel.Range)xlws.Cells[2, 1]).Value.ToString();

Что касается файла excel, это всего лишь одна длинная строка имен с гиперссылкой. Например, ячейка A2 будет содержать текст:

вкусный рецепт печенья

и Я хочу извлечь строку:

http://allrecipes.com//Recipes/desserts/cookies/Main.aspx
8
.net c# excel hyperlink vsto

7 ответов

вы можете использовать макрос vba:

нажмите Alt+F11 чтобы открыть редактор VBA и вставить следующее:

Function URL(rg As Range) As String
  Dim Hyper As Hyperlink
  Set Hyper = rg.Hyperlinks.Item(1)
  URL = Hyper.Address
End Function

и затем вы можете использовать его в своем рабочем листе, например:

=URL(B4)

9

функция VBA:

  1. нажмите Alt+F11 (Открывает Редактор Visual Basic)
  2. нажмите Insert - > Module (добавляет модуль в файл excel)
  3. вставьте код ниже для функции GETURL
  4. нажмите Alt+Q (закрывает редактор Visual Basic)

использовать =GETURL(cell) чтобы получить URL
пример: =GETURL(A1) вернет URL для гиперссылки отображается в ячейке A1

Function GETURL(HyperlinkCell As Range)
    GETURL = HyperlinkCell.Hyperlinks(1).Address
End Function

источник

4

в вашем коде просто добавьте

string myString = ((Excel.Range)xlws.Cells[2, 1]).Cells.Hyperlinks[1].Address;

Я, очевидно, рекомендую сделать некоторые проверки перед доступом к свойству "гиперссылки".

3

используйте Visual Studio Tools for Office (VSTO), чтобы открыть книгу Excel и извлечь все гиперссылки.

Я поместил гиперссылку в A1 листа 1 в Book1.xlsx: text = "example.com, address = "http://www.example.com"

_Application app = null;
try
{
    app = new Application();

    string path = @"c:\temp\Book1.xlsx";
    var workbook = app.Workbooks.Open(path, 0, true, 5, "", "", true, XlPlatform.xlWindows, "\t", false, false, 0, true, 1, 0);

    var sheets = workbook.Worksheets;
    var sheet = (Worksheet)sheets.get_Item("Sheet1");

    var range = sheet.get_Range("A1", "A1");
    var hyperlinks = range.Cells.Hyperlinks.OfType<Hyperlink>();

    foreach (var h in hyperlinks)
    {
        Console.WriteLine("text: {0}, address: {1}", h.TextToDisplay, h.Address);
    }
}
finally
{
    if (app != null)
        app.Quit();
}

выход:

text: example.com, address: http://www.example.com/
1

почему бы не использовать класс Uri для преобразования строки в URL:

Uri uri = new Uri("http://myUrl/test.html");
0

вы можете использовать код VBA для достижения этого. Нажмите Alt + F11 чтобы открыть редактор VB, вставьте Module и вставьте код ниже:

Sub run()    
    On Error Resume Next    

    For Each hLink In Selection    
        Range(hLink.Address).Offset(0, 1) = hLink.Hyperlinks(1).Address    
    Next    
End Sub

сохранить файл Excel[в Excel 2007 и выше сохранить как макрос включен...]

0

Я просто столкнулся с этой проблемой и это то, что сработало для меня:

я использовал метод расширения FormulaR1C1 для диапазона. Поэтому мой код выглядел так:

                    for (int r = 2; r <= sheetRange.Rows.Count; r++)
                    {
                        documentRecord = new List<string>();
                        for (int c = 1; c <= wkCol; c++)
                        {
                            documentRecord.Add(sheetRange.Cells[r, c].FormulaR1C1); 
                        }
                        AllRecords.Add(documentRecord);
                    }

когда запись добавляется в список записей, значение любого диапазона ячеек форматируется в гиперссылку с возможностью щелчка.

-1