WindowsXPでAccess2002とExcel2002を使用しています。
AccessのフォームとレポートでExcelのシート内容を表示させたいと思いますが、OLEオブジェクトでそのまま挿入すると容量が大きくなりすぎます。そこで、過去の質問NO.605269のように、テーブルにExcelファイルのフルパスを格納するフィールドを1つ設け、そのパスをオブジェクトフレームコントロールのSourceDocプロパティに代入したのですが、うまくいきません。
連結オブジェクトフレームでは「OLEオブジェクトは空です」とメッセージが出てコントロールには何も表示されません。非連結オブジェクトフレームではどのレコードにも、最初にコントロールを設定したときに表示されるダイアログで指定したExcelファイルしか表示されません。
どうすればいいのか、アドバイスをお願いします。
No.2ベストアンサー
- 回答日時:
んーアクセスのヘルプを読むとSourceDocの正式な使い方は以下のような感じらしいのですが。
具体的なプロパティ名が分かっているなら、使い方はヘルプを読んだ方がはやいかと思いますよ。OLE1はエクセルファイル表示に置き換えて。
---
Sub Command1_Click
' クラス名を設定します。
OLE1.Class = "Excel.Sheet"
' オブジェクトの種類を指定します。
OLE1.OLETypeAllowed = acOLELinked
' OLE 元ファイルを指定します。
OLE1.SourceDoc = "C:\Excel\Oletext.xls"
' リンクするデータを指定します。
OLE1.SourceItem = "R1C1:R5C5"
' リンクされるオブジェクトを作成します。
OLE1.Action = acOLECreateLink
' コントロール サイズを調整します。
OLE1.SizeMode = acOLESizeZoom
End Sub
SourceDoc以外のプロパティも記述したら、表示できました!!
レポートも試してみます。
本当にありがとうございました(*^_^*)
No.1
- 回答日時:
もし本当に
>>最初にコントロールを設定したときに表示されるダイアログで指定したExcelファイルしか表示されません。
ここまでうまく出来ているのなら後はイベントの問題だけのような気がするのですが。どのタイミングでSourceDocに設定されているのでしょう?
例えばボタンをひとつつけてそのボタンクリックでコードを走らせたりするとどうなるんでしょうか。
この回答への補足
早速アドバイスありがとうございます。
フォームのレコード移動時のイベントに下記のように記述しました。
If IsNull(Me.エクセルファイルのパス名) Then
MsgBox "パス名が入力されていません"
Else
Me.エクセルファイル表示.SourceDoc = Me.エクセルファイルのパス名
End If
念のためにコマンドボタンを付けて、クリック時のイベントに同じコードを貼り付けてみましたが、結果は同じでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) [クイックアクセスツールバー]の設定ファイルの格納場所について、 5 2023/04/21 14:43
- Visual Basic(VBA) Excel VBA オブジェクトマクロ 使用指定について お詳しい方教えてください。 共通エクセルフ 2 2023/03/14 17:26
- Excel(エクセル) マクロでボタンにつける名前がどこに設定されているかわからないケースがありました。 1 2023/06/19 19:37
- Access(アクセス) accessでexcelを読み込む時のデータ型 1 2022/03/28 19:45
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Access(アクセス) Access2016でフォーム内にExcelの複数シートを 表示させるイメージで複数テーブルの デー 1 2022/11/25 15:30
- Visual Basic(VBA) Excel VBAについて、 フォルダ内のファイルを全て開きたい場合、 FSOを使えば、Dirは使わ 1 2023/01/27 13:18
- その他(パソコン・スマホ・電化製品) CMD等でPC操作(excel開く等)を自動化させたい 1 2023/03/15 09:53
- CAD・DTP Autocad Scriptファイルからの入力とコマンドラインからの入力が違う 1 2023/08/01 09:13
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
Accessのフォーム上にエクセルのシートを表示させたい!
Visual Basic(VBA)
-
Accessの連結・非連結オブジェクトフレーム
PowerPoint(パワーポイント)
-
OLEオブジェクトを自動でサイズ調整して枠内に収めたい
その他(データベース)
-
-
4
AccessのOLEオブジェクトについて
Access(アクセス)
-
5
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
6
ACCESSでコントロールソースの変更
Access(アクセス)
-
7
エクセルをACCESSのレポートに変換する方法
その他(Microsoft Office)
-
8
ACCESS2010 ActiveXコントロールのAdobe PDF Readerについて
Access(アクセス)
-
9
アクセスvbaでエクセルブックを保存
その他(Microsoft Office)
-
10
アクセスのボタンから指定のワードファイルを開く
Access(アクセス)
-
11
Access サブフォームでの選択行の取得
その他(データベース)
-
12
Access終了時にマクロまたはVBAの実行したい
その他(Microsoft Office)
-
13
ACCESS2010 WEBブラウザーコントロールにPDFを表示
Microsoft ASP
-
14
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
15
アクセスでの画面表示は拡大できない?
Access(アクセス)
-
16
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
17
AccessでExcelファイルを印刷
Excel(エクセル)
-
18
ACCESSでテーブルのチェックをまとめて外すには?
Access(アクセス)
-
19
[Access]帳票フォームにて連続する非連結コントロールに個々の値を入れるには
Access(アクセス)
-
20
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセスVBAのMe!と[ ]
-
文字列で小数点以下の0を削除し...
-
VBA エンターキーでイベントに...
-
Excel VBAでマウスの左クリック...
-
Excel2007 でのチェックボック...
-
Access からオブジェクトとして...
-
現在アクティブになっているオ...
-
ユーザーフォームのインポート...
-
PowerpointVBAで指定のShapeオ...
-
[C#] DataGridViewの項目名
-
日本語の文字化けを直す方法
-
エクセルVBAでセル番地を指定し...
-
エクセルのデータをwebフォーム...
-
コードでオブジェクトを最前面に
-
Excel VBA でPictureBoxオブジ...
-
Imageコントロールにグラフを表...
-
エクセルVBA初心者です。オブジ...
-
生成AI画像について
-
「ご処理進めて頂きますようお...
-
メルカリのメルカードで買い物...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセスVBAのMe!と[ ]
-
VBA エンターキーでイベントに...
-
Excel VBAでマウスの左クリック...
-
文字列で小数点以下の0を削除し...
-
【エクセルのマクロ】クリップ...
-
エクセルVBAでセル番地を指定し...
-
Excel2007 でのチェックボック...
-
Accessのフォーム上にエクセル...
-
日本語の文字化けを直す方法
-
エクセルのデータをwebフォーム...
-
現在アクティブになっているオ...
-
PowerpointVBAで指定のShapeオ...
-
コードでオブジェクトを最前面に
-
【エクセル】複数のTextBoxに共...
-
Imageコントロールにグラフを表...
-
ユーザーフォームのインポート...
-
Access からオブジェクトとして...
-
構造体の静的な初期化
-
「SHDocVw」の意味
-
Excel VBA でPictureBoxオブジ...
おすすめ情報