yzx99

导航

 
代碼大概如下:
      Set Rs = Conn.Execute("select * from V_O96GZDC")
      sTemp = Rs.GetString
      Clipboard.Clear
      Clipboard.SetText sTemp
      xlWrk.Sheets(2).Range("A3", "Z" & (lCount + 1)).Insert
      xlWrk.Sheets(2).Range("A2", "Z2").Copy _
                      xlWrk.Sheets(2).Range("A3", "Z" & (lCount + 1))
      xlWrk.Sheets(2).Select
      xlWrk.Sheets(2).Range("A2").Select
      xlWrk.Sheets(2).Paste
結果程序出錯
後來,把
      Clipboard.Clear
      Clipboard.SetText sTemp
放在      xlWrk.Sheets(2).Paste
之前,就好了,不知道中間哪些代碼把剪貼板給清空了。
posted on 2005-05-30 21:15  yzx99  阅读(375)  评论(0编辑  收藏  举报