[VBA ] 固定或靜態資料不能大於64K

看板Visual_Basic作者lunsun (運氣可以不要用完嗎)時間3年前 (2021/01/18 15:31)推噓4(4推 0噓 10→)

留言14則, 1人參與討論串1/1

想請問各位大大一下, 在定義Type的時候遇到固定或靜態資料不能大於64K的問題, 以下程式碼的預設矩陣大小為 wDay(31) 想改到366 Task(10) 想改到30 Project(17) 想改到50 基本上用預設的都會過,但大一點就會遇到64K的問題. 有去網路上找解法,大部分都是建議先不設再用Redim, 但試了很久,不知道是語法錯誤還是怎樣,試了很久都不會過. 以下是我的寫法 Dim Tester As Employee ReDim Tester.Project(50).Task(30).EffortByDate.wDay(366) 這樣子寫這行會出現陣列超出範圍的錯誤如果只寫 ReDim Tester.Project(50) 這樣子這一行會過, 但下面有用到Tester.Project(0).Task(0).TaskName的那行反而出現超出範圍錯誤如果寫 ReDim Tester.Project(50) ReDim Tester.Project(50).Task(30) 這樣子這兩行會過,但結果和上面一樣下面有用到Tester.Project(0).Task(0).TaskName的那行反而出現超出範圍錯誤搞了很久都搞不定, 以下是我Type的定義,可否請各位大大幫忙看一下問題在哪邊感謝幫忙! Public Type wRecord wYear As Integer wMonth As Integer wDay() As String wStatus As String End Type Public Type Work TaskName As String TaskStatus As String EffortByDate As wRecord End Type Public Type wHandle ProjectNumber As String ProjectStatus As String Model As String Customer As String Catogory As String Task() As Work End Type Public Type Employee Name As String Project() As wHandle End Type -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 122.146.24.242 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1610955082.A.B69.html

推

waiter337

02/16 03:01, 3年前 , 1^F

02/16 03:01, 1^F

推

waiter337

02/16 03:03, 3年前 , 2^F

02/16 03:03, 2^F

→

waiter337

02/16 03:04, 3年前 , 3^F

02/16 03:04, 3^F