按鍵精靈如何把excel資料逐列貼上(超級入門理解版)

Spread the love

【聲明】本站任何文章都可能有聯盟行銷連結,當你透過文章內的連結購買產品,我可能獲得分潤,這不會增加你任何成本,並且我分享的都是自己實際使用過的資訊,更多細節請點這裡。 Disclosure: Any post on this site may contain affiliate links, meaning I get commission if you decide to make a purchase through my links, at no cost to you.


為了簡化成容易理解,
在此就不使用變數,強制跑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,那麼沒寫好還會有跳不出去的問題

分享文章
Chaneswin
Chaneswin

【阿淳】漂流過網路行銷、組織行銷、被創業的光環迷惑過,體驗那些未曾想像的驚奇之後,最終的自由卻是擁有澄澈的雙眼、返璞歸真的看世界,我的冒險不在鎂光燈的絢麗舞台,而在迷宮中。把心路歷程化為故事、把工具筆記在雲端。在瞬息萬變的世界裡,慢慢來。
【阿淳的自由生活工具箱】前身小查的白日夢。從腦中的虛幻到真實世界,這裡記錄著一路上不同階段的想法、課程、工具、實踐、挫折,從此放下權威迷思。如果翻出你需要的工具,歡迎隨喜自取、提問討論 :)

文章: 316

發佈留言

發佈留言必須填寫的電子郵件地址不會公開。 必填欄位標示為 *