从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

已邀请:

8 个回复

谦响局豢报

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

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

要回复问题请先登录或注册

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

8 个回复

发起人

vsto

hyperlink

c#

.net

excel

问题状态

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

与内容相关的链接

8 个回复

发起人

vsto

hyperlink

c#

.net

excel

问题状态