Question

我正在开展一个项目，我希望我的代码能够在不同的工作簿中创建数据链接。我创建了一个代码，用于打开包含相关excel文件的文件夹。当用户选择文件时，我希望代码在某些单元格中创建链接，并将其放在＆＃34;输出中的最上面的空闲单元格中。片材。

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

这是我一直在使用的代码：

platform :ios, '8.0'
use_frameworks!
pod 'Framework', :path => "../"

然后我需要一些东西而不是：

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

有关如何建立链接的任何建议？谢谢。

Answer 1

试试这个：

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

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

1 个答案: