从variables工作簿中减去一个工作表

需要你帮我的macros

我尝试从2个不同的工作簿中查找。 我的工作手册1将根据date每天更改名称。 我已经得到了这一部分。 现在我坚持如何调整variables工作簿以在vlookup公式中使用。 在这里我的代码我想昏暗的OCBReport。

Sub Part_ETA_PLANNER() ' 'Part ETA PLANNER Macro ' ' 'Find OCB PLanner Today Dim OCBDaily As Workbook Dim t As Workbook For Each t In Workbooks If Left(t.Name, 11) = "OCB_Report_" Then Set OCBDaily = Workbooks(t.Name) End If Next t 'Variable Dim Dim PartNumber, myRange As Long Dim OCBReport As Sheets Set OCBReport = "[ & OCBDaily & ]OCB" ' I got error on this part' PartNumber = Range("L2").Offset(0, -10).Address(0, 0) myRange = "'" & OCBReport & "'!C:W" 'Vlookup Part ETA planner Dim LastRow As Long LastRow = Sheets("Unfulfilled Daily Report").Range("E" & Rows.Count).End(xlUp).Row Sheets("Unfulfilled Daily Report").Range("L2").Formula = "=VLOOKUP(" & PartNumber & "," & myRange & ", 21, FALSE)" Sheets("Unfulfilled Daily Report").Range("L2").AutoFill Destination:=Range("L2:L" & LastRow) Sheets("Unfulfilled Daily Report").Range("L2:L" & LastRow).Copy Sheets("Unfulfilled Daily Report").Range("L2:L" & LastRow).PasteSpecial xlPasteValues Range("B2").Select End Sub 

Answer 1

你需要的是一个Stringvariables。 另外如果你把一个variables放在引号内，那么它的行为就像一个string。 另外OCBDaily.Name会给你的工作簿名称，你可以在"[]"

更改

 Dim OCBReport As Sheets Set OCBReport = "[ & OCBDaily & ]OCB" ' I got error on this part' 

至

 Dim OCBReport As String OCBReport = "[" & OCBDaily.Name & "]OCB" 

Answer 2

如果我正确理解了代码的一部分，则需要将其更改为：

 Set OCBReport = OCBDaily.worksheets("OCB") 

你的尝试试图将表单variables设置为一个string，这应该给出一个types错误。 “OCB”应该是通缉工作表的名称。

问候，克罗西