プロが教えるわが家の防犯対策術!

Excel2003でworksheetクラスのCopyメソッドが失敗しました。
という表示がでて全く原因がわからず困っています。
詳細は

ThisWorkbook.Worksheets("請求書・原本").Copy Before:=Worksheets(sheetname2)

の箇所でエラーが発生します。
発生する場所はたまに変わります。
すぐ上のプロシージャで実行している同じようなステートメントは問題なく実行されるのですが、
急に同じ構文の箇所で発生しているので全く理由がわかりません。
変数で設定しているシート名は確実に存在しています。

コードは以下のとおりです。

Function fncPrtCon2(ByVal sheetname As String, ByVal siki As String, ByVal mainScr As String, ByVal i As Long)

'【変数】
Dim wDate As Date '日付入力用変数
Dim xDate As Date
Dim work As String '日付フォーマット用
Dim sheetname2 As String



ThisWorkbook.Worksheets("明細・原本").Copy Before:=Worksheets("明細・原本")
sheetname = sheetname & "・" & Worksheets(mainScr).Cells(i + 1, 6).Value & "・明細"
ActiveSheet.Name = sheetname
sheetname2 = sheetname

(中略)

  '原本シートコピー
ThisWorkbook.Worksheets("請求書・原本").Copy Before:=Worksheets(sheetname2)
sheetname = Replace(sheetname, "・明細", "")
ActiveSheet.Name = sheetname

End Function

上記コードはサブモジュールでメインから各引数を値渡ししています。
Copyメソッドの引数を省略して実行すると成功します。
どこか問題のある箇所があるでしょうか。
助言お願いします。

A 回答 (2件)

>エラーが発生します。


これだけでは、いろいろな事が考えられるので、憶測でしか物を言えません。
エラーが出ているときは、エラーメッセージも載せるようにしましょうね。


引数のBefore:=Worksheets(sheetname2)

このシート「Worksheets(sheetname2)」は、アクティブなワークブックに存在しているシートではないとか?

Before:=Workbooks("Book1.xlsなどのブック名").Worksheets(sheetname2)
という感じにしてあげるとうまくいくかもしれません。
    • good
    • 0

sheetname2 に不正な値が渡されているのではないですか。

    • good
    • 0

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

このQ&Aを見た人はこんなQ&Aも見ています