Excel VBA 質問スレッド №1336 (解決済)

標準モジュールからの受け渡し

投稿者 : なな投稿日時 : 2023/03/30(Thu) 07:52:25 OS : Windows 10 EXCEL : Excel 2019

標準モジュールで取得した情報をフォームモジュールで使うにはどうしたらいいでしょうか。
グローバル変数を書けばいいかと思ったのですが、
例えば以下のようにファイルのパス名を触りたい場合
毎回違うとうまくいかずに困っております。
ご教授お願いします。

～～～標準モジュール～～～

sub test()

    Dim FPath As String, FNames As String
    FPath = Application.GetOpenFilename(Filefilter:="Excelブック,*.xlsx")
    FNames = Dir(strFilePath)

    UserForm1.Show

End sub

～～～フォーム～～～

Private Sub CommandButton1_Click()

    MsgBox　FNames

End sub

[返信 1] Re : 標準モジュールからの受け渡し

投稿者 : さんこう投稿日時 : 2023/03/30(Thu) 08:04:28

＞グローバル変数を書けばいいかと思ったのですが

そのとおりですね。

＞毎回違うとうまくいかず困っております

なにが「違う」のでしょうか？
また、「違う」となにが困るのでしょうか？

[返信 2] Re : 標準モジュールからの受け渡し

投稿者 : ngk 投稿日時 : 2023/03/30(Thu) 08:18:03

グローバル変数が嫌なら
　・クラスモジュールを使う
　・Propertyプロシージャを使う
　・Functionプロシージャを使う
という手段もあります。

[返信 3] Re : 標準モジュールからの受け渡し

投稿者 : 無比投稿日時 : 2023/03/30(Thu) 11:11:29

動く様子もないコードを載せられても・・・。

[返信 4] Re : 標準モジュールからの受け渡し

投稿者 : なな投稿日時 : 2023/04/03(Mon) 22:33:13

どうにか文字で説明しようとして試行錯誤していたら自力で解決できましたm(_ _)m

当掲示板について

Excel VBA に関する掲示板です。Excel VBA に関する質問や疑問、それに対する解決方法など気軽に投稿してください。
記事内ではHTMLのタグは使用できません。
記事は一度投稿すると修正できません。内容を訂正したい場合は返信で対応してください。
Sub〜End Sub、Function〜End Function は自動的にプログラムコードとみなし、枠で囲って見やすくします。
Excel VBA とは関係ないことや、他人が不快に思うようなことなど、管理人が適当でないと判断した記事は削除する場合があります。

返信入力フォーム

( 処理日時 : 2026-04-05 12:24:20 )