请教各位高手:vb6.0 对excel 操作的问题.谢谢。
Dim xlApp, xlBook, xlSheetPrivate 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语句呢?
用VB6.0操作Excel.zip
(5.53 KB)
[此贴子已经被作者于2016-3-14 10:23编辑过]