[已解决]怎样实现跨工作簿引用，求大侠赐教！

moyiyingbiy · 发表于 2013-8-26 08:25

单号时间
13071907
13071908
13071909

在一个文件夹里有很多以单号命名的excel工作簿，怎样可以用VBA或者函数在不打开工作簿前提下
快速找出对应的时间。时间都在对应工作簿的sheet1的A2单元格。
跪求指教啊，因为是跨工作簿引用，我实在想不出怎样可以实现动态引用数据了
用函数在不打开工作簿情况下，难以实现。
可不可以编一个程序，
先打开指定表，复制，选择性粘贴
关闭指定表
并且建立循环，重复十多个这样的操作
单元格：234567
工作簿名是234567
这样可以吗？
可不可以帮我问问这个代码怎么编写？

最佳答案

月排行榜 / 总排行榜

无聊的疯子

2013-8-26 14:56

moyiyingbiy 发表于 2013-8-26 14:13
这是附件

将这个工作薄解压放到你原来的位置，运行里面的 cc 过程就行了

主表.zip (12.18 KB, 下载次数: 208)

moyiyingbiy · 发表于 2013-8-26 08:28

是要根据单元格得出指定工作簿并且打开

sliang28 · 发表于 2013-8-26 08:36

重复发帖啊！你没有附件，所以没人帮你做。

hulingy1 · 发表于 2013-8-26 09:20

moyiyingbiy · 发表于 2013-8-26 14:13

这是附件

无聊的疯子 · 发表于 2013-8-26 14:55

moyiyingbiy 发表于 2013-8-26 14:13
这是附件

你的附件中有病毒代码，自己想办法解决吧，论坛里有很多关于杀这种病毒的方法的

Sub cc()
Dim ExApp As New Excel.Application '声明一个新的 Excel程序
Dim Pat As String, PatName As String
Dim NBook As Workbook
Dim Hx As Integer
With ExApp
.Visible = False '程序不可视
.AutomationSecurity = 2 '禁用新Excel程序的宏
Pat = ThisWorkbook.Path & "" '设置路径
For Hx = 2 To Sheet1.Range("A65536").End(xlUp).Row '循环数据
PatName = Pat & Sheet1.Cells(Hx, "A").Value & ".xls" '设置文件名称
If Len(Dir(PatName)) > 0 Then '如果文件存在
Set NBook = .Workbooks.Open(PatName) '打开文件
Sheet1.Cells(Hx, "B").Value = NBook.Sheets("Sheet1").Range("B1").Value '提取数据
NBook.Close False '关闭文件,并不保存
End If
Next
.Quit '退出程序
End With
End Sub

复制代码

无聊的疯子 · 发表于 2013-8-26 14:56

moyiyingbiy 发表于 2013-8-26 14:13
这是附件

将这个工作薄解压放到你原来的位置，运行里面的 cc 过程就行了

主表.zip (12.18 KB, 下载次数: 208)

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

[已解决]怎样实现跨工作簿引用，求大侠赐教！

点评