Question

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

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

问题是：

我不希望隐藏我的表单，因为我希望用户能够打开多张表
打开的工作表无法激活。

这是我的代码：

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

Answer 1

这是一种快速完成你所说过你想做的事情的方法。它可能不是最好的方式，但你应该能够将它放入并运行它：

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应用程序窗口中打开工作表。

从表单中打开excel表

1 个答案: