关于上午EXCEL的VBA.AppActivate的代码。

Question

代码要写成，VBA.AppActivate "Microsoft Excel"，才能激活。而大家给的是。xl.Workbooks(1).Name 激活，我这里不行，不知道为什么会这样。MSDN举例是VBA.AppActivate "Microsoft Excel"，
Dim cnn As New ADODB.Connection
Private Sub Command1_Click()
Dim xl As Excel.Application'On Error Resume Next
  Set xl = GetObject(, "excel.application")
  If xl Is Nothing Then MsgBox "没有Excel运行": Exit Sub
  If xl.ActiveWorkbook.Name <> 工作簿.Text And 工作簿.Text <> "" Then MsgBox "当前工作表不是指定，请修改": Exit Sub  VBA.AppActivate "Microsoft Excel"   ----xl.Workbooks(1).Name   工作表.Text = xl.ActiveSheet.Name
    单元格.Text = xl.InputBox(prompt:="Select a cell", Type:=8).Address
    工作簿.Text = xl.ActiveWorkbook.NameEnd Sub

Answer 1

要知道其所以然，AppActivate 后面的参数是指要激活的窗口的标题

Answer 2

不知道咋的，我这边家里机器是窗口标题，FORM1都行，就是EXCEL必须Microsoft Excel才能激活。

Answer 3

而且按照MSDN说法。。EXCEL窗口标题应该是。Microsoft Excel-工作薄名称。

Answer 4

刚找到答案了。。
xls和XLSX的区别。
如果你是高版本兼容低版本，那么工作表名称就会是。。test.xls(兼容版本）
而test.xlsx就能够正常使用。。你可以试试呢。

Answer 5

我觉得xlsx挺讨厌的....遇到过类似问题的人飘过