Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5875 / 9994

←次へ　｜　前へ→


	【7331】Excelに改ページを挿入したい

nn - 06/2/20(月) 19:55 -


	引用なし

	パスワード

よろしくお願いします。

AccessからExcelを起動し、あるページに改ページを挿入しようとしています。
（改ページを挿入というか、そのシートすべてを１ページにいれようとしている）

以下のようなコードをExcelのVBAで作成し、それをAccess用に直そうとしているのですが、
Excelで動くコードをAccessから動かすことができません。
「オートメーションエラー」
と表示されます。

どのようにすればよいのか、ご存知でしたら教えてください。

Set Ex = CreateObject("Excel.Application")
Set exNWBOOK = Ex.WorkBooks.Open "D:\test.xls"

'改ページを挿入
With exNWBOOK.Worksheets(1)
　　　　.PageSetup.PrintArea = ""
　　　　
　　　　'↓ココが動かない　
　　　　For Each vPgBreak In .VPageBreaksf
　　　　　　vPgBreak.DragOff Direction:=xlToRight, RegionIndex:=1
　　　　Next
　　　　
　　　　For Each hPgBreak In .HPageBreaks
　　　　　　hPgBreak.DragOff Direction:=xlDown, RegionIndex:=1
　　　　Next
End With

Win Xp SP1
Office 2003

1,229 hits

▼

【7331】Excelに改ページを挿入したい nn 06/2/20(月) 19:55

≪