请教小弟我这段代码错哪了呢

请问我这段代码哪里错了呢？

Sub main()

Set r1 = Workbooks("11年03月份淘宝订单明细汇总.xls").Worksheets("2011.03").Cells(1, 1).Worksheet
Set r2 = Workbooks("淘宝商城订单2011030101.xls").Worksheets("Sheet1").Cells(1, 1).Worksheet
Call one2(r1, r2, 1)
    
End Sub

Sub one2(index As Worksheet, thissheet As Worksheet, hangshu As Integer)

End Sub

谢谢各位的帮忙
[解决办法]
这个程序与其说错在那里不如说就没有对的地方。
[解决办法]

引用:

这个程序与其说错在那里不如说就没有对的地方。

那么应该怎样写呢？
[解决办法]
(1)不知道你要做什么
(2)你什么也没写。
[解决办法]
你要干什么？
[解决办法]
我这里是要建立r1 r2两个变量 分别引用 两个 worksheet 而这两个变量 是 方法one2的参数 但在运行的时候作为参数失败了
[解决办法]
你起码在代码中药打开那两个表，然后再设变量吧。
[解决办法]

引用:

你起码在代码中药打开那两个表，然后再设变量吧。

那些东西 我打算以后做 文件搜索模块 现在暂时没有打算完善的 主要是想现在把主要功能模块 做出来
[解决办法]

引用:

这个程序与其说错在那里不如说就没有对的地方。

太逗了。
[解决办法]
Sub one2(index As Worksheet, thissheet As Worksheet, hangshu As Integer)
改为
Sub one2(index As Object, thissheet As Object, hangshu As Integer)
试试看。不保证对啊。


[解决办法]

引用:

Sub one2(index As Worksheet, thissheet As Worksheet, hangshu As Integer)
改为
Sub one2(index As Object, thissheet As Object, hangshu As Integer)
试试看。不保证对啊。

尝试过了 不行 好奇怪啊 ~ 唉这个vb 的语法让我摸不着头脑

查看更多 下一篇