VBA复制单元格范围公共二维数组

我在AutoCAD中使用VBA,并需要从Excel工作表中提取一些数据。

基本上我想:

  • 声明一个公共的2Dstring数组:FULL_TABLE。
  • 在初始化打开Excel文档,获取单元格范围,然后closures文档。
  • 将单元格区域中的所有值都放到2Dstring数组FULL_TABLE中

我到目前为止:

在模块1中声明:

Public FULL_TABLE() As String 

不同的模块:

 Private Sub UserForm_Initialize() 'Excel Path Dim excelPath As String excelPath = "O:\myData.xls" 'Open Excel File Set exapp = CreateObject("Excel.Application") exapp.Visible = False exapp.Workbooks.Open (excelPath) Set wsheet = exapp.ActiveSheet 'Get cell values 'privateFULL_TABLE is not public and can only be accessed here 'If I try to add values to FULL_TABLE (public) I get errors Dim privateFULL_TABLE As Variant privateFULL_TABLE = wsheet.Range("B5:AV50") 'here I can access values correctly from privateFULL_TABLE 'Close File exapp.Quit Set exapp = Nothing End Sub 

题:

我怎样才能将一个单元格的范围转换为公共2Dstring数组?