UC知道vba 从excel抓资料
来源：百度知道 编辑：UC知道 时间：2024/05/26 17:31:48
请教各位高手：
想写一段vba,在a.xls中的sheet1放个按钮，储存格B2的内容为查询的条件值。
按下后，会去找b.xls中所有工作表第5列中符合条件的，并将那一行copy, 贴到a.xls的sheet2.
例：b.xls的sheet1中，储存格A5、D5符合条件，及Sheet2的B5符合，那麼就将b.xls中sheet1的A栏、D栏及sheet2的B栏copy贴到a.xls的sheet2中。
谢谢指教
非常感谢您的回答，不过执行到 If cell.Value = Sheet1.Range("a2") Then
发生型态不合的error, 不知为何
我试过了，还是有问题。我可以把我的a.xls,b.xls档传给你吗? 谢谢
想写一段vba,在a.xls中的sheet1放个按钮，储存格B2的内容为查询的条件值。
按下后，会去找b.xls中所有工作表第5列中符合条件的，并将那一行copy, 贴到a.xls的sheet2.
例：b.xls的sheet1中，储存格A5、D5符合条件，及Sheet2的B5符合，那麼就将b.xls中sheet1的A栏、D栏及sheet2的B栏copy贴到a.xls的sheet2中。
谢谢指教
非常感谢您的回答，不过执行到 If cell.Value = Sheet1.Range("a2") Then
发生型态不合的error, 不知为何
我试过了，还是有问题。我可以把我的a.xls,b.xls档传给你吗? 谢谢
将以下代码复制到a.xls的vbe模板中,再点执行.
Sub aa()
Dim wb As Object
Dim n As Integer
Dim cell As Range
myname = ThisWorkbook.Path & "\b.xls"
Set wb = GetObject(myname)
n = 2
For i = 1 To wb.Worksheets.Count
For Each cell In wb.Sheets(i).UsedRange
If cell.Value = Sheet1.Range("a2") Then
cell.Copy Sheet2.Range("a" & n)
n = n + 1
End If
Next cell
Next i
wb.Close
End Sub
我执行没有问题呀，应该把这两个文件放在一个文件里！！！！！！
或者在If cell.Value = Sheet1.Range("a2")后面加上.value