用.Add替换.Open

Question

将热键宏从 Ctrl + L 更改为 Ctrl + Shift + L 并更改＆＃39; 打开＆＃39;到＆＃39; 添加＆＃39;因为＆＃39; 打开＆＃39;导致宏在新工作簿打开后停止。被告知＆＃39; 添加＆＃39;不会这样做。但是，由于所需的文件规范包含在一个单元格中，显然＆＃39; 添加＆＃39;并不喜欢相同的论点＆＃39; 打开＆＃39;已经接受了。

实施例

Workbooks.Open Filename:=(sheets(1).Range("w6").TEXT) - - Works

Workbooks.Add filename:=(sheets(1).Range("w6").TEXT)  - - Doesn't work

VB说＆＃34; 未找到命名参数＆＃34;。

无法在Walkenbach的书中找到补充内容或帮助。

添加＆＃39;需要适当的背景/参数。

Answer 1

试试这个

Sub Sample()
    Dim thisWb As Workbook, newWb As Workbook

    Set thisWb = ThisWorkbook

    Set newWb = Workbooks.Add(thisWb.Sheets(1).Range("W6").Value)
End Sub

要了解它是如何工作的，请参阅Excel帮助:)。你可以按魔术键 F1

来做到这一点