Excelで中身が空の場合の印刷について (ID:90090)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 開発環境：Windows 2000 ：Visual Basic 6.0 ：Excel 2000 以下のサンプルソースで、”Book1.xls”の中身が空の場合 印刷されず処理が終了します。 xlSheet.UsedRange.Cells.Address を使い戻り値が""なら 中身が空だと判断できると、どこかで書いてあったのですが "$A$1"が返ってきてしまい、判断できません。 どなたか、ご教授お願いします。 Private Sub Command1_Click() Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim strFileName As String strFileName = "C:\Book1.xls" Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(strFileName) Set xlSheet = xlBook.Worksheets(1) If MsgBox("印刷して宜しいですか？", vbQuestion + vbYesNo) = vbYes Then If xlSheet.UsedRange.Cells.Address <> "" Then xlBook.PrintOut Else xlSheet.Range("A1") = "データが空です。" xlBook.PrintOut End If End If xlBook.Close Set xlBook = Nothing Set xlApp = Nothing End Sub