Chaneswin's blog & dreams －－ 查納斯文．小查的白日夢

為了簡化成容易理解， 在此就不使用變數，強制跑1～10列來當例子， 請在D槽準備好檔案 D:\test99.xls //開啟要貼上的目的程式（WORD） RunApp "WINWORD.exe" row=1//我們從第一列開始 MyMaxRow=10//跑到第10列 //在您的電腦上需要安裝有Office辦公軟件,否則使用不了 //下面這句是打開Excel文檔工作表 Call Plugin.Office.OpenXls("D:\test99.xls") //==For BEGIN=====================// For i=row to MyMaxRow //下面這句是向Excel文檔工作表(1)單元格(i, A)讀出內容存入(Text)變量 Text = Plugin.Office.ReadXls(1, i, 1) //把Text這個變數放入剪貼板，等待貼上 Call Plugin.Sys.SetCLB(Text) //Ctrl+V貼上然後Enter換列 KeyDown 17, 1 KeyPress 86, 1 KeyUp 17, 1 KeyPress "Enter", 1 Next //==For END=====================// //下面這句是關閉Excel文檔工作表 Call Plugin.Office.CloseXls() MessageBox "完成！讀取到的最後一個單元格內容是：" & Text MessageBox "可以打開(D:\test99.xls)文件查看是否成功寫入內容" 這個例子是為了便於理解，在每個儲存格字數很少時可以正常運作， 實作上則因為記憶體剪貼簿的速度趕不上，常會出錯， 必須適當加上Delay以及其他動作， 本例來說列數為固定值，用For迴圈很直覺 如果不固定，用GOTO，那麼沒寫好還會有跳不出去的問題