投稿日 | : 2005/02/09(Wed) 21:39 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: 既存Excelファイルの印刷 |
> 以下コードです。(ほぼそのままですが)
ほぼそのままが気になりますが、サンプルのその1をそのまま実行しても
同じでしょうか?
参照設定は何に入ってますか?
投稿されたコードは実際に使っている部分をコピーしたものですか?
> 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