変数を保持して呼び出す方法

質問

変数を保持する方法
2022/02/10 15:36
変数が受け継がれない
2022/02/10 15:24
sub A(),subB()と複数のプロシージャをModule1に配置。

Sub Aでターゲットファイル(T_File)を指定して
Sub Bで同じT_Fileを呼び出そうとしたのですが
Subの前に配列は宣言しているのでPrivateのハズなのに
変数が受け継がれません

T_Fileが”””となります。

多分、Sub A()が終了した時点で一度マクロが終了して
新たにSub B()を呼び出すので上手く変数が受け継がれないのだと思います。

何処かのシートのセルに変数を保持して呼び出す方法が考えられますが
そのほかに変数を保持する方法は有りませんか？
（できればシートのセルに保持しない方法があれば教えて下さい。）

以下コード（コードが長いので必要と思われる所だけを記載しています。）
’------------------------------------

Option Explicit

Dim dlg As FileDialog
Dim T_File As String

Sub A()
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
If dlg.Show = False Then
MsgBox "処理はキャンセルされました。"
Exit Sub
Else
End If

'指定テキストファイル読み込み
T_File = dlg.SelectedItems(1)

'(途中のコード省略）

If rc = vbNo Then
MsgBox "処理を中止します。", vbCritical
Exit Sub
Else
MsgBox "処理が終了しました。", vbInformation
End If

End Sub

Sub B()

’T_File = dlg.SelectedItems(1)

Folder_Name = CreateObject("Scripting.FileSystemObject").GetParentFolderName(T_File)

End　Sub

回答No.14

kkkkkm · ベストアンサー

利用した各プロシージャの最後に
Set C_Ws = Nothing
は入れておいてください。

入れておかないと、一度実行して正常にプロシージャから抜けた後でシート名(コードではなく実際のシート名)を変更した場合、そのまま次のプロシージャを実行するとSetとシート名が違うのにエラーになりません。

Setでシート名ではなくシートのオブジェクト名がSetされるためだと思われます。
シート名で探してオブジェクト名でSetする感じ。
なので
Set C_Ws = Nothing
で開放しておくと、その後の実行時に新しくSetするのでシート名が違う場合ちゃんとエラーになります。

回答No.3

kkkkkm

> 多分、Sub A()が終了した時点で一度マクロが終了して
> 新たにSub B()を呼び出すので上手く変数が受け継がれないのだと思いますが

If rc = vbNo Thenで中止とvbYesの終了どちらで終了しても変数の値は保持しています。

'(途中のコード省略）のところでT_Fileを""にしているところが無いでしょうか。

中止とvbYesの終了のところでMsgBoxでT_Fileの値を確認してみてください。

宣言も同じモジュールの中だという事みたいですので
(Sub A()に宣言が無いのでそのままだとT_Fileの定義が無いというエラーになりますよね)
Dim T_File As String
で大丈夫だと思いますが、一度
Public T_File As String
で試してもいいかもしれません。

あと、かなり以前にグローバル変数は何かのタイミングで飛ぶことがあるというのを聞いたことがあります。ただ、かなり前なので今はそういう事は無いのかもしれませんが、もしかしたら程度で片隅に置いておいてもいいかもしれません。

回答No.2

asciiz

ええと、一つのモジュール内で宣言し、そのモジュール内でしか使えない変数を「プライベート変数」と言います。
そしてモジュール外で宣言し、どのモジュールからでも使えるような変数は「グローバル変数」と言います。

Excel VBA で、グローバル変数を作成するには、「Public」を付けて宣言します。

ということでまあNo.1さんと同じ回答にはなってしまうのですが。

次のページなども読んでみてください。

＞Office TANAKA - 変数の使い方[変数の適用範囲]
＞http://officetanaka.net/excel/vba/variable/05.htm

補足

>Dim T_File As String を
>Public T_File As Stringにすればいいのでは。

sub A()が始まる前に
DIMで配列宣言をすれば、Public と書かなくても
それは、Publicとして扱われると思っていたのですが
私の認識が間違っているいるのでしょうか？

Option Explicit

Dim dlg As FileDialog
Dim T_File As String

Sub A()

回答No.1

sknbsknb2

Dim T_File As String を
Public T_File As Stringにすればいいのでは。

補足

>Dim T_File As String を
>Public T_File As Stringにすればいいのでは。

sub A()が始まる前に
DIMで配列宣言をすれば、Public と書かなくても
それは、Publicとして扱われると思っていたのですが
私の認識が間違っているいるのでしょうか？

Option Explicit

Dim dlg As FileDialog
Dim T_File As String

Sub A()