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ランキング
-
差し押さえ
-
帳簿についてです。 塗装業の塗...
-
マイナスの請求書 仕訳
-
受講料の返金について
-
Outlook2003で件名が特定の文字...
-
普通預金に振込まれた家賃収入...
-
来客の宿泊費
-
商品が破損していた場合の仕訳...
-
貸し切りバスを借りた場合の仕訳
-
先掛割引料の仕訳
-
Outlookのccメールを区別する
-
機械リース屋から作動油を買い...
-
崖っぷちサラリーマンは崖っぷ...
-
電話加入権を解約したときの仕訳
-
勘定元帳に転記漏れがあった場...
-
「簿記3級 第119回 問3...
-
修正申告時の前期役員賞与の仕...
-
ACCESSのサブフォームからメイ...
-
個人事業主ですメルカリで家の...
-
会計ソフト変更
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
おすすめ情報