【QBASIC互換!?】FreeBasic【GPL】 2 [無断転載禁止]©2ch.net (430ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

369: デフォルトの名無しさん [] 2020/08/13(木) 14:45:55.04 ID:me27utS4(1) AAS
「DispCallFunc」を使用した方いますか？

https://qiita.com/palglowr/items/04250eb1a8a873fbf9d2
を見ながらFreeBasicで真似してみたんですが、
「DispCallFunc」で落ちまくります。

「CoCreateInstance」でエクセルは立ち上がっているので、
そこまでは問題ないです。Variant部分だと思うのですが、
どなたか上手く行った方いらっしゃいますか？

Variant部分は
'Dim vArgs(0 To 7) As Variant
Dim vArgs(0 To 7) As Any Ptr
Dim vt(0 To 7) As Integer
Dim pArgs(0 To 7) As Long
'Dim vRet As Variant
Dim vRet As Any Ptr
Dim i As Integer
Dim iidNull As CLSID

な感じで「Any Ptr」で置き換えました。ちなみにvbLongを3じゃなくて「4」で
やっても落ちました。

「disphelper.bi」を使えばエクセルの起動はできるので問題ないのですが、
「DispCallFunc」は興味本位です。

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.019s