vba定义全局变量并赋值_属性的赋值和读取与Me对象

5e1767ad6c90014b69ec4e2a9418d9bd.png

(接上讲)

2 属性的赋值和读取

Public Property Get A() As Integer '读

A = MyA

End Property

Public Property Let A(A As Integer) '写

MyA = A

End Property

Public Property Get B() As Integer

B = MyB

End Property

Public Property Let B(B As Integer)

MyB = B

End Property

Public Property Get C() As Integer

C = MyC

End Property

Public Property Let C(C As Integer)

MyC = C

End Property

上面代码的意义相信大家十分地清楚了,不再过多地讲解,只是提醒大家一下,利用变量宿主在对属性设置的时候,这种写法可以作为一个规范的写法去应用。LET或者SET是属性的写入,GET是属性的读取,所谓的写入是将外部的数据写入宿主之中,而读取是将数据从宿主中提取出来。关于属性的设置一共是两种方案

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
在Excel VBA中,可以使用ADODB连接对象读取Excel文件数据,而不需要打开工作表。面是一个示例代码,展示如何在不打开工作表的情况下读取数据并将其赋值给二维数组: ```vba Sub ReadDataToArray() Dim conn As Object Dim rs As Object Dim dataArr() As Variant Dim strSQL As String Dim connString As String Dim filePath As String Dim sheetName As String Dim startRow As Long, endRow As Long Dim startCol As String, endCol As String Dim i As Long, j As Long ' 设置文件路径、工作表名、起始行、结束行、起始列和结束列 filePath = "C:\YourFilePath\YourFileName.xlsx" sheetName = "Sheet1" startRow = 2 endRow = 11 startCol = "A" endCol = "D" ' 建立ADODB连接对象 Set conn = CreateObject("ADODB.Connection") ' 设置连接字符串 connString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & filePath & ";Extended Properties=""Excel 12.0 Xml;HDR=YES;""" ' 打开连接 conn.Open connString ' 构建SQL查询语句 strSQL = "SELECT * FROM [" & sheetName & "$" & startRow & ":" & endRow & "]" ' 执行查询并获取结果集 Set rs = conn.Execute(strSQL) ' 将结果集赋值给二维数组 dataArr = rs.GetRows ' 关闭结果集和连接 rs.Close conn.Close ' 打印二维数组 For i = LBound(dataArr, 2) To UBound(dataArr, 2) For j = LBound(dataArr, 1) To UBound(dataArr, 1) Debug.Print dataArr(j, i) Next j Next i End Sub ``` 在代码中,你需要将`"C:\YourFilePath\YourFileName.xlsx"`替换为你的Excel文件路径和文件名,`Sheet1`替换为你要读取的工作表名。`startRow`和`endRow`分别表示要读取的起始行和结束行,而`startCol`和`endCol`表示要读取的起始列和结束列。通过构建SQL查询语句并执行查询,我们可以获取特定区域的数据,并将其赋值给名为`dataArr`的二维数组。最后,使用循环遍历二维数组并将其打印出来。 需要注意的是,这种方法需要安装适当的驱动程序(如Microsoft ACE OLEDB)来连接Excel文件。如果你的系统上没有正确安装驱动程序,可能会导致连接失败。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值