如何引用我的主工作簿和通过此子过程打开的第二个工作簿?我尝试做workbooks.("client_path").activate
因为我使用这个宏的目标是打开一个单独的工作簿,该工作簿被分配给变量client_path
并将 A:A 列中的每个(1 到 200)值与我的主工作簿的 K:K 列中的所有值进行协调。如果在client_path
工作簿(同样是 A:A 列),但不在我的主要工作簿上(同样是 K:K 列) - 我想将唯一值添加到我的主要工作簿的 M:M 列中。相反的逻辑,我希望在我的主要工作簿上找到但在我的工作簿上找不到的任何值client_path
工作簿出现在我的主工作簿的 N:N 列中。
我正在开发此代码的主要工作簿的名称是标题“Client DIRTY watchlist”工作簿的内容client_path
每天更新,随着时间的推移就没用了。
我是否需要创建一个函数来完成此可变工作簿引用?
Sub Client_Dirty_Recon()
Dim Client_path As String
Dim Client_watchlist As Workbook
Dim Client_client_email As Workbook
Set Client_watchlist = ActiveWorkbook
Dim email_range As Range
Dim watchlist_range As Range
Application.ScreenUpdatClient = False
Client_path = Range("Path")
Workbooks.Open Client_path
Dim recon_list As Range
'For Each n In recon_list:
Dim i As Variant
For i = 1 To 200
Set email_range = ActiveWorkbook.ActiveSheet.Range("A" & i)
Dim b As Variant
For Each b In email_range
Set watchlist_range = Sheets("Client DIRTY watchlist").Range("B:B")
'if b
Next b
Next i
End Sub
你能早点参考一下你的工作簿吗?
Dim wb as workbook
Dim wbDirty as workbook
set wb = thisWorkbook
set wbDirty = workbooks.open Client_Path
然后,当您定义范围时,Excel 知道它们属于哪个工作簿。
Dim rngReconcile as range
Dim rngWatch as range
set rngReconcile = wb.Sheets(1).Range("K:K")
set rngWatch = wbDirty.Sheets("Client DIRTY watchlist").Range("B:B")
然后继续循环代码
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)