帮我看看这段代码（help）

Dim   xlapp   As   Object  
  Dim   xlbook   As   Object  
  Dim   xlsheet   As   Object  
   
  Set   xlapp   =   CreateObject("excel.application")  
  Set   xlbook   =   Nothing  
  Set   xlsheet   =   Nothing  
  xlapp.Visible   =   True  
  Set   xlbook   =   xlapp.Workbooks.Open(App.Path   &   "\dy")  
  Set   xlsheet   =   xlbook.Worksheets("1")  
  Range("A4").Value   =   rs!Name  
  Range("B4").Value   =   rs!sex  
  xlbook.Save     '保存文件  
          xlbook.PrintOut     '执行打印  
          xlapp.Quit  
  End   Sub  
  dy是excle的模版文件，错误提示：下标越界，请各位指教，有代码更好！  
  问题点数：20、回复次数：4Top

1 楼yanz（飞燕）回复于 2002-03-05 08:45:12 得分 20

Set     xlsheet     =     xlbook.Worksheets("1")  
  改为  
  Set     xlsheet     =     xlbook.Worksheets(1)  
  Top

2 楼ambition（）回复于 2002-03-05 08:50:52 得分 0

会不会是记录集里有NULL值？应该加上错误判断.Top

3 楼yangzhaoyu（老妖）回复于 2002-03-05 08:51:15 得分 0

rs!Name  
  检查一下位置Top

4 楼Tadpole0510（学习、学习）回复于 2002-03-05 08:53:17 得分 0

Range("A4").Value     =     rs!Name  
      Range("B4").Value     =     rs!sex  
  "A4"不应该是变量吧？     range(0).value   0为字段在表中次序  
  Top

相关问题

• xlbook
• xlsheet
• xlapp
• worksheets
• range
• rs
• set

• 帖主：bzwht2002
• yanz

• Visual Basic类图书
• Visual Basic类源码下载