第一、需要引用microsoftactivexdataobjects2.0或以上版本的控制元件

第二、你的寫法好像有問題

1、賦值我一般會用cells(i,9)=rs("salesnum")

2、或者每個單元格的賦值不用，直接用range("g3").copyfromrecordsetrs這樣你的程式碼從range("g3").select到wend這一部分都可以不要了。

樓主，您好！ 關於把陣列賦值給EXCEL單元格，陣列格式要求寫準確，比如下面這樣子：={1,2,3;4,5,6;7,8,9} 這是一個三行三列的二維陣列(同行用半形逗號分開，換行要用半形分號） 將這個二維陣列可以直接賦值給單元格:操作是先選中一個三行三列的單元格區域，上邊公式位置輸入={1,2,3;4,5,6;7,8,9} ，然後按CTRL+SHIFT+Enter，陣列就被賦值給了單元格。參下圖 但是，您講的“三維”陣列，EXCEL是可以實現三維引用，就是工作表的行，列是二維，很多個工作表在一起組成第三維(Z方向）。但是，沒辦法一次性把一個三維的資料同時直接賦值給多個工作表中的多行多列。 我不太清想您所講的三維概念，跟我講的是否一致。如果您的確是三維陣列，只能通VBA來實現一次性賦值了。 您需要VBA實現三維陣列賦值的話，請您補充您的陣列資料或者樣本，我再來回復。

除非在可以進行代數運算的軟體裡，無窮大隻是一個非常大的數。VBA中，雙精度最大可到 1.79769313486232E308如果要判斷一個數是否比 1.79769313486232E308的平方還大，在VBA中，可能只好採用構造陣列/結構表示大數的方法了。