爲什麼在我用Excel中的數據填充數據後，VB.NET顯示數組中的（0,0）元素？

以下代碼將導致包含從Excel傳輸的數組元素的x（，）矩陣，當使用QuickWatch進行查看時，將指示從零開始的數組。但是，該數組將基於一個數組，並且QuickWatch中顯示的（0,0）元素將不可訪問。爲什麼在我用Excel中的數據填充數據後，VB.NET顯示數組中的（0,0）元素？

我相信這種行爲是一個錯誤，因爲QuickWatch顯示存在一個（0,0）元素，這實際上不存在 - 因爲它不可訪問。

以下代碼將生成有問題的x（，）數組，並且在使用QuickWatch查看時將顯示（0,0）元素。

要實現該代碼，請在表單中添加一個OperFileDialog1，然後將以下代碼粘貼到一個按鈕。您需要確保打開的Excel中存在有效的字符串或數值單元格A1，A2，B1，B2。在運行時，由於某種原因，該元素X（0,0）是不可讀的，即使有快速監視觀看時會有在x（0,0）元素顯示的數據：

Dim i, j As Integer 
Dim filename As String 
Dim x(,) As Object 
Dim myx(,) As Object 
With OpenFileDialog1 
    .FileName = "*.*" 
    .CheckFileExists = True 
    .ShowReadOnly = True 
    .Filter = "Excel 2010 *.xlxs|*.xlxs|Excel 2003-2007 *.xls|*.xls" 
    If .ShowDialog = Windows.Forms.DialogResult.OK Then 
     'Load file 
     filename = .FileName 
    End If 
End With 


' Create new Application. 
Dim rXL As New Excel.Application 
Dim rWB As Excel.Workbook 
Dim rSheet As Excel.Worksheet 
Dim rRng As Excel.Range 
rWB = rXL.Workbooks.Open(filename) 

For i = 1 To 1 ' rWB.Sheets.Count To 1 Step -1 
    Dim sheet As Excel.Worksheet = rWB.Sheets(i) 
    Dim r As Excel.Range = sheet.UsedRange 
    If r.Rows.Count = 0 Then Exit For 
    Dim eCellArray As System.Array = r.Value 
    ReDim x(r.Rows.Count, r.Columns.Count) 
    x = r.Value 
    rRng = Nothing 
Next 
ReDim myx(x.GetLength(0) + 1, x.GetLength(1) + 1) 
For i = 0 To x.GetLength(0) 
    For j = 0 To x.GetLength(1) 
     myx(i + 1, j + 1) = x(i, j) 
    Next 
Next

來源

2013-02-02 wrtsvkrfm

您可以添加一個簡短但完整的示例代碼來說明這個問題嗎？ – svick

這是什麼問題？ –

該作品在2008年vb.net：

Dim x(100, 100) As Object 
x(0, 0) = "asdf" 
MsgBox(x(0, 0))

您可分配字符串錯誤的數組元素，或者您也可以分配比單一字符串的正確的數組元素的東西，比如一個字符串數組。

來源

2013-02-03 00:34:34 xpda

有關Excel和VB.NET 2010之間的數組傳輸不匹配的MSDN論壇的條目：http://social.msdn.microsoft.com/Forums/en-US/vbinterop/thread/8155cfa8-7b9f-4a55-ba46 -45bddcb77779 – wrtsvkrfm

爲什麼在我用Excel中的數據填充數據後，VB.NET顯示數組中的（0,0）元素？

回答

相關問題