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

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

otn

2020/04/10 07:51

> バージョンがよく変わるファイル名があるのですが、具体的にお願いします。

minako_tera

2020/04/13 04:24

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

行動規範の内容に同意します

回答4件

ベストアンサー

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

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

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

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

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

投稿2020/04/13 05:06

otn

総合スコア85901

minako_tera

2020/04/13 09:49

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

行動規範の内容に同意します

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

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

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

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

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

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

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

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

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

参考サイト＞＞

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

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

投稿2020/04/10 08:24

mattuwan

総合スコア2163

minako_tera

2020/04/13 04:25

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

mattuwan

2020/04/13 04:35

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

mattuwan

2020/04/13 04:44

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

minako_tera

2020/04/13 09:51

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

行動規範の内容に同意します

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

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

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

投稿2020/04/10 08:29