Question

我有一个工作簿（让我们称之为＆＃34; GENERAL＆＃34;），它通过宏激活特定文件夹中的许多其他工作簿，并将特定数据提取到GENERAL以构建总计和。我想自动创建一个复制值的超链接，返回到特定的工作簿，以便能够快速跟踪错误。我的代码如下：

MyPath = "Y:\test_workbook"
MyFile = Dir(MyPath)
Do While MyFile <> ""
If MyFile Like "*.xls" Or MyFile Like "*.xlsx" Then
Workbooks.Open MyPath & MyFile     

Sheets(1).Select
Range("A1") = myValue
Range("A1") = CDate(myValue)    
a = Range("A2").Value           ' here file-title 
b = Range("A3").Value          
c = Range("A4").Value           
f = Range("B1").Value

ActiveWorkbook.Close SaveChanges:=True     
End If

Workbooks("GENERAL.xlsm").Activate    
Sheets("total").Cells(i, j) = a        
Sheets("total").Cells(i, j + b) = c

i = i + 1
MyFile = Dir

Loop

所以：我想在工作簿GENERAL中创建一个Hyperlink，它映射到包含相关工作簿的A2-cell信息的单元格上，该工作簿提供信息并返回给它。有没有人知道如何做到这一点？

Answer 1

我担心我不理解您的上下文，但这里是您在Excel VBA中创建超链接的方式：

With worksheet
   .Hyperlinks.Add Anchor:=.Range("A2"), _ 
   Address:="http://www.stackoverflow.com", _ 
   ScreenTip:="Stack Overflow", _ 
   TextToDisplay:="StackOverflow" 
End With

通过宏

1 个答案: