Microsoft Access 掲示板

AccessのクエリデータをExcelのテンプレートに挿入したい / 5

5 コメント
views
4 フォロー
5
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
通報 ...