表格数据库JAVA交互(机房表格数据库)

系统环境表格数据库JAVA交互：Windows 10Excel：2010版本

今天讲讲数组实例

将工作表中的数值赋值给数组

Part 1：实现用Resize将工作表中数据给数组赋值Option ExplicitSub Test() Dim A Dim B As Variant Dim C() Dim D Dim TypA Dim TypB Dim TypC Dim TypD A = 1 B = 2 C = Array("VB", "与", "Office") D = Cells(1, 1).Resize(3, 1) TypA = TypeName(A) TypB = TypeName(B) TypC = TypeName(C) TypD = TypeName(D) Debug.Print ("TypA=" & TypA) Debug.Print ("TypB=" & TypB) Debug.Print ("TypC=" & TypC) Debug.Print ("TypD=" & TypD)End Sub

输出结果如下

TypA=IntegerTypB=IntegerTypC=Variant()TypD=Variant()

图1 代码截图

图2 对应工作表信息

Part 2：工程资源管理器本代码直接写于VBE（VBA代码编辑窗口）中的Sheet1工作表对应的区域表格数据库JAVA交互，直接双击即可如果发现的VBE找不到上图中的信息，菜单栏-视图-点击工程资源管理器没有写在模块中的一个好处是，直接使用该工作表的数据，无需加工作簿.工作表前缀

图3 工程资源管理器

Part 3：部分代码解读TypeName函数返回变量所含数据的数据类型数据类型中加入(),表示为数组类型，如C的数据类型为Variant()D = Cells(1, 1).Resize(3, 1)，可以直接将Resize获得的信息直接赋予一个变量D定义变量的时候，只能定义为Variant（Dim D默认类型为Variant）,不能写为D()，否则会提示类型不匹配D类似一个单元格区域，最左上方位置为(1,1)

以上，为本次的介绍内容，下回见。

本文首发于微信公众号：Excel高效办公之VBA。排版和细节略作修改，发于头条