复制链接问题

vivid_ck

小白请教个问题，
做了个小过程，获取所有目录下的文件名，然后通过录制公式和格式设置，获得了“明细”表（sheet1）中数据，也做了链接，然后通过定义名称，建立了数据透视表，因为数透表结构看起来更清晰，想把明细表中的链接复制到汇总表（sheet2）“数据透视表”的右侧，可试了几次，以下这段代码在模块里单独运行OK，但放到了thisworkbook的open里，就是不运行，不知道错哪里了，请赐教啊    For j = 1 To Sheet2.[A65536].End(3).Row
        Set fcell = Sheet1.Range("e:e").Find(Sheet2.Cells(j, 1))
        If Not fcell Is Nothing Then
                  Sheet1.Range("f" & fcell.Row).Copy Sheet2.Cells(j, 3)
            Else
                  Sheet2.Cells(j, 3) = ""
        End If
        Set rng = Nothing
    Next