Question

VB操作已经事先打开的excel

如题：我已经用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

Answer 1

Dim xlApp As Object '定义EXCEL类
Dim xlBook As Object '定义工件簿类
Dim xlsheet As Object '定义工作表类

放在函数外面，做全局定义
public xlApp As Object
public xlBook As Object
public xlsheet As Object
当你上面的函数执行正确以后，
在其他地方调用 xlsheet 的时候，就是Worksheets("sheet1") 了

Answer 2

将如下段放在最前面，做公用全局声明
Dim xlApp As Object '定义EXCEL类
Dim xlBook As Object '定义工件簿类
Dim xlsheet As Object '定义工作表类