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

我在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将包含以下文本：

我想提取字符串：

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

---

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

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

---

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

---

我在Book1.xlsx:text=“example.com，address=”中的Sheet1的A1中添加了一个超链接http://www.example.com"

---

您可以使用vba宏：

按Alt+F11打开VBA编辑器并粘贴到以下位置：

函数URL（rg作为范围）作为字符串
将超链接变暗为超链接
设置Hyper=rg.Hyperlinks.Item（1）
URL=Hyper.Address
端函数

然后您可以在工作表中使用它，如下所示：

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

=URL（B4）

只需在代码中添加

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

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

VBA函数：

按Alt+F11（打开Visual Basic编辑器）

单击插入->模块（将模块添加到excel文件）

为GETURL函数粘贴下面的代码

点击Alt+Q（关闭Visual Basic编辑器）

现在使用

=GETURL（单元格）

获取URL
示例：

=GETURL（A1）

将返回单元格A1中显示的超链接的URL

函数GETURL（HyperlinkCell作为范围） GETURL=HyperlinkCell.Hyperlinks（1）.Address 端函数

---

您可以使用VBA代码来实现这一点。 按

Alt

+

F11

打开VB编辑器，插入

模块

并将代码粘贴到下面：

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及更高版本中启用了“另存为宏…”

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

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

for（int r=2；r试试这个：

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

显示excel示例和一些代码我显示了代码，但excel文件只是一列超链接文本，其条目与上面显示的cookie示例完全相同。非常感谢，我只是使用该文件使用我的程序提取表中不同部分的所有链接，然后将它们复制/粘贴到新的excel表中。虽然很混乱，但最终结果是e这正是我想要的。我很感激你的回答，但语法在我的系统上不起作用，我用我的C#程序在excel方面做了更多的工作。@AJ:你用的是什么版本的excel和VSTO？我用的是最新的.NET 4.0/VS 2010/excel 14我用的是excel 2003。这个程序现在实际上已经全部完成了，正在生成一个数据库。但由于有2700个条目，可能需要7到10个小时才能完成>。\u>从编码角度来看，这是最好的答案。它不需要修改excel工作表。我发现有必要将xlws.Cells更改为xlws.Sheets[1]。Cells。如何从超链接列获取字符串URL？
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);
    }
}