通過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創建到不同工作簿的鏈接

回答

相關問題