[讨论]传递动态数组“Byref类型参数不符

主题：[讨论]传递动态数组“Byref类型参数不符

gxddd [专家分：0] 发布于 2009-06-02 10:41:00

数组定义如下(注：Range为EXCEL对象类型）

Public FristClass() As Range
Public SecondClass() As Range

调用字过程提示错误 “Byref类型参数不符”
Call LoadMain(FristClass, SecondClass)

字过程如下

sub LoadMain (FristClass() As Range , SecondClass() As Range)

。。。
。。。
。。。
end sub

注：  以下方法都试过不行
    Call LoadMain(FristClass(0), SecondClass(0))
    定义变量为变体类型
    Public FristClass
    Public SecondClass

最后更新于：2009-06-02 10:45:00

本帖地址： http://bbs.pfan.cn/post/302958.html

回复列表（共3个回复）

沙发

bcahzvip [专家分：6040] 发布于 2009-06-02 13:04:00

Option Explicit

Public Type Range
t As Long
End Type

Public FristClass() As Range
Public SecondClass() As Range

Public Sub LoadMain(FristClass() As Range, SecondClass() As Range)

End Sub

Sub main()
LoadMain FristClass, SecondClass
End Sub

板凳

天天学习 [专家分：4570] 发布于 2009-06-02 14:09:00

引用Microsoft Excel 11.0 Object Library

Option Explicit

Sub LoadMain(FirstClass() As Range, SecondClass() As Range)
Debug.Print "loadMain called"
End Sub

Private Sub Command1_Click()
Dim first() As Range, second() As Range
LoadMain first, second
End Sub
没出现你说的“Byref类型参数不符”的错误啊?

3 楼

老大徒伤悲 [专家分：29120] 发布于 2009-06-02 22:00:00

[quote]引用Microsoft Excel 11.0 Object Library[/quote]应该是关键。

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：[讨论]传递动态数组“Byref类型参数不符

回复列表（共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：[讨论]传递动态数组“Byref类型参数不符

回复列表 （共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共3个回复）