こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

実行時エラー91について

vbでエクセルにデータを入力したあと、2つのシートを選択し、
その後に両面印刷を行うプログラムを作成中ですが、
印刷の段階で
「実行時エラー91。オブジェクト変数または with ブロック変数が設定されていません。」
とのエラーがでます。
どの部分がおかしいのかわからないので教えて下さい。

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlSheet2 As Excel.Worksheet

Dim xlFile As String
xlFile = App.Path & "表.xls"

Dim MyFile As String
MyFile = Dir$("表.xls")
If Len(MyFile) > 1 Then

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(xlFile)
Set xlSheet = xlBook.Worksheets("裏")
Set xlSheet2 = xlBook.Worksheets("表")
xlApp.Visible = True
a1 = Label47.Caption
a1 = Format(a1, "#,#")
a2 = Label48.Caption
m = a1 & "及び" & a2 & "とする。"

For k = 1 To 18
s = Mid(m, k, 1)
i = 8 + (k - 1) * 2
xlSheet.Cells(40, i).Value = s
Next k

Set xlSheet2 = xlBook.Worksheets("表")
xlSheet2.Cells(4, 2).Value = Text11.Text
xlSheet2.Cells(4, 10).Value = Text12.Text
xlSheet2.Cells(4, 19).Value = Text13.Text

xlBook.Sheets(Array("表", "裏")).Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ←ここでエラー
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing
Set xlSheet2 = Nothing

投稿日時 - 2011-03-03 21:34:41

QNo.6565720

困ってます

質問者が選んだベストアンサー

xlApp.ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
では?

投稿日時 - 2011-03-03 23:18:58

お礼

お陰様でエラーが出なくなりました。
ありがとうございます。

投稿日時 - 2011-03-04 03:45:01

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問