首先你先建好模板存为:xlt,假设为book2.xlt放在了C盘下
sub a()
Sheets("Sheet1").Select
Sheets.Add Type:= _
"C:book2.XLT"
Sheets("Sheet1").Select
Range("B6").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'Sheet1 (2)'!A1", TextToDisplay:="'Sheet1 (2)'!A1"
end sub
你想办法修改B6,然后实现转移!