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

VBA功能：

点击 Alt + F11 （打开Visual Basic编辑器）
点击插入 - ＆gt;模块（将模块添加到excel文件）
粘贴以下代码以获取GETURL的功能
点击 Alt + Q （关闭Visual Basic编辑器）

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

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

Source

Answer 3

在您的代码中添加

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

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

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

当记录添加到记录列表中时，任何单元格范围的值都被格式化为可点击的超链接。

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

8 个答案: