查人人中国名人网现货黄金原油软件:match函数
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/03 03:25:02
老板交待了一个任务：打开了3个excel文件，根据某一列把三个工作表合并成一个工作表）
我在用vb编程中不想用循环语句，太慢了，想调用excel中的函数的match函数，
Set appWorld = GetObject(, "Excel.Application")
Set wbWorld = appWorld.Workbooks.Open("fff.xls")
dim rng as excel.range
Set rng = wbworld.Sheets(1).Range("a1:a3000")
rngFound = appWorld.WorksheetFunction.Match(khdnam, rng)
运行到最后一句提示“对象变量或with块变量未设置”，快急疯了！！
其中：khdnam为一字符串，通过监视，khdnam、rng均已正常赋值，恳请那位大虾帮忙，万分感谢！！！
我在用vb编程中不想用循环语句，太慢了，想调用excel中的函数的match函数，
Set appWorld = GetObject(, "Excel.Application")
Set wbWorld = appWorld.Workbooks.Open("fff.xls")
dim rng as excel.range
Set rng = wbworld.Sheets(1).Range("a1:a3000")
rngFound = appWorld.WorksheetFunction.Match(khdnam, rng)
运行到最后一句提示“对象变量或with块变量未设置”，快急疯了！！
其中：khdnam为一字符串，通过监视，khdnam、rng均已正常赋值，恳请那位大虾帮忙，万分感谢！！！