如题:我已经用COMMAND1打开一个已经存在的EXCEL,
我如何用第二个command2按钮对其进行操作
第一步是成功的,第二步提示:对像变量或 with块变量末设置
请问如何在第二步中重新把excel设置为当前操作的
Private Sub Command1_Click()
Dim xlApp As Object '定义EXCEL类
Dim xlBook As Object '定义工件簿类
Dim xlsheet As Object '定义工作表类
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName:="s:\" & djyear & "\" & optioncaption & Form9.Text24.Text & djxx & ".ys") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True
xlBook.RunAutoMacros (xlAutoClose)
Set xlsheet = xlBook.Worksheets("sheet1") '设置活动工作表
End Sub
Private Sub Command2_Click()
text1.text=xlSheet.Cells(6, 34).Value
end sub