###前提・実現したいこと
access2007で作成したVBAをAccess2016で動作させたい。
ご教授をお願い致します。
###発生している問題・エラーメッセージ
Access2007では、ボタンをクリックすると、Excelが表示されて、エクセルのシートに、Accessのデータが登録されるのですが、 Access2016では、全く動作しません。
###該当のソースコード
Dim AppObj As Object 'Excel.Applicationオブジェクトの宣言 Dim WBObj As Object 'Excel.Workbookオブジェクトの宣言 Dim WsObj As Object 'Excel.WorkSheetオブジェクトの宣言 Dim FilePath As String FilePath = Application.CurrentProject.Path & "\Sample.xlsx" 'Excelファイルのパスを指定 '※ Excelファイルが使用するAccessファイルと同じフォルダにある場合の表記 Set AppObj = CreateObject("Excel.Application") '実行時バインディング Set WBObj = AppObj.WorkBooks.Open(FilePath) 'ワークブックを開く Set WsObj = WBObj.Worksheets("Sheet1") AppObj.Visible = True 'Excelアプリケーションを表示する 'ワークシートへの処理 WsObj.range("A1").value = "Access" 'ワークシートのコピー作成 WsObj.Copy after:=WsObj WBObj.Activesheet.Name = "test" 'Excelを保存して閉じる WBObj.Save 'ワークブックを保存する WBObj.Close 'ワークブックを閉じる AppObj.Quit End Sub
###試したこと
「VBE」(Visual Basic Editor)のメニューから
「ツール」→「参照設定」と選択して、「Microsoft Excel 16.0 Object Library」
にチェックがついているのを確認しました。
マクロ-全てのマクロを有効にする。に設定しています。
###補足情報(言語/FW/ツール等のバージョンなど)
より詳細な情報
Access2013では、上記の設定でよい事が記載されているのですが、Access2016に関する設定を調べたのですが、見つける事が出来ませんでした。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。