VBA 运行时异常‘6’，溢出

VBA 运行时错误‘6’，溢出我从数据空中间查询了近7W的数据，向工作表里面插入数据，每行插入9个，循环插入，在插入到工作表里面的时候，当插入到32767行的时候提示溢出，溢出的原因是列变成了10列部分代码如下Do While Not rs.EOF For j = 0 To UBound(head) mySheet.Cells(curRow, j + 1) = rs(head(j)) Next j curRow = curRow + 1 n = n + 1 rs.MoveNext If n > 65535 Then i = i + 1 If Not SheetExists(objname & i) Then Call CreateSheet(objname, i) End If Set mySheet = Worksheets(objname & i) mySheet.Cells.Clear Call showhead(mySheet, head) curRow = 2 n = 0 End If Loop其中UBound的最大值是8，但是当curRow为32767的时候，提示溢出，看j编程了9请教怎么解决问题。——解决方案——————————————————–

探讨

谢谢，知道是什么原因了，还想请教一下，怎么把某一列变成是日期格式，因为我从数据库里面取出来的数据是:2011/08/01 11:12:01这种形式的，需要怎么转化才能在工作表中正确的显示？

——解决方案——————————————————–举个日期字段的例子：如果你的数据库中的数据存储就是date类型的，那么从recordset中获取的数据，要经过format格式赋值给单元格的value或者text属性，如下：VB code

mySheet.Cells(curRow, j + 1).text = format(rs(head(j)),"YYYY-MM-DD HH:MM:SS")我不敢说我可以忘却，或者勇敢，坚强，等等等等一切堂皇而陈旧的字眼。