gpt4 book ai didi

excel - 应用程序定义的对象定义的错误-Excel VBA Vlookup。适用于一个文件,但不适用于其他文件

转载 作者:行者123 更新时间:2023-12-03 08:49:39 25 4
gpt4 key购买 nike

我正在使用两个工作簿,并且正在尝试使用V-Lookup。我的查找值在WB1,工作表2中,其对应的值在WB2,工作表1中。我的宏在WB1上运行,并且宏打开一个对话框供用户选择WB2的文件。然后存储有关文件的信息,例如FileName,File path。

LastRow = Cells(Rows.Count, 1).End(xlUp).Row
FilePath = Application.GetOpenFilename()
Set wb2 = Workbooks.Open(FilePath)
FileName = ActiveWorkbook.Name

SheetName = ActiveSheet.Name
RangeName = Range("A1").CurrentRegion.Offset(0, 1).Address

Workbooks(wb1).Activate

Range("D1:D" & LastRow).Formula = "=VLOOKUP(A1,[" & FileName & "]" & SheetName & "!" & RangeName & ",7,False)"

当我在一个文件上测试它时,出现了Vlookup值。但是在我的第二个文件上,它一直给我错误“应用程序定义的错误”或“对象定义的错误”。它实际上是相同的代码。该错误发生在Vlookup行上。为什么会这样呢?

最佳答案

使用external:=true获取代表查找范围地址的整个字符串。

with ActiveSheet
RangeName = .Range("A1").CurrentRegion.Offset(0, 1).Address(external:=true)
end with

您的公式分配变为
Workbooks(wb1).worksheets("Sheet1").Range("D1:D" & LastRow).Formula = _
"=VLOOKUP(A1, " & RangeName & ", 7, False)"

关于excel - 应用程序定义的对象定义的错误-Excel VBA Vlookup。适用于一个文件,但不适用于其他文件,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/44531181/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com