看下我是如何实现导入一个没被打开的.xls文件的数据到打开的工作簿中的！

pan1255 · 发表于 2010-9-15 19:23

方法如下，就是录制宏

大家别笑话啊。我在坛子里问了两天都没人回复我，只得自己想了个笨办法了。代码如下：
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
详细请看附件哈！望高手指点一下哈！

liuyan819 · 发表于 2010-9-15 19:35

你想要实现什么结果模拟出来!

pan1255 · 发表于 2010-9-15 19:37

附件里面有啊，请高手指点一下

liuyan819 · 发表于 2010-9-15 19:58

你就是想在不打开"我想被导入"这个工作薄的情况下,导入你里面的数据?

liuyan819 · 发表于 2010-9-15 20:04

自己要修改一下路径!

pan1255 · 发表于 2010-9-15 20:10

先谢谢，再下载！

phqwf · 发表于 2010-9-15 20:12

但是我想你就是想得到一个文件，这个该不难吧。

secowu · 发表于 2010-9-15 20:28

支持被导入。。。。。。。

phqwf · 发表于 2010-9-15 20:41

Sub Macro1()
'
' Macro1 Macro
' 宏由 User 录制，时间: 2010-9-15
Application.ScreenUpdating = False
Dim Filename As String
Filename = Application.GetOpenFilename
Workbooks.Open Filename
ThisWorkbook.Sheets(1).Range("b1") = ActiveWorkbook.Sheets(1).Range("a2")
ActiveWorkbook.Close
Application.ScreenUpdating = True

'
End Sub

liuyan819 · 发表于 2010-9-15 20:43

不会,还叫不难

		自动登录	找回密码
密码			免费注册

[原创] 看下我是如何实现导入一个没被打开的.xls文件的数据到打开的工作簿中的！

回复 3楼 pan1255 的帖子

我不会

看看这个

回复 7楼 phqwf 的帖子