エクセルVBA Call時、引数が継続できない

Question

お世話になります。
以下のようなvbaのコードを考えました。
-------------------------------------------------------------------------
Sub TEST1
  Dim ii　　　　　　　　　’作業用シート記載行
  Dim FPass　　　　　　　’対象フォルダパス
  ii=5
FPass="c:\work\1"
  Call TEST2(A)
End Sub
-------------------------------------------------------------------------
Sub TEST2(A)
  Dim FSO

Set FSO = CreateObject("Scripting.FileSystemObject")
'フォルダ内のループ
For Each B In FSO.GetFolder(FPass).SubFolders
    ii = ii + 1
    Worksheets("作業用").Cells(ii, 1).Value = B
    Call subfolder(B)
Next
End Sub
-------------------------------------------------------------------------

このプログラムでやりたいことは、
「特定のフォルダ（c:\work\1）の中にあるサブフォルダを含むフォルダとファイルの
パスをすべて取得し、【作業用】シートに記載することと、そのパス毎に更新日時を取得する」
というものです。

現在「【作業用】シートに記載する」ところで困っています。
取得した引数「B」を作業用シートA1から下にすべて記載していきたいのですが、
Callで戻った時、引数が1にリセットされてしまいます。

これを解決するコードを教えていただけないでしょうか。

分かりずらいところがありましたら申し訳ありません。

Zincer · Accepted Answer

「Call TEST2(A)」で「Sub TEST2(A)」を呼ぶ出しているのはわかるのですが、「Sub TEST2(A)」で引数Aを使用している痕跡が無いのは何故ですか？

＞Call subfolder(B)
＞引数が1にリセットされてしまいます。
とは、この部分だと思います。「Sub subfolder(B)」の内容を見てみないと確信は持てませんが、ここに原因があるのかもしれません。
それともう１つ、
Sub TEST1　内で定義した　Dim FPass　や　Dim ii　は　Sub TEST2(A)　から参照することはできません。
もしかして、
Call TEST2( FPass)
Sub TEST2(A)
・・・
'フォルダ内のループ
For Each B In FSO.GetFolder(A).SubFolders
・・・
の間違いでしょうか？
っと、ここまで書いて気が付きましたが、リセットされるのは、変数iiではないでしょうか？
これならば、Sub TEST2(A)へiiは引数として渡らないため、毎回０から始まることが原因でしょう。
先ずは「Option Explicit」を使用して曖昧な定義は使用しないことです。
http://officetanaka.net/excel/vba/beginner/11.htm
次に、共通変数となるDim FPass　や　Dim ii　はこれらのSubプロシージャーの外で定義して、どちらからも参照できるようにしなければいけません。

fujillin · Answer

こんにちは

いろいろ突っ込みどころがありそうですが、ひとまずご質問の内容に関しては（既にNo2様の回答にもありますが）、「変数のスコープ」に関しての理解が不足しているように思われます。

ひとまず、以下をご一読なさってみてください。
簡単に言えば、異なるプロシージャ間では、変数の相互参照は直接にはできませんということです。
https://docs.microsoft.com/ja-jp/office/vba/language/concepts/getting-started/understanding-scope-and-visibility
https://docs.microsoft.com/ja-jp/office/vba/language/concepts/getting-started/understanding-the-lifetime-of-variables

また、「引数」に関してももう少し調べて理解なさった方がよさそうに思われます。
（あまり、適切なページが見つかりませんでしたが・・）
https://vbae.odyssey-com.co.jp/column/no29_1.html
http://addinbox.sakura.ne.jp/Excel_Tips01.htm
https://docs.microsoft.com/ja-jp/office/vba/language/concepts/getting-started/calling-sub-and-function-procedures

mygoonickname · Answer

こんにちは。

Call subfolder(B)では、変数を、subfolderへ渡しているだけですね。
但し、subfolder内で、Bの変数を変更してしまうと、TEST2で使っている
変数Bも変更されてしまっているのでは？と推測します。
subfolderのコードがどの様になっているのかと、同じ変数を使わない事や、
Dimなどの変数の宣言を気を付ける必要があるかと思います。

下記、スコープの記事を載せておきます。
https://www.vba-ie.net/programing/variable-scope.php

t_fumiaki · Answer

callって2箇所、どのcall?

(引数はA?B?どっちの事？？）

エクセルVBA Call時、引数が継続できない

「Call TEST2(A)」で「Sub TEST2(A)」を呼ぶ出しているのはわかるのですが、「Sub TEST2(A)」で引数Aを使用している痕跡が無いのは何故ですか？

こんにちは

こんにちは。

callって2箇所、どのcall?

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング