VB6如何控制当前打开的EXCEL的工作簿间的切换?

Question

VB6如何控制当前打开的EXCEL的工作簿间的切换?
EXCEL文件一直打开着,我现在想实现这样的功能:每隔10秒把当前页面在Sheet1和Sheet2之间切换,请问能用VB6做到吗?

Answer 1

'增加一个列表框 List1 以下代码在窗体中
'运行后,注意运行后让Excel为背景窗口.即不要让别的窗口盖住Excel.当然,此运行的窗口除外,不然看不到效果.
  Dim xlApp As Object
Private Sub Form_Load()  Set xlApp = GetObject(, "Excel.Application")
  For i = 1 To xlApp.Workbooks.Count
    List1.AddItem xlApp.Workbooks(i).Name
  Next
End SubPrivate Sub List1_Click()
  xlApp.Workbooks(List1.Text).Activate
End Sub

Answer 2

'接上.你要先打开Excel才能正常运行.
'建议多打开几个Excel以观看使用效果

Answer 3

'再来一个.
'增加二个列表框 List1  List2  以下代码在窗体中
'运行后,注意运行后让Excel为背景窗口.即不要让别的窗口盖住Excel.当然,此运行的窗口除外,不然看不到效果.
  Dim xlApp As Object
Private Sub Form_Load()
On Error Resume Next
  Set xlApp = GetObject(, "Excel.Application")
If Err Then
  MsgBox "要先打开Excel"
  Exit Sub
End If
  
  For i = 1 To xlApp.Workbooks.Count
    List1.AddItem xlApp.Workbooks(i).Name
  Next
End SubPrivate Sub List1_Click()
  xlApp.Workbooks(List1.Text).Activate
  List2.Clear
  For i = 1 To xlApp.Workbooks(List1.Text).worksheets.Count
     List2.AddItem xlApp.Workbooks(List1.Text).worksheets(i).Name
  Next
End Sub
Private Sub List2_Click()
 xlApp.Workbooks(List1.Text).worksheets(List2.Text).Activate
End Sub