如何从用户窗体打开文件，并打开用户窗体来修改它

我有一个用户窗体，checkbox，文本框和常用的东西，其中包括一个我想用来打开excel spredsheet的button。 这很容易做到：

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

虽然这样做，文件无法工作; 换句话说，它是不活跃的。 from是活动的，直到表单closures或取消，文件被locking。 我把它称为locking，因为缺乏更好的描述。

如果我使窗体无模式，表单中的所有字段都会释放它们的function，除了button外，至less我可以在打开的电子表格中工作。

 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"