引数が構造体のVBAのマクロをVB.NETから呼び出すには? (ID:147908)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

>「引数が構造体のVBのDLLの関数をVBAから呼び出す方法」について教えていただきましたが

下記のスレッドですね。
http://madia.world.coocan.jp/cgi-bin/vbnet/wwwlng.cgi?print+201210/12100006.txt
http://okwave.jp/qa/q7721398.html

> どのように記述すれば、VB.NETからVBAのマクロに構造体の引数を渡すことができるのでしょうか。

COM の構造体は、タイプライブラリとして公開された型であり、
VBA のユーザー定義型とは別の物です。

VB6 のユーザー定義型や VB.NET の構造体であれば、COM として公開できますが、
VBA の場合は、その構造体を定義したタイプライブラリを参照設定して使う事になります。

今回の場合は、T 型を定義したタイプライブラリを用意しておき、
それをVB.NET と VBA の双方から参照するのが手っ取り早いでしょう。

タイプライブラリは ODL/IDL 等で書いたものでも良いですし、
VB.NET で COM 公開した DLL を利用しても構いません。

利用側のコードは元の物と殆ど変らないので、
あえて書くまでも無いとは思いますが、一応記載。

'-------------------------------
Option Explicit

Sub test(ByRef t_o As SampleLibrary.T)
'Sub test(ByVal t_o As Variant)
  MsgBox t_o.x
  MsgBox t_o.y
  MsgBox TypeName(t_o)
End Sub

'-------------------------------
Imports Microsoft.Office.Interop
Imports System.Runtime.InteropServices

Module Module1
  Sub Main()
    Dim oExcel As New Excel.Application
    Dim oBook As Excel.Workbook
    Dim oBooks As Excel.Workbooks = oExcel.Workbooks
    Dim strPath As String
    Dim t_o As SampleLibrary.T
    t_o.x = "ABC"
    t_o.y = 123
    strPath = "C:\temp\test\Book1.xls"
    oExcel.Visible = True
    oBook = oBooks.Open(strPath)
    oExcel.Run("'" & oBook.Name & "'!TEST", t_o)
    oBook.Close(False)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(oBook)
    oBook = Nothing
    System.Runtime.InteropServices.Marshal.ReleaseComObject(oBooks)
    oBooks = Nothing
    oExcel.Quit()
    System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcel)
    oExcel = Nothing
  End Sub
End Module

←解決時は質問者本人がここをチェックしてください。

戻る