【VBA】サブフォルダを含む全てのExcelシートをA1選択で保存する
Excel ファイル をお客様へ納品する際、全ての シート が A1 セル を 選択 した状態でお渡しするのがお決まりになっていますよね。 さらに言うなら最初の シート を選択した状態、かつ 1番左上 に スクロール しておくことも欠かせません。 個人的にはそこまでしなくても…と思いますが、相手に対する気遣いです。 確かに受け取る側の立場だと、ありがたいことだと感じます。 しかし、 ドキュメント を作成する側は、修正する度に毎回これを行わないければならないので、とても面倒だと思います。 複数のExcelファイルを一括でA1選択! 世の中には同じ事を考えている方はたくさんいるようです。 ブック を閉じる際に A1 セルを 選択 してくれる アドオン はあるのですが、 一括 で Excel ファイル を処理してくれるものは中々見つかりませんでした…。 そこで、 サブディレクトリ を含む全ての Excel ファイル の全ての シート の A1 セルを 選択 して 保存 する便利な Excel マクロ ( VBA )を作成しました! サブディレクトリを含めたファイル一覧を取得 まずは、 サブディレクトリ を含めた複数の Excel ファイル 一覧 を取得します。 下記の参考サイトほぼ丸パクリさせて頂きましたw Public Function GetFilePathList(ByVal specifiedFolder As String, _ ByVal filePattern As String, _ ByVal containsSubFolder As Boolean, _ ByRef filePathList As Object) Dim GetFileName As String Dim subFolder As Object GetFileName = Dir(specifiedFolder & "\" & filePattern) Do While GetFileName <> "" Call filePathList.Add(specifiedFolder ...