VBA ファイル名がよく変わるファイルを開く、閉じる

Question

バージョンがよく変わるファイル名があるのですが、
マクロでそのファイルを開く、閉じるという操作をできるコードがわかりません。
ご存じでしたら教えてください。
よろしくお願いいたします。

Comments

[otn]

> バージョンがよく変わるファイル名があるのですが、

具体的にお願いします。

[minako_tera]

コメントありがとうございます。返信が遅くなり申し訳ありません。
テスト.ver1.xlsx」のように、ファイル名が変わっていくのですが、コードを書き換えないで開く、閉じるという作業を行いたいです。よろしくお願いします。

Answer 1

テスト.ver1.xlsx」のように、ファイル名が変わっていくのですが、コードを書き換えないで開く、閉じるという作業を行いたいです。

ファイル名の一部をワイルドカードにして、合致するファイルの一覧を取得できます。

chdir "ファイルのあるフォルダ名"
file = Dir("テスト.ver*.xlsx")
Do While file <> ""
  file を開いて処理する
  file = Dir()
Loop

合致するファイルが、絶対に1つしか無いなら、

chdir "ファイルのあるフォルダ名"
file = Dir("テスト.ver*.xlsx")
file を開いて処理する

Comments

[minako_tera]

どうもありがとうございました。無事に解決しました。

Answer 2

＞バージョンがよく変わるファイル名

んと、
「ファイル名の頭から何文字かは同じだけど、後ろの方の文字がちょいちょい変わる」
という認識でよろしいでしょうか？

コードをと言われても、
1つの命令や
1行や2行のコードでどうなるものでもないので、
簡単に考えない方がいいです。

それから、安易に「バージョンが」と言われてますが、
それは、minako_teraさんが読んだ時はそのように脳内変換して読むから、
バージョンだと思うと思いますが、
赤の他人が読んだ場合は、「ただの文字列」です。
プログラムを作るには、どういうルールで文字列が書かれていたら、
それをファイルのバージョンと読むかというルールを作るところから始まります。

じゃぁ、何から手を付けるかというと、
そのファイルを開くには、
手動ではどういう手順で行うのか？
という作業の流れを細分化していくところから始めます。

例えば、
1）「保存データ Ver. ??.??.xlsx」
というようなファイル名をコンピューター内から探す。
2)探したファイル名を一覧表示する
3）ファイル名を選択してもらう
4）ファイルを開く

というような作業手順を自動で行いたいなら、
ファイルを検索する方法を学ばないといけないですし、
どこにどんな風に表示するかを決めないとならないですよね？
その前に、まずはVBAの基礎も一通り学ばなければいけないと思います。

自転車に乗れないのに、
カーブの曲がり方を習ったところで、
自転車でカーブを曲がるなんてことはできないですよね？

まずは、日本語でやりたいことと、
それを実現できる手順を考えてみましょう。
そして、日本語で書けたら、それをVBA語に翻訳できるように勉強しましょう。

参考サイト＞＞

ファイルを検索する
ファイルの一覧を取得する
Like演算子とワイルドカード

この辺が参考になるかと思います。

Comments

[minako_tera]

コメントありがとうございます。返信が遅くなり申し訳ありません。
ワイルドカードを使えると思ったのですが、開く作業はできそうなのですが、閉じるをするとうまくいきません。
もう少し勉強してまたわからなければ質問させていいただきます。

[mattuwan]

>閉じるをするとうまくいきません。
どうなるのですか？
上手くいかないでは伝わりません。
やりとりしながら、勉強していけばいいのではないでしょうか？

[mattuwan]

あぁ、開くときにははっきり名前が分かっているはずですよね？
それを変数に保持しておけば、閉じれると思いますが？
というか、名前は解らなくても、「最後に開いたブック」は分かるので、（開いた順番に番号が付くので）、
それで指定することは可能ですが、Workbooks.Openメソッドには、返り値（開いたブックその物）が、
有りますので、それを変数に受けるようにすれば、
閉じることは容易だと思います。
まずは書いてみて、躓いたらまた聞いて下さい。
今の質問の仕方だと、「サンプル書いて下さい＝アプリ作ってください」という風に取れます。
ここは無料でアプリを作ってもらえる場ではないので、
向ってみて、困っていることを解決できるような質問をしましょう。

[minako_tera]

言葉足らずで申し訳ありませんでした。
いろいろ試してみて、無事に解決しました。また、何かありましたらその時はよろしくお願いします。

Answer 3

Workbooks.Open "C:\Book1.xlsx"
Workbooks("Book1.xlsx").Close

がそれぞれファイルを開く/閉じる
です。
XXXXX_Ver10.xlsx
XXXXX_Ver11.xlsx
.
.
.

のようにどんどん名前が変わってしまう、ということであればシートのどこかにそのファイル名を記録しておき、オープン/クローズで参照するのはそのシートのどこかのセルにしておけば良いのではないでしょうか？

Comments

[minako_tera]

コメントありがとうございます。返信が遅くなり申し訳ありません。
すみません。もう少し勉強してみます。

Answer 4

フォルダの階層読み込みと言うプログラムを参考にしてみて下さい。
「VBA, Scripting.FileSystemObject」と検索すると情報が色々出てくるはずです。
更新日や作成日などの情報も取得出来るので、そのデータを元にソートしてみるのもいいかも知れません。

Comments

[minako_tera]

コメントありがとうございます。返信が遅くなり申し訳ありません。
もう少し検索してみます。