2022-04-12 15:24:55
エクセルシート名変更について
複数ファイルを1つのファイルにシート別にコピーするプログラムがあります。 反復の中で、各シートの『B5』セルに入力されている文字列をシートの名前にしたいと思っているのですが、 ネット上でも、シートの名前の変更についての情報が調べきれませんでした。 反復及び、シート名の変更を行うには、どのようなプログラムにしたらよろしいのでしょうか? #----------------------------------------------------------------------- # Excel のブックを1つにまとめる #----------------------------------------------------------------------- 対象パス=フォルダ選択。 保存ファイル名=「{母艦パス}\結果.xlsx」 #----------------------------------------------------------------------- もし、対象パス=空ならば、終わる。 母艦を最小化。 エクセル起動。 エクセル新規ブック 対象パス&「*.xlsx」の全ファイル列挙 反復 対象をエクセル開く。 F=対象のファイル名抽出 エクセルシート列挙 反復 母艦=「{F}:{対象}」 2のエクセルブック注目 対象のエクセルシート注目 「A:O」をエクセル選択 エクセルコピー 1のエクセルブック注目 エクセル新規シート エクセル貼り付け 「A9:I100」のエクセル列削除 「G:I」のエクセル列削除 #ここから 「B5」をエクセルセル取得 「Sheet*」を「B5」にシート名変更 #ここまでを追記したのですが、エラーが出てしまいます。 1秒待つ 2のエクセルブック注目 クリップボード=「」 エクセルブック非保存閉じる 1秒待つ 1のエクセルブック注目 保存ファイル名へエクセル保存 エクセル終了 終わる。 #----------------------------------------------------------------------- ご指導、宜しくお願い致します。 |