|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
sthuang66
註冊時間: 2014-04-27 文章: 171
第 1 樓
|
發表於: 星期五 一月 09, 2015 3:02 am 文章主題: 請教如何用VFP中OLE去操作EXCEL使用選擇性貼上?? |
|
|
我有兩個檔10301pp.xls與10301.xls! 其中我要把10301pp中的一個欄位e15貼到10301中a18! 如果是e15只是單純數值那我下面程序就可以完成任務
oleApp=Createobject("Excel.Application")
oleApp.Visible=.T.
oleApp.Workbooks.open("e:\10301pp.xls")
oleApp.ActiveSheet.Range("e15").Select
oleApp.Selection.Copy
oleApp.Workbooks.open("e:\10301.xls")
oleApp.ActiveSheet.Range("a18").Select
oleApp.Selection.PasteSpecial(-4104,-4142,.F.,.F.)
------------------------------------------------------------------------
只是我e15欄位是公式sum算出來的值!用上面方法貼過去只是把公式貼過去而不是值! 我知道EXCEL是要用選擇性貼上才可以!我是先有錄製巨集去看VB語法!不過還是弄不出來!請教高手指點迷津 |
|
回頂端 |
|
|
sthuang66
註冊時間: 2014-04-27 文章: 171
第 2 樓
|
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|