■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#7445-0
VBでEXCELのマクロを実行するには?
初めて、投稿します。宜しくお願いします。

例えば、

Dim IrcCount As Integer
IrcCount = 50

として、IrcCount を引数としてEXCELのマクロに渡し、VBでこのマクロを実行するには
どのようにしたらよろしいでしょうか?
また、マクロのコードには引数をどのように指定したらよいのでしょうか?
ちなみに、コードとしては下記のようにやってみたのですが...
<VBコード>
Private Sub Form_Load()
Me.Hide
Call sql_Get
Unload Me
End Sub
----------------------------------------------
Public Function sql_Get()
Dim myExcel As Excel.Workbook
Dim IrcCount As Integer

IrcCount = 50
Set myExcel = GetObject("c:\format\test.xls")
myExcel.Application.Visible = True
myExcel.Parent.Windows(1).Visible = True

Call myExcel.Application.Run(serch, IrcCount)'マクロ(serch)を実行
myExcel.SaveAs "c:\test\test3.xls", xlExcel5
myExcel.Application.Quit
Set myExcel = Nothing
End Function

<マクロコード>
Sub serch(IrcCount As Integer)
Dim count As Integer
count = 5
IrcCount = count + IrcCount
ActiveCell.FormulaR1C1 = IrcCount
    Range("A2").Select
End Sub
#7447-0
RE#7445:VBでEXCELのマクロを実行するには?
> Call myExcel.Application.Run(serch, IrcCount)'マクロ(serch)を実行

Run("ファイル名!マクロ名", 引数) です。VBAのヘルプに載ってますよ。
#7448-0
RE#7447:VBでEXCELのマクロを実行するには?(お礼)
> > Call myExcel.Application.Run(serch, IrcCount)'マクロ(serch)を実行
> 
> Run("ファイル名!マクロ名", 引数) です。VBAのヘルプに載ってますよ。

うまく行きました。有難うございました。
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)