空のExcelファイルと判断するには？

解決

ぺそみ 2007-03-24 00:58:57 No: 135852

いつもお世話になっております。

開発環境は
・Windows XP
・VB6.0(SP6)
です。

内容が空のExcelシートを印刷すると「印刷するものがありません」と表示されますが、
Vbなどでエクセルシートの内容が空であることを判断することはできないのでしょうか？

ご存じの方がおいででしたら、ご教授お願い致します。

matsu 2007-03-24 02:50:30 No: 135853

Dim objExcel As Object

Set objExcel = CreateObject("Excel.Application")
Call objExcel.Workbooks.Add

objExcel.Visible = True
MsgBox objExcel.ExecuteExcel4Macro("GET.DOCUMENT(50)")
Set objExcel = Nothing

他に方法があるのかもしれませんが、こんな感じでしょうか？
ExecuteExcel4Macro("GET.DOCUMENT(50)")で取得できます。
Excel2000がインストールされている状態で確認しました。

ぺそみ 2007-03-26 18:41:16 No: 135854

matsuさん、ありがとうございます！！

ご教授頂いた通りに行った所、正常に動作しました。
本当にありがとうございました。

ぺそみ 2007-03-27 18:20:12 No: 135855

"解決"としたのですが、
ExcelがインストールされていないPCで動作する事が想定される事を忘れておりました。
申し訳ございません。

マクロを使用せずに判断する方法をご存じの方がおいでましたら
再度、ご教授お願い致します。

KG 2007-03-28 03:24:19 No: 135856

ExcelがインストールされていないPCでExcelの印刷はできないので、
判断できないと思いますよ。