Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

49078 / 76732

←次へ　｜　前へ→


	【32576】ループでファイルのクローズ

tetsu - 05/12/18(日) 15:29 -


	引用なし

	パスワード

初めまして。tetsuと申します。
２点質問があるので、どなたか教えていただけないでしょうか。

1.定数の宣言時に、定数の中に変数を入れることは出来ないのでしょうか。

Dim i as Integer
Const A as String = "変数Iは" & i & "です。"

といったようにして、プロシージャの中で定数Aを使いたいのですがエラーがでます。やはり定数の中に変数を入れることは不可能なのでしょうか。

2.ループでオープンしたファイルをクローズする方法がわかりません。

Dim t_path = Variant
Dim i as Integer

With Application
　　 t_path = .GetOpenFilename("CSVファィル(*.csv),*.csv", , , , True)
End With

上のコードで、複数のファイルを選択した後に、

For i = LBound(t_path) To UBound(t_path)

Workbooks.Open t_path(i)

　処理

Workbooks.Close t_path(i)

で、一つずつファイルを開き、処理を終了した後にクローズしたいのですが、"Workbooks.Close t_path(i)"の部分が上手くいきません。他に色々ためしたのですが、だめでした。どなたか教えていただけないでしょうか。よろしくお願いします。

2 hits

▼

【32576】ループでファイルのクローズ tetsu 05/12/18(日) 15:29

≪