1

我有一个带有宏的活动工作簿，它必须打开另外两个工作簿并将其设为活动工作簿。但包含宏的工作簿仍为活动工作簿。请帮忙。

With myFile
.Title = "Choose File"
.AllowMultiSelect = False
If .Show <> -1 Then
Exit Sub
End If
SF = .SelectedItems(1)
SF = Application.GetOpenFilename(SF)
MsgBox SF

Workbooks.Open Filename:=(SF)



wb1 = ActiveWorkbook.FullName
MsgBox "SF" & SF
MsgBox "WB1" & wb1

WB1 显示包含宏的工作簿的路径。非 SF（从 openfile 对话框中选择的源文件）

此外，下面的代码是否正确？

For Rw = 4 To DF.Sheet1.UsedRange.Rows.Count
For Rw1 = 3 To SF.Sheet1.UsedRange.Rows.Count
If df.Sheet1.Cells(Rw, 1).Value = sf.Sheet1.Cells(Rw, 53).Value Then

提前致谢

4

1 回答 1

1

您需要关联您打开的工作簿，object variable以便更轻松地引用代码中的每个工作簿。所以，而不是这一行：

Workbooks.Open Filename:=(SF)

试试这个解决方案：

Dim openWB as Workbook
Set openWB = Workbooks.Open(SF)
'and to activate it somewhere in your code you will need the following line:
openWB.Activate

请记住，当时只有一个工作簿可以处于活动状态。

如果您需要使用其他工作簿，您可以再次添加类似的代码，但为此使用新变量（比如Dim openWBNext as workbook等等......）

你问题的第二部分......你的代码不正确。但是在您object variables按照我上面介绍的方式申请之后，您可以使用以下结构：

For Rw1 = 3 To openWB.Sheet1.UsedRange.Rows.Count
If openWBNext.Sheet1.Cells(Rw, 1).Value = openWB.Sheet1.Cells(Rw, 53).Value Then
于 2013-10-26T10:46:53.427 回答