VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

請教如何用VFP中OLE去操作EXCEL使用選擇性貼上??

 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
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 樓

發表發表於: 星期五 一月 09, 2015 3:20 am    文章主題: 引言回覆

剛問完才在百度文庫查到
oleApp.Selection.PasteSpecial(-4163,-4142,.F.,.F.) 就可以了!!
我把可以查到的連結放上供有興趣人參考
http://wenku.baidu.com/view/ccf74c01e87101f69e3195bc.html
回頂端
檢視會員個人資料 發送私人訊息
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
1頁(共1頁)

 
前往:  
無法 在這個版面發表文章
無法 在這個版面回覆文章
無法 在這個版面編輯文章
無法 在這個版面刪除文章
無法 在這個版面進行投票
無法 在這個版面附加檔案
無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作