重要なお知らせ

「教えて! goo」は2025年9月17日(水)をもちまして、サービスを終了いたします。詳細はこちら＞

【GOLF me！】初月無料お試し

急いでいます！

VBS シートをコピーして別のブックへ

解決済

  • 質問者：優也。
  • 質問日時：
  • 回答数：1件

コードが長いので、エラーの出る前部分からを掲載いたしますが
現在下記のコードが含まれるマクロを実行すると
win10だと正しく動くのですが
win7だと添付画像のエラーで止まってしまいます。
Workbooks.Add
ThisWorkbook.Sheets("メール").Copy After:=ActiveWorkbook.Sheets(Sheets.Count)

エラーになるのは
ThisWorkbook.Sheets("メール").Copy After:=ActiveWorkbook.Sheets(Sheets.Count)
の部分です。
私の勝手な推測ですが、win10だと新規ブックを作成した際
シートは1だけですが
win7だと新規ブックを作成すると最初からシートは3つあることが
関係しているのではと思っております。

このコードをどのようにすれば、win7でも正しく動作するでしょうか。

「VBS シートをコピーして別のブックへ」の質問画像
通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (1件)

参考程度に

No.1ベストアンサー

  • 回答者： fujillin
  • 回答日時：

こんにちは



引数の「Sheets.Count」が意図と異なってしまっている可能性はありませんか？
1行表記だとさらに長くなってはしまいますが、ついでに…

ThisWorkbook.Worksheets("メール").Copy After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count)

としてみたらどうなるでしょうか？
    • good
    • 0
    • 件
通報する
この回答へのお礼

ありがとうございます。
頂いたコードでやりたい事が行えました。
本当にありがとうございました。

通報する
お礼日時：2019/09/25 17:12

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

ページトップページトップ

Q質問する（無料）

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報