vba - 如何从用户表单打开文件并在用户表单打开的情况下对其进行修改

Question

我有一个用户表单，上面有复选框、文本字段和正常的常规内容，包括一个我想用来打开 Excel 电子表格的按钮。这很容易做到：

Private Sub CMB2_Click()
    Workbooks.Open Filename:="G:\Formular.xlsm"
End Sub

但是，执行此操作时，无法处理该文件；换句话说，它不活跃。发件人处于活动状态，并且在关闭或取消表单之前，文件被锁定。由于缺乏更好的描述，我称之为锁定。

如果我使表单无模式，表单中的所有字段都会失去其功能，除了按钮，但至少我可以在打开的电子表格中工作。

UserForm1.Show vbModeless

我怎样才能得到两者？我想在打开的电子表格中工作，并在完成后继续处理表单。

Answer 1

您必须在新的 excel 实例中打开其他文件。以下代码将为您执行此操作

Dim xlApp as Excel.Application
set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.Workbooks.Open FileName:="G:\Formular.xlsm"