質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

Q&A

解決済

1回答

13102閲覧

Access2016のVBAでExcel2016ファイル操作を行う方法

TBA-BA

総合スコア8

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

0グッド

2クリップ

投稿2017/01/18 05:49

###前提・実現したいこと
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に関する設定を調べたのですが、見つける事が出来ませんでした。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

自己解決

Access2007では、「シート」文字の幅が、半角と全角で同じでしたが、Access2016からは、半角と全角の幅は異なります。この関係で、イベントが発生しなくなったのが原因でした。
お騒がせして、大変申し訳ありませんでした。
補足:
参照設定で、「microsoft Office 16.0 Access database engine Object Library」にチェックをつけて、OKボタンクリック後に、参照設定で、確認すると、16.0⇒15.0 になります。
アプリケーション動作には、問題ありません。

投稿2017/01/24 01:15

TBA-BA

総合スコア8

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問