Dim xlApp, xlBook, xlSheet

Private Sub Command1_Click()'按钮1
   Set xlApp = CreateObject("Excel.Application")
   Set xlBook = xlApp.Workbooks.Add
   Set xlSheet = xlBook.sheets(1)
   xlApp.Visible = True
End Sub

Private Sub Command2_Click()'按钮2
    If xlSheet = "" Then
       MsgBox "no"
      End
    else
       xlSheet.range("a1") = 1
     End If
End Sub
以上的按钮2代码，如果变为附件的按钮2的代码，则先点击附件的按钮2时，不会出错；如果先点击附件的按钮1，再点击附件的按钮2时，则红色的代码出错。
如何改红色的代码，使之知道 Set xlSheet = xlBook.sheets(1)而不出错，从而执行 xlSheet.range("a1") = 1语句呢？

[此贴子已经被作者于2016-3-14 10:23编辑过]

Private Sub Command1_Click() '按钮1
   Set xlApp = CreateObject("Excel.Application")
   Set xlBook = xlApp.Workbooks.Add
   Set xlSheet = xlBook.Sheets(1)
   xlApp.Visible = True
End Sub

Private Sub Command2_Click() '按钮2
If IsEmpty(xlSheet) <> True Then'判断是否打开
  If xlSheet.UsedRange.Rows.Count = 1 Then'判断是否空表
    If xlSheet.UsedRange.Columns.Count = 1 Then
      If xlSheet.UsedRange.Cells(1, 1) = "" Then
        MsgBox "空表格"
      Else
        xlSheet.range("a1") = 1
      End If
    End If
  End If
Else
  MsgBox "表格不存在"
End If
End Sub

收到的鲜花

• HVB6 于 2016-03-14 11:28 送鲜花  5朵   附言：我很赞同