使用 VBA 查找 PERSONAL.xlsb答案

【问题标题】：vlookup with VBA to PERSONAL.xlsb使用 VBA 查找 PERSONAL.xlsb
【发布时间】：2014-03-11 18:30:15
【问题描述】：

我经常不得不使用 vlookup 来查找与代码关联的公司名称。我已经有一个包含代码和相应公司名称的 Excel 表。为了简化我的任务，我正在尝试创建一个函数 i，我只需要指明代码，然后返回公司名称。

如果可能的话，我希望在 PERSONAL.XLSB sheet1! 中有表格，因为我已经有一些宏。 A 列是公司代码，B 列是公司名称。

我正在尝试使用以下内容，但由于我似乎无法正确定义范围，所以我一直一无所获

Function Company_name(Company_Code As Integer)

Company_name = Application.WorksheetFunction.VLookup(Company_Code, [PERSONAL.XLSB]Sheet1!$A:$B, 2, False)

End Function

我希望它工作的方式是，我选择 Company_Code = 100，该函数返回公司名称“Asus”。 Company_Code = 200 它应该返回公司名称“Acer”，依此类推。

我的问题是我无法使代码工作。

谁能帮帮我？

提前致谢

【问题讨论】：

标签： excel range vlookup vba

【解决方案1】：

类似这样的：

Function Company_name(Company_Code As Integer)
    Dim rv
    rv = Application.VLookup(Company_Code, _
        Workbooks("Personal.xlsb").Sheets("Sheet1").Range("A:B"), 2, False)

    If IsError(rv) Then rv = "???"
    Company_name = rv

End Function

【讨论】：