通过VBA创建到不同工作簿的链接

我正在创建一个项目，我希望我的代码可以在不同的工作簿中创建数据链接。我已经创建了一个代码，用相关的excel文件打开文件夹。当用户选择文件时，我希望代码在特定的单元格中创建链接，并将其放在“输出”工作表的最上面的空闲单元格中。通过VBA创建到不同工作簿的链接

不幸的是，我只能通过使用导入代码来设置代码来粘贴单元格的值。

这是代码我一直在与：

Sub XX() 

Dim Master As Workbook, Import As Workbook 

Set Master = ThisWorkbook 

With Application.FileDialog(msoFileDialogFilePicker) 
    .Title = "Choose file" 
    .AllowMultiSelect = False 
    .Show 

    If .SelectedItems.Count = 0 Then 
     MsgBox "Ingen filer valgt" 
     Exit Sub 
    End If 

    Set Import = Workbooks.Open(.SelectedItems(1)) 

End With 

i = Master.Worksheets("Sheet1").Range("A10000").End(xlUp).Row + 1

然后我需要的东西，而不是：

Import.Worksheets("Sheet2").Range("B8").Copy Destination:=Master.Worksheets("Sheet1").Cells(i, 1)

如何建立链接有什么建议？谢谢。

来源

2015-09-24 D. Larsen

您可以发布您的代码的相关部分？ –

当然。我已经添加了上面的代码。 –

再次嗨。通过链接，是否意味着只要工作簿导入的源“”B8“被更改就刷新目标单元格的公式？” –

试试这个：

Master.Worksheets("Sheet1").Cells(i, 1).Formula = "='" & Import.Path & "\[" & Import.Name & "]Sheet2'!$B$8"

来源

2015-09-24 18:54:15

工作完美无瑕，谢谢！ –

通过VBA创建到不同工作簿的链接

回答

相关问题