百思不得其解，请指点一下，万分感谢

Question

本帖最后由 wushuiyousheng 于 2012-04-25 07:05:42 编辑

Answer 1

在哪一行报错啊？1、先建议您把 Integer 类型改成 Long，VB6 中 Integer 的数据范围是 -32768 到 32767
   而 EXCEL 好像最大的行数是 65535；将来容易溢出；
2、你这段代码是单独的过程或函数么？
3、下面这条语句：
   '我记得 Recordset 好像是从 0 开始计算的；
   mysheet.Cells(i , j) = Adodc1.Recordset.Fields.Item(j).Value
   '是不是应该改成：
   mysheet.Cells(i , j) = Adodc1.Recordset.Fields.Item(j-1).Value
  '错误是不是出现在下面这条语句的 h 上，Cells(x, y) 中的 x 是不是也从 0 开始计算啊？
  '具体的还得看你的错误提示是什么？注意一下执行到下面语句时各变量的当前值是什么？
  mysheet.Range(Cells(1, 1), Cells(1 + h, 10)).Borders.LineStyle = xlContinuous '单元格边框
   

Answer 2

http://download.csdn.net/detail/veron_04/2341786

Answer 3

在最后加下面语句就可以了
   Set mybook = Nothing
   Set mysheet = Nothing
   Set myexcel = Nothing

Answer 4

没有错误提示，只是没有显示Excel，当打开任意一Excel表，才会显示，但是没有任何内容

Answer 5

 加上 Set mybook = Nothing
  Set mysheet = Nothing
  Set myexcel = Nothing
也不行，请各位再帮帮忙