
Dim nendo As Integer
FilePath = ActiveWorkbook.Path
nendo = Range("k4").Value
Workbooks("仕訳_支出_XXXX年度.xlsm").SaveAs Filename:=FilePath & "\仕訳_支出_" & nendo & "年度.xlsm"
上記の構文を実行すると最終行で「インデックスの有効範囲ではありません。」のエラーメッセージとなります。対処方法のご教授よろしくお願いします。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
#1です。
#2さんのおっしゃるとおりです。
「仕訳_支出_XXXX年度.xlsm」というファイルを作り、オープンにすると動きました。
Dim nendo As Integer
FilePath = ActiveWorkbook.Path
Workbooks.Open Filename:=FilePath & "\仕訳_支出_XXXX年度.xlsm"
nendo = Range("K4").Value
Workbooks("仕訳_支出_XXXX年度.xlsm").SaveAs Filename:=FilePath & "\仕訳_支出_" & nendo & "年度.xlsm"
ActiveWindow.Close
マクロでオープンさせるなら、手続きの前後にOpenとCloseを入れると動きました。
度々のご回答ありがとうございます。
#2さんにお礼した通りファイル名を変更したことを失念しておりました。
誠にお恥ずかしい限りです。
ご指導ありがとうございました。
No.2
- 回答日時:
エラー9であれば
仕訳_支出_XXXX年度.xlsm の綴りが間違っているか
開いていないのでは無いでしょうか?
確認してみてください
ご回答ありがとうございます。
ご指摘の箇所確認しました。
お恥ずかしいはなしです。
ファイル名を変更したことを忘れていました。
解決しました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/20 14:46
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/11 13:29
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) エクセルvba シートを順次アクティブにするマクロ 3 2022/06/24 16:37
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/12 10:10
- Visual Basic(VBA) ExcelのVBAで教えてください。 Vlookupで、X X.value = applicatio 1 2022/12/26 13:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/20 16:59
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
おすすめ情報