使用用户选择的文件并使用该文件中的列

问题描述

我正在尝试向用户询问某些信息所在的文件。这就是我使用 GetopenFileName 的原因。（如果我可以使用更好的东西，请告诉我）

我正在尝试在 A 列中使用 Vlookup 并将 C 列中的信息发送到另一个文件。不同文件的行数可能会有所不同。

我不一定需要打开用户给我的文件（已选择）。

我想从 B2 开始并在最后一行完成 Vlookup。（我测试到 B57）

我卡住了。正如你所知道的，我是一个新手！

请帮忙！

'''''

  Sub Openfiletest()

  Dim LoadingSheet As Variant


     LoadingSheet = Application.GetopenFilename("Excel Files (*.xl*),*.xl*","Choose File",False)
        
    If LoadingSheet <> False Then
       Workbooks.Open LoadingSheet
       Windows("CleanupBomrEV3.xlsm").Activate
        Range("B2").Select
        ActiveCell.FormulaR1C1 = _
         "=VLOOKUP(RC[-1],'[LoadingSheet]!C1:C3,3,FALSE)"
      Selection.AutoFill Destination:=Range("B2:B57")
      Range("B2:B57").Select
      
  End If
  End Sub

'''''

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

getopenfilename vlookup