hiroton
2021/03/11 (木) 14:58:53
26d02@f966d
ファイル自体が悪さをしているというのはあまり経験がありません。コード自体は単純な処理なので、パス、ファイル名の作り方や単純なタイプミスをまず疑ってしまいます
コピー処理の前後を次のようにするとどうなりますか?
If Dir(cstrTemplateDir & cstrTemplateBook) = "" Then
MsgBox cstrTemplateDir & cstrTemplateBook & "は存在しません"
End If
Dim xlBook As Object
'ワークシートをコピー
Set xlBook = .Workbooks(cstrTemplateBook)
xlBook.Worksheets("sheet1").Copy
Set xlBook = Nothing
通報 ...