代碼大概如下:
      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
之前,就好了,不知道中間哪些代碼把剪貼板給清空了。

相关文章:

  • 2022-12-23
  • 2022-12-23
  • 2021-06-06
  • 2022-01-20
  • 2022-12-23
  • 2022-01-12
  • 2022-12-23
  • 2022-12-23
猜你喜欢
  • 2022-12-23
  • 2021-07-28
  • 2021-12-05
  • 2021-12-02
  • 2021-10-28
  • 2021-06-13
  • 2022-12-23
相关资源
相似解决方案