如何从用户窗体打开文件并在打开用户窗体的情况下对其进行修改

Question

我有一个带有复选框，文本字段和正常常用内容的用户表单，包括我想用来打开excel spredsheet的按钮。这很容易做到：

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

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

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

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"