[[20210324181443]]　『Excel2016からOffice365になったことによるマクロ』（s）　ページの最後に飛ぶ

『Excel2016からOffice365になったことによるマクロ変数の不具合』（s）

先日、Excel2016のOffice365にバージョンアップをしたところ、既存マクロでエラーが起きてしまいました。Excelマクロ素人なので原因がわかる方教えていただきたいです。

実行時のエラー：9
「インデックスが有効範囲にありません。」

7行目のWindows(filename).Activeでエラーが起きます。
filenameは毎回変更する為、C012設定エクセルにもっていて、
毎回そこから読み取り変数として格納しています。

''''''''''''''''''''''''''''''''''''''''''''''''''

 Dim filename As String

 Windows("C012設定エクセル.xlsx").Activate
 Worksheets("必要情報").Activate
 filename = Range("K13").Value

''''''''''''''''''''''''''''''''''''''''''''''''''

  　Windows(filename).Activate
    Range("A7:C7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

拙い文章で大変申し訳ございません。

＜使用 Excel：Office365、使用 OS：Windows10 ＞

CO12設定エクセルの中にパスが記述されているのだと思われますが、Excel2016 → Office365にしたことによってExcelのインストールパスが変わっているということはないでしょうか？

ちなみに、現在のOfficeのインストールパスは下記で分ります。

▼操作手順

 VBエディターを起動
　↓
［イミディエイト］ウィンドウを表示
　↓
［イミディエイト］ウィンドウに
　「?application.path」と入力して［Enter］キーを押す
（けい） 2021/03/24(水) 18:42

ちょっと確認です。
「C012設定エクセル.xlsx」という名前（拡張子まで含めたもの）のウィンドウって、開かれてますか？

（もこな２） 2021/03/25(木) 07:59

けいさん

ありがとうございます！！
インストールパスを教えていただいた方法で調べてみたところ、

「C:\Program Files\Microsoft Office\Root\Office16」

と表示されました。つまりまだ2016バージョンということでしょうか…？
これに対して何か対処方法があるのか教えていただきたいです。。。

もこな２さん

ありがとうございます！
C012設定エクセルファイルは一応開いてある状態となっております。

（s） 2021/03/25(木) 10:29

C012設定エクセル.xlsxの中には実際何が書かれているんでしょうか？？
（けい） 2021/03/25(木) 10:56

 Windowsオブジェクトは状況依存なので、結構やっかいです。

 コードを見る限り、Windowを操作する必要性はないように思うので、
 WorkBookやWorkShettオブジェクトを指定するように書き換えた方が
 今後のためにもいいと思います。
（´・ω・`） 2021/03/25(木) 10:59

「C012設定エクセル.xlsx」の「必要情報」シートのK13セルの値

にあるブックは開いていますか？

（きまぐれおじさん） 2021/03/25(木) 11:08

けいさん

C012設定エクセル.xlsxのK13セルには

ウィンドウ名「00 元データ202102.xlsx」が書かれています。
日付部分が毎月変更になる為に数式で上記のファイル名がセルに入っています。

このウィンドウ名をfilenameとして変数にもっており、
色々と作業したいのですが…。

（´・ω・`）さん
そうなのですね、もしうまくいかなかったらworkbook等にすることも検討致します。
（s） 2021/03/25(木) 11:28

 >実行時のエラー：9
 >「インデックスが有効範囲にありません。」

 念のため ↓　の結果を教えていただけませんか？

    filename = Range("K13").Value
    MsgBox Workbooks(filename).Windows.Count

（チオチモリン） 2021/03/25(木) 15:24

コメント返信：