|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
方法如下,就是录制宏 大家别笑话啊。我在坛子里问了两天都没人回复我,只得自己想了个笨办法了。代码如下:
Sub DRWJ()
Range("A1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="我想被导入.xls", _
TextToDisplay:="我想被导入.xls"
Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Columns("A:A").Select
Selection.Copy
Windows("问题.xls").Activate
Columns("A:A").Select
ActiveSheet.Paste
Windows("我想被导入.xls").Activate
Application.CutCopyMode = False
ActiveWindow.Close
End Sub
详细请看附件哈!望高手指点一下哈! |
|