VFP 愛用者社區

[CPS0204]

　1．創建Excel物件
　　eole=CREATEOBJECT(′Excel.application′)
　　2．添加新工作簿
　　eole.Workbooks.add
但最多只有3個sheets

執行多次的 eole.Workbooks.add ,也無法增加?

請問有人知道解決方法嗎?謝謝
ms-office 2010

[CPS0204]

可以了
改用 ExcelApp.WorkSHEETS.add && 添加新sheets,執行一次,可加入新的sheets一個

不要用 excelapp.workbooks.add

[CPS0204]

將excel的字,轉成(直行書寫)
例用macro得到
EXCELAPP.CELLS(1,1).Orientation=xlVertical

但在vfp 當中,那xlVertical不認識
後來查得 xlVertical=255 代表 .T.
0 代表 .F.
所以
EXCELAPP.CELLS(1,1).Orientation=255
可用

[bx1166]

謝謝分享, 可能有機會用到 !

[CPS0204]

從vfp寫入excel如果不是值,而是公式 ,例: k1=b5+c5
原用,EXCELAPP.CELLS(5,5).VALUE="B5+C5"
結果不行,會錯
改用下列就可以了
ExcelApp.Cells(5,4).FORMULAR1C1="=R[6]C[-1]+R[-1]C"

上面的 [6],[-1],[-1] 是 數值變數,是你目前最後焦點座標,相加減的
無法寫成固定!請自行體會!

以上經試驗OK! SUM(E1:E20) 也是可用類似來變化......
我從巨集中體會的!

[CPS0204]

還有一個註解問題:
我想從VFP轉到EXCEL中,有紅色小箭頭的註解
使用EXCEL MACRO 撈到
Range("K6").AddComment
Range("K6").Comment.Visible = .F.
Range("K6").Comment.Text Text:="MYNAME:TEST"
**********
上述的 addcomment,visible都沒有問題,可在vfp跑
但是 第3行因為有 .comment.text text:=....這個不行,有錯誤值
我有試到可以有回傳到vfp 的註解值
ret_txt=Range("K6").Comment.Text (可得到回傳文字 MYNAME:TEST)

請問如何將VBA的翻議成VFP可跑的
Range("K6").Comment.Text Text:="MYNAME:TEST"
我的需求是:將DBF的文字寫入EXCEL當作註解
使用: Range("K6").Comment.TexT.VALUE='AAAA'
或Range("K6").Comment="AAAA"
或Range("K6").Comment.VALUE='AAAA'
都不行!

[CPS0204]

試了幾個小時,終於試到了(by google)及自行測的
txt01='這是備註文字'
excelapp.cells(5,5).ADDCOMMENT(TXT01)
這樣才行,真是高興,書本都沒寫

不可使用什麼COMMENT.VALUE,或 COMMENT.TEXT....屬性