作者hyvi (过了都过了)
看板Office
标题[问题] 如何用VBA载入档案,选择特定条件的值？
时间Tue Sep 24 19:17:44 2019
软体:office 365 excel
版本:office 365 excel
大师们求救
我有1个表A,N个档案,档案内容也很多笔
请问如何用vba按一个按扭,载入一个不指定路径的档案（手选）,而且不打开复制来源档,
只选择要的栏位并筛选需要的值？
如图1
我要C栏的值,条件是F栏是Y组的才要(如图1),然後贴到表A的B2开始,大概变成(图2)的样
子,感谢。
图1
https://imgur.com/SBMfGRx
图2
https://imgur.com/lFGKdiV
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 59.125.160.144 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1569323869.A.5D1.html
1F：→ soyoso: 不开档的话，ado range.copyfromrecordset 09/24 20:45
2F：推 ptguitar: 我都是开了後再close掉 09/25 09:52
4F：→ soyoso: 原po是要selecteditems这个属性吧，是的话先.show，选取档 09/25 18:08
5F：→ soyoso: 案後，用个变数=.selecteditems(1)来取得所选取档案的资料 09/25 18:10
6F：→ soyoso: (路径和完整档名) 09/25 18:12
7F：→ soyoso: 以连结巨集来看，在回圈前应是还要在加上开档workbooks. 09/25 18:30
8F：→ soyoso: open的动作 09/25 18:30
9F：→ soyoso: 不开档的话也可用个储存格，以公式='完整路径[完整档名]工 09/25 18:40
10F：→ soyoso: 作表名称'!储存格的方式带入值，再判断该储存格，符合，带 09/25 18:41
11F：→ soyoso: 入其他储存格内的资料(同回文以公式)，之後不要该公式的话 09/25 18:42
12F：→ soyoso: 再选择性贴上(值) 09/25 18:42
14F：→ soyoso: 不是"filename"这个字串，而是.selecteditems(1)所取得的 09/25 19:06
15F：→ soyoso: 字串 09/25 19:06
16F：→ soyoso: 而这个字串包含了路径和完整档名，而workbooks()括号内要 09/25 19:08
17F：→ soyoso: 的是完整档名 09/25 19:08
18F：→ soyoso: 如果不要还在那里取出完整档名的话，set 变数 = workbooks 09/25 19:09
19F：→ soyoso: .open，变数.worksheets(..)的方式来做 09/25 19:10
21F：→ soyoso: 不是，原本巨集内就写了workbooks.open filename:=... 09/25 20:33
22F：→ soyoso: set 变数 = workbooks.open 09/25 20:33
23F：→ soyoso: 原本参引数不用括号，set时要加上 09/25 20:35
24F：→ hyvi: 谢谢指导,但太深奥了,我看不懂. 09/26 16:22
25F：→ soyoso: 就是workbooks.open filename:=.selecteditems(1) 09/26 16:24
26F：→ soyoso: 改为set book2 = workbooks.open(filename:=.selecteditem 09/26 16:25
27F：→ soyoso: s(1)) 09/26 16:25
28F：→ soyoso: 而set book2 = workbooks.open这行就删除 09/26 16:25
29F：→ hyvi: 谢谢,这行过了下半段还是一堆问题 09/27 17:21