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