人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Excel2010のマクロの質問です。
Excel2003?2010へ移行の際にエラーになります。(2007では問題なし)
エラー内容「実行時エラー'9'、インデックスが有効範囲にありません」
デバック(背景黄色)?箇所です。
マクロは苦手で検討がつきません。ファイル形式xlsmに変更しました。
どなたかご教授お願いできますでしょうか。

Workbooks.Add
Windows("hoge.xlsm").Activate
Sheets("AAA").Select
Sheets("AAA").Copy Before:=Workbooks("Book1").Sheets(1)・・・?
ActiveWorkbook.SaveAs Filename:= _
file_name_CS & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close

●質問者: xv1700
●カテゴリ:コンピュータ ウェブ制作
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● oil999
●100ポイント

以下のようにしてみてください。

Dim file_name_CS As String
Dim myWB As Workbook
file_name_CS = "bbb"
ChDir "C:\TEST"
Set myWB = Workbooks.Add
Windows("_hoge.xlsm").Activate
Sheets("AAA").Select
Sheets("AAA").Copy Before:=myWB.Sheets(1)
ActiveWorkbook.SaveAs Filename:= _
 file_name_CS & ".xls", FileFormat:= _
 xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
 , CreateBackup:=False
ActiveWindow.Close

xv1700さんのコメント
うまくいきました。ありがとうございます。 Win7のMSoffice2010 が3台ありまして、2つPCは正常に起動します。 1つのPCはファイルがどこにいったのか不明です。 なにか心当たりとかなんでもよろしいので考えられることはありますでしょうか?

tsu23hirocさんのコメント
マイドキュメントとか、ユーザ名の下にないですか? 記憶のレベルなんで怪しいですが。 あと、保存の時のファイル名にC:?TEST?をくっつけてフルパスにしたらどうですか? あとはフォルダの権限とか…

oil999さんのコメント
>1つのPCはファイルがどこにいったのか不明です。 このマクロを実行して "bbb.xls"が保存されなかったという意味ですか? ディレクトリ "C:\TEST\" が存在しないのではないでしょうか。 このディレクトリがないと、ファイルは保存されません。

oil999さんのコメント
>1つのPCはファイルがどこにいったのか不明です。 このマクロを実行して "bbb.xls"が保存されなかったという意味ですか? ディレクトリ "C:\TEST\" が存在しないのではないでしょうか。 このディレクトリがないと、ファイルは保存されません。

xv1700さんのコメント
このマクロ、それ以外のマクロも(フルパス指定)でも駄目でした。 「bbb.xls」が保存されないととってよいのか。エラーも出力されずに保存されていないのか?どこかのフォルダにはいっているのかが不明です。 "C:\TEST\" は存在しています。2名で確認しているのですが・・・ 気にかかって仕方がありません。ありがとうございました。
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ