从 Excel 单元格中的超链接文本中提取 URL

Question

我在 excel 中有一个充满超链接文本的表格，所以它基本上是一堆名称，但是当我单击一个时，它会将我带到默认浏览器中的某个 URL。

所以我在我的程序中从这个 excel 表中提取文本，但是当我从这些超链接单元格中提取时得到的值是内部字符串的值，当我想要字符串在 excel 文件中链接到的 URL 时。

所以我认为有两种方法可以做到这一点。我可以将 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 将包含以下文本：

Yummy cookie recipe

我想提取字符串：

http://allrecipes.com//Recipes/desserts/cookies/Main.aspx

Answer 1

您可以使用 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)

Answer 2

在你的代码中添加

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

我显然建议在访问“超链接”属性之前进行一些检查。

Answer 3

VBA 函数：

1. 点击 Alt+F11（打开 Visual Basic 编辑器）
2. 点击插入 -> 模块（将模块添加到您的 excel 文件中）
3. 将下面的代码粘贴到GETURL函数中
4. 点击 Alt+Q（关闭 Visual Basic 编辑器）

现在使用 =GETURL(<i>cell</i>) 获取 URL
例如：=GETURL(A1) 将返回显示在单元格 A1 中的超链接的 URL

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

Source

Answer 4

使用 Visual Studio Tools for Office (VSTO) 打开 Excel 工作簿并提取所有超链接。

---

我在Book1.xlsx中Sheet1的A1中放了一个超链接：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/

Answer 5

为什么不使用 Uri 类将字符串转换为 URL：

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

Answer 6

您可以使用 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 及更高版本中保存为启用宏...]

Answer 7

试试这个：

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);
    }
}

Answer 8

我刚刚遇到了这个问题，这对我有用：

我对范围使用了 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);
                    }

当记录被添加到记录列表中时，无论单元格区域的值被格式化为一个可点击的超链接。