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

如何解决从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\",false,5,\"\",Excel.XlPlatform.xlWindows,true,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)

    ,VBA功能： 按Alt + F11（打开Visual Basic编辑器） 单击插入->模块（将模块添加到您的Excel文件中） 粘贴以下代码以获取GETURL的功能 按Alt + Q（关闭Visual Basic编辑器） 现在使用

=GETURL(cell)

获取URL 示例：“ 5”将返回显示在单元格A1中的超链接的URL

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

资源     ,在您的代码中只需添加

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

我显然建议您在访问\“ Hyperlinks \”属性之前进行一些检查。     ,使用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,true,5,\"\",XlPlatform.xlWindows,\"\\t\",false,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\",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);
                    }

将记录添加到记录列表中时，无论单元格区域的值如何，都将格式化为clickable-hyperlink。