不打开文件查询指定单元格的内容的应用

weixiaoji

做这个文件的起因是我们办公室内品管的测试报告太多，而做主管的要去查找一份测试报告的话可能要费很长的时间。因为有时候你不能只看文件名就能知道是不是你要的那份测试报告。于是，我就做了这么一个东西，是在前辈的一个目录管理上加了一点点儿改进。潜水这么久了，拿出来与大家共享一下。不太完善，有什么问题大家提出来，请老师们指点一下。

[ 本帖最后由 weixiaoji 于 2010-11-26 12:02 编辑 ]

zhangjimfu

老兄绝对是位潜水的高手，论坛真是藏龙卧虎 ，收藏，学习

zhangzhenxia

学习了，谢谢！

weixiaoji

谬赞了，请各位大侠多提建议，帮忙修改，TKS!

香川群子

原帖由 zhangjimfu 于 2010-10-4 16:07 发表
老兄绝对是位潜水的高手，论坛真是藏龙卧虎 ，收藏，学习

应该是他的前辈比较厉害吧。

weixiaoji

呵呵，我说的前辈就是指论坛里的，我是在论坛里淘到了一个目录管理的文件，然后我根据同事的需要在其后加了一点儿从文件中读取指定单元格的程序，就变成了附件中的样子了。请多指教，TKS!

香川群子

原帖由 weixiaoji 于 2010-10-5 15:14 发表
呵呵，我说的前辈就是指论坛里的，我是在论坛里淘到了一个目录管理的文件，然后我根据同事的需要在其后加了一点儿从文件中读取指定单元格的程序，就变成了附件中的样子了。请多指教，TKS!

嗯，怎么说你也是很强的啦。

建议增加一个可以修改指定单元格参数的对话框，或者可以在指定单元格里输入需读取范围。

qq = "sheet1"
rr = "b3"
uu = "b4"
vv = "d6"
ww = "d5"
xx = "b7"

我觉得可以在第一行标题里加入待读取数据的单元格地址，
然后用循环方式取变量求值。


Sub 获取单元格数据(tt As String, ss As String)

Dim qq, xx, arg As String, m As Long
qq = "sheet1"

Do Until Range("N1").Offset(0, m) = ""
    xx = Left(Range("N1").Offset(0, m), InStr(Range("N1").Offset(0, m), ":") - 1)
    arg = "'" & tt & "[" & ss & "]" & qq & "'!" & Range(xx).Range("A1").Address(, , xlR1C1)
    Range("N1").Offset(i - 1, m) = ExecuteExcel4Macro(arg)
    m = m + 1
Loop

End Sub

我在附件中试了一下，是可行的。

这样改起来方便一点。

[ 本帖最后由 香川群子 于 2010-10-5 20:08 编辑 ]

weixiaoji

原帖由 香川群子 于 2010-10-5 19:21 发表


嗯，怎么说你也是很强的啦。

建议增加一个可以修改指定单元格参数的对话框，或者可以在指定单元格里输入需读取范围。

谢谢你的改进，明天我上班的时候再试用一下，谢谢了，希望能向你学习。

[ 本帖最后由 weixiaoji 于 2010-10-5 20:14 编辑 ]

香川群子

这样，在第一列中可以随意增减需要读取的单元格地址。

达到方便自由的目的。

weixiaoji

这样子改进后的确非常不错，你才是高手啊。我想再向你请教一下：
1、如果是合并单元格怎么办？比如，B3是产品名称这个单元格，但它是好几个单元格合并而成的（主要是因为测试内容较多，需要增加一些列），不仅这个单元格不好读了，后面的单元格的地址也发生了变化，这样如何处理呢？
2、在测试日期这一栏内，有的同事填入的是文本，有的填入的是日期，导致读出来的时候有的就是乱码了，如何解决呢？

另外，我还想开发一个测试报告与BOM的系统，到时想向你请教，不知是否可以，我的邮箱是weixiaoxiaoji@163.com，如果可以的话请你发邮件与我联系，TKS!