
お世話になっております。
ご存知の方がいらっしゃいましたら、お手数ですがご教授願えますでしょうか?
AccessからデータをExcelへエクスポートした際、
印刷範囲の指定を行いたいのですが、うまくいきません。
データを指定したセルにセットした後、
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$30"
と指定しているのですが、
「オブジェクト変数またはWithブロック変数が設定されていません」
とエラーが出てしまいます。
オブジェクトブラウザで確認すると、
ActiveSheetはExcel.Globalのメンバとなっていますが、
Excel.Globalから書き込んでも同じエラーが出てしまいます。
もしかしてAccess上ではExcelの印刷範囲は指定できないのでしょうか?
お手数ですが宜しくお願いいたします。
No.1ベストアンサー
- 回答日時:
GetObject関数
http://officetanaka.net/excel/vba/function/GetOb …
を参考に
Dim xlapp As Object
Set xlapp = GetObject(, "Excel.Application")
xlapp.ActiveSheet.PageSetup.PrintArea = "$A$1:$I$30"
とかかな?(自信ないですけど)
Dim xlapp As Object
・
・
・
Set xlapp = GetObject(, "Excel.Application")
xlapp.ActiveSheet.PageSetup.PrintArea = "$A$1:$I$30"
と記述したところ、無事に印刷範囲が設定できました。
Setしていなかったのと、Objectを宣言していなかったのが原因だったんですね(汗
ありがとうございました!
No.2
- 回答日時:
この質問は内容的にはエクセルVBAの質問か。
実行はエクセルからではなくアクセスVBAからか。「アクセス上では(エクセルの操作が出来ない・)」と言う表現は無いのでは。
ーー
Googleで「オブジェクト変数またはwithブロック変数が設定されていません excel」で照会すればたくさん記事が出ます。どれに当たるか調べてください。
ActiveSheetを臨時に、Worksheets(”XXX”)と具体名を入れて指定し、実行してうまく行きませんか。もし旨く行けばエラーはこの表現にかかわるものでしょう
この回答への補足
説明が足りませんでした。すみませんでした。
>AccessからデータをExcelへエクスポートした際、
>印刷範囲の指定を行いたいのですが、うまくいきません。
>データを指定したセルにセットした後、
>ActiveSheet.PageSetup.PrintArea = "$A$1:$I$30"
>と指定しているのですが、
と記述したのですが、わかりづらかったでしょうか?
一応VBAのコードを書いたので、アクセス上というのは
「ACCESS VBA上では・・・」という意味だったのですが・・・。
n-junさんのコードを記述したところ、無事印刷範囲が設定できました。
imogasiさんもご教授頂きありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ACCESSのVBAにてExcelに行を追加したい
その他(データベース)
-
AccessでExcelファイルを印刷
Excel(エクセル)
-
アクセスでエクセルに出力
Access(アクセス)
-
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
ACCESSのVBで、エクセルファイルの最終行を取得
Excel(エクセル)
-
6
AccessVBAでExcelを起動し、罫線を引きたいのですが、Exc
Visual Basic(VBA)
-
7
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
8
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
9
Accessでフォームから別フォームのテキストボックスの値を設定する
Visual Basic(VBA)
-
10
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
11
accessデータを指定したExcel、そして指定したセルへエクスポートするaccess VBAコー
Access(アクセス)
-
12
access2021 VBA メソッドまたはデータメンバーが見つかりません エラー発生
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【関数】3つのセルの中で最新...
-
LibreOffice Clalc(またはエク...
-
【マクロ】数式を入力したい。...
-
【マクロ】excelファイルを開く...
-
エクセルの関数について
-
【マクロ】変数に入れるコード...
-
エクセルのリストについて
-
【マクロ】左のブックと右のブ...
-
【マクロ】【相談】Excelブック...
-
【マクロ】実行時エラー '424':...
-
エクセルのVBAで集計をしたい
-
【マクロ】元データと同じお客...
-
Office2021のエクセルで米国株...
-
【マクロ】【配列】3つのシー...
-
【画像あり】オートフィルター...
-
vba テキストボックスとリフト...
-
他のシートの検索
-
【マクロ画像あり】❶1つの条件...
-
エクセルの複雑なシフト表から...
-
【関数】=EXACT(a1,b1) a1とb1...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】元データと同じお客...
-
エクセルの関数について
-
【画像あり】オートフィルター...
-
エクセルのVBAで集計をしたい
-
エクセルのリストについて
-
【マクロ】数式を入力したい。...
-
【マクロ】【相談】Excelブック...
-
Office2021のエクセルで米国株...
-
【マクロ】実行時エラー '424':...
-
他のシートの検索
-
エクセルの複雑なシフト表から...
-
【マクロ】【配列】3つのシー...
-
vba テキストボックスとリフト...
-
【マクロ】左のブックと右のブ...
-
【マクロ】変数に入れるコード...
-
エクセルシートの見出しの文字...
-
【マクロ】別ファイルへマクロ...
-
【関数】同じ関数なのに、エラ...
-
Amazonでマイクロソフトオフィ...
-
ページが変なふうに切れる
おすすめ情報