文章详情

短信预约-IT技能 免费直播动态提醒

请输入下面的图形验证码

提交验证

短信预约提醒成功

vb怎么用excel表给数组赋值

2023-09-15 17:46

关注

可以使用以下代码将Excel表中的数据赋值给数组:
```vb
Dim xlApp As Object
Dim xlWorkbook As Object
Dim xlWorksheet As Object
Dim arrData As Variant
Dim i As Long
Dim numRows As Long
' 创建Excel对象
Set xlApp = CreateObject("Excel.Application")
' 打开Excel文件
Set xlWorkbook = xlApp.Workbooks.Open("C:\path\to\excel_file.xlsx")
' 选择工作表
Set xlWorksheet = xlWorkbook.Sheets("Sheet1")
' 获取数据范围的行数和列数
numRows = xlWorksheet.UsedRange.Rows.Count
' 将数据范围的值赋值给数组
arrData = xlWorksheet.Range("A1:B" & numRows).Value
' 关闭Excel文件
xlWorkbook.Close
' 退出Excel应用程序
xlApp.Quit
' 在数组中循环输出数据
For i = 1 To numRows
Debug.Print arrData(i, 1) ' 第一列的数据
Debug.Print arrData(i, 2) ' 第二列的数据
Next i
```
请将上述代码中的 "C:\path\to\excel_file.xlsx" 替换为你实际的Excel文件路径,"Sheet1" 替换为你实际的工作表名称。该代码将Excel文件中从A1单元格开始到B列最后有数据的单元格的数值赋值给名为 arrData 的二维数组。你可以根据自己的需要修改代码以适应实际情况。

阅读原文内容投诉

免责声明:

① 本站未注明“稿件来源”的信息均来自网络整理。其文字、图片和音视频稿件的所属权归原作者所有。本站收集整理出于非商业性的教育和科研之目的,并不意味着本站赞同其观点或证实其内容的真实性。仅作为临时的测试数据,供内部测试之用。本站并未授权任何人以任何方式主动获取本站任何信息。

② 本站未注明“稿件来源”的临时测试数据将在测试完成后最终做删除处理。有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341

软考中级精品资料免费领

  • 历年真题答案解析
  • 备考技巧名师总结
  • 高频考点精准押题
  • 2024年上半年信息系统项目管理师第二批次真题及答案解析(完整版)

    难度     813人已做
    查看
  • 【考后总结】2024年5月26日信息系统项目管理师第2批次考情分析

    难度     354人已做
    查看
  • 【考后总结】2024年5月25日信息系统项目管理师第1批次考情分析

    难度     318人已做
    查看
  • 2024年上半年软考高项第一、二批次真题考点汇总(完整版)

    难度     435人已做
    查看
  • 2024年上半年系统架构设计师考试综合知识真题

    难度     224人已做
    查看

相关文章

发现更多好内容

猜你喜欢

AI推送时光机
位置:首页-资讯-后端开发
咦!没有更多了?去看看其它编程学习网 内容吧
首页课程
资料下载
问答资讯