Блог

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

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

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

Я не знаю, как сделать ни то, ни другое, но буду признателен за любую помощь.

Код на C # пока:

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

//excelApp.Visible = true;

Excel.Workbook excelWorkbook = 
excelApp.Workbooks.Open("C:\Users\use\Desktop\list.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
  

Вы могли бы использовать макрос 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)

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

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

Я, очевидно, рекомендую выполнить некоторые проверки перед доступом к свойству «Гиперссылки».

Функция VBA:

1. Нажмите Alt F11 (открывается редактор Visual Basic)
2. Нажмите Вставить -> Модуль (добавляет модуль в ваш файл 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
  

Источник

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

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

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

    string path = @"c:tempBook1.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/
  

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

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

Для достижения этой цели вы можете использовать код 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 и выше включено сохранение как макрос …]

Попробуйте это:

 Excel.Application appExcel = new Excel.Application();
Excel.Workbooks workBooks = appExcel.Workbooks;
Excel.Workbook excelSheet = workBooks.Open("......EditPath", false, ReadOnly: true);

foreach (Excel.Worksheet worksheet in excelSheet.Worksheets)
{
    Excel.Hyperlinks hyperLinks = worksheet.Hyperlinks;
    foreach (Excel.Hyperlink lin in hyperLinks)
    {
        System.Diagnostics.Debug.WriteLine("# LINK: adress:"   lin.Address);
    }
}
  

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

Я использовал метод расширения 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);
                    }
  

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