VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/10/02(Thu) 21:16 |
| 投稿者 | ： しんや |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： エクセルの印刷エラー |
エクセルをＶＢで印刷しようとしてます。
以下のソースで★のところでエラーになります。
もう八方ふさがりです。
アドバイスしていただけないでしょうか？
Sub hogehoge()
Dim myExcel As Workbook 'エクセルのブックオブジェクトへの参照を格納する変数
Dim myFileName As String '目的のファイルの名前
Dim mySheetName As String '目的のシートの名前
myFileName = "C:\test.xls"
mySheetName = "sheet1"
★ Set myExcel = GetObject(myFileName, "Excel.Sheet")
With myExcel
.Worksheets(mySheetName).PrintOut
.Application.Quit
End With
Set myExcel = Nothing
End Sub
★のところで
実行時エラー '-2147417851y:
オートメーションエラーです。
サーバーによって例外が返されました。
というエラーがでます。
お願いします。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）