打开另一个工作簿后，如何自动更新Vlookup链接？

2024-06-02 • 问答

我有两个工作簿，分别是“ Test1” 和“ Test2” 。该代码在“ Test1” 工作簿中，在 “ ThisWorkbook” 模块中。

我在“ Test1” 工作簿内的“ Mytest1” 工作表中有一个Vlookup，它只是对工作簿“ Test2” 做了一个Vlookup >内页“ Mytest2” 。这两个工作簿均受密码保护，如果我在另一台计算机上打开工作簿“ Test2” ，会提示我输入“ Test2”的提示“输入密码” 打开我的“ Test1” 工作簿时，点击strong>。我需要使Vlookups自动更新，而无需任何提示输入密码或打开第二个工作簿的提示。

我在下面同时贴了工作簿和代码的屏幕截图，以及代码本身。请编辑或询问我任何问题以澄清任何内容。

Private Sub Workbook_Open()

          Workbooks.Open Filename:="\\FILEPATH\Databases\Test 2.xlsm",Password:="Swarf",Updatelinks:=3
          activeWorkbook.Close SaveChanges:=True

End Sub

sienchou 回答：打开另一个工作簿后，如何自动更新Vlookup链接？

我没有时间测试，但是稍后。我会尝试像这样将VLOOKUP重写为VLOOKUP的包装器

Function VLOOKUP_BYPASS(LookFor As Variant,Rng As Excel.Range,lngCol As Long) As Variant

Dim strWorkbook As String

strWorkbook = Rng.Parent.Parent.Name

If WORKBOOKOPEN(strWorkbook) Then
    VLOOKUP_BYPASS = Application.WorksheetFunction.VLookup(LookFor,Rng,lngCol,False)
Else
    VLOOKUP_BYPASS = "NA"
End If

End Function

Function WORKBOOKOPEN(strWorkbookName As String) As Boolean

WORKBOOKOPEN = False

Dim wb As Excel.Workbook

On Error GoTo eHandle

Set wb = Workbooks(strWorkbookName)
WORKBOOKOPEN = True

Exit Function

eHandle:


End Function

这是我想出的解决方案，我只是将用来引用我的Vlookup（“测试2” 工作簿”）的文件打开为只读文件！

Private Sub Workbook_Open()

Workbooks.Open Filename:="\\FILEPATH \Databases\Test 2.xlsm",Password:="Swarf",Updatelinks:=3,ReadOnly:=True

ActiveWorkbook.Close SaveChanges:=False

End Sub

auto-update excel vba vlookup

本文链接：https://www.f2er.com/2990828.html

打开另一个工作簿后，如何自动更新Vlookup链接？

sienchou 回答：打开另一个工作簿后，如何自动更新Vlookup链接？

大家都在问