投稿日	： 2005/02/09(Wed) 21:39
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: 既存Excelファイルの印刷

> 以下コードです。（ほぼそのままですが）
ほぼそのままが気になりますが、サンプルのその１をそのまま実行しても
同じでしょうか？

参照設定は何に入ってますか？
投稿されたコードは実際に使っている部分をコピーしたものですか？

> 　　On Error Resume Next
正常にどうさするまで上記はコメントアウトしておいて下さい。


下記を試しても同様にエラーがでますか？
Private Sub Command1_Click()
    Dim xlApp    As Excel.Application
    Dim xlBook   As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\Test.xls")
    Set xlSheet = xlBook.Worksheets(1)
    xlApp.Visible = True
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub

★ - 既存Excelファイルの印刷 - アイ 02/09-20:45No.2065
• Re: 既存Excelファイルの印刷 - 花ちゃん 02/09-21:39 No.2066
  • Re^2: 既存Excelファイルの印刷 - アイ 02/10-09:49 No.2074
• Re: 既存Excelファイルの印刷 - 魔界の仮面弁士 02/10-15:44 No.2078
  • Re^2: 既存Excelファイルの印刷 - アイ 02/10-20:23 No.2083
    • Re^3: 既存Excelファイルの印刷 - アイ 02/11-16:38 No.2084
      • Re^4: 既存Excelファイルの印刷 - 花ちゃん 02/12-09:08 No.2085
        • Re^5: 既存Excelファイルの印刷 - Wendy 02/14-02:45 No.2098
          • Re^6: 既存Excelファイルの印刷 - アイ 02/14-12:45 No.2106
            • Re^7: 既存Excelファイルの印刷 - Wendy 02/14-14:21 No.2108
              • Re^8: 既存Excel・・・ - アイ 02/14-20:44 No.2122
                • Re^9: 既存Excel・・・ - 花ちゃん 02/14-21:44 No.2123
                  • Re^10: 既存Excel・・・ - アイ 02/15-07:55 No.2129
                    • Re:既存Excel - 花ちゃん 02/15-08:58 No.2131
                      • Re^12: 既存Excelファイルの印刷 - アイ 02/15-11:05 No.2137
                • Re: 既存Excelファイルの印刷 - K.J.K. 02/15-10:49 No.2136
        • Re^5: 既存Excelファイルの印刷 - アイ 02/14-12:28 No.2105