Vba 设置wbkDest.工作表(“xxxxxxx”)以反映范围
我有一个生成页面/页面名称的工作簿。工作表名称始终反映作业编号。作业编号也始终显示在单元格A1中 我想复制另一本书中的数据,并将其粘贴回此工作表,但我需要将目标指向我要粘贴数据的页面 我的问题是我不能说wbkDest.Worksheets(“sheet1”)。 我需要说一些类似于wbk.Dest.Worksheets(范围(“a1”).value) 同样,请使用与触发宏的工作簿中的单元格A1相同的名称粘贴到工作表中Vba 设置wbkDest.工作表(“xxxxxxx”)以反映范围,vba,excel,Vba,Excel,我有一个生成页面/页面名称的工作簿。工作表名称始终反映作业编号。作业编号也始终显示在单元格A1中 我想复制另一本书中的数据,并将其粘贴回此工作表,但我需要将目标指向我要粘贴数据的页面 我的问题是我不能说wbkDest.Worksheets(“sheet1”)。 我需要说一些类似于wbk.Dest.Worksheets(范围(“a1”).value) 同样,请使用与触发宏的工作簿中的单元格A1相同的名称粘贴到工作表中 sub import() Dim wbkSrc As Workbook,
sub import()
Dim wbkSrc As Workbook, wbkDest As Workbook
Dim myFile As String
Dim Path As String
Dim emptyRow As Long
Dim wsOrig As Worksheet
Set wsOrig = ThisWorkbook.Worksheets(1)
emptyRow = 1
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wbkDest = Workbooks("lathe_project6-1-2017.xlsm")
Path = "G:\FIXTURES\" & Range("A1").Value & "\lists\new folder\"
myFile = Dir(Path & "*.xls??")
Set wbkSrc = Workbooks.Open(Path & myFile)
wbkSrc.Worksheets(1).Range("A1:I100").Copy
wbkDest.Worksheets(wsOrig.Range("A1").Value).Cells(emptyRow, 1).PasteSpecial Paste:=xlPasteValues
wbkSrc.Close
End Sub
这不管用:
Dim wskVariableSheet as worksheet
Set wskVariableSheet = wbkDest.Sheets(Range("a1").Value)
然后只需参考要粘贴的
wskVariableSheet.range
。因此新创建的工作表中的单元格A1与该工作表的名称匹配??是。项目启动时,经理在第一个启动页中输入工作编号。一旦输入,它将根据模板生成一个页面,并将作业编号作为图纸标题。当我试图在一开始就得到一个编译错误时,作业号也会被放在A1中。@mystic_muffin如果你在问题中粘贴更多的代码,它可能会很有用。Maaajo的代码应该没有任何问题,所以也许你把它放到了错误的地方-问题中包含了更多的代码,这将更容易准确地解释你需要更改的内容。将它添加到我的原始帖子中。