-1

我制作了一个带有几个命令按钮的表单，这些按钮可以打开具体的工作表。问题是当我从命令按钮打开一个 excel 文件时，如果表单没有隐藏，那么我无法点击打开的文件（它未激活）

即使我隐藏了表单，我也需要从任务栏中手动转到该文件，它不会被激活。

问题是：

  1. 我不希望我的表单被隐藏，因为我希望用户能够打开多个工作表
  2. 打开的工作表没有被激活。

这是我的代码：

Private Sub CommandButton1_Click()
    Dim Wb As Excel.Workbook
    Set Wb = Workbooks.Open(Filename:="D:/power system design/foo.xlsx", ReadOnly:=False)
    UserForm1.Hide
    Wb.Activate
    Wb.Sheets("Sheet1").Cells(1, 1).Select
End Sub
4

1 回答 1

2

这是完成您所说的想要完成的事情的快速方法。这可能不是最好的方法，但您应该能够将其放入并使用它运行：

Private Sub CommandButton1_Click()
    Dim xls As Excel.Application
    set xls = new Excel.Application
    xls.Workbooks.Open "D:/power system design/foo.xlsx", ,False
    xls.Visible = true
End Sub

或者如果您想使用打开的工作簿

Private Sub CommandButton1_Click()
    Dim xls As Excel.Application
    Dim wb as Excel.Workbook
    set xls = new Excel.Application
    set wb = xls.Workbooks.Open(Filename:="D:/power system design/foo.xlsx", ReadOnly:=False)
    xls.Visible = true
End Sub

这将导致工作表在新的 Excel 应用程序窗口中打开。

于 2013-05-30T18:10:14.047 回答