如何用VBA实现根据列出的名字或编号从不同的工作簿提取数据(已解决)?

ZWBZLJ · 发表于 2009-3-17 11:21

请各位高手帮助，在此首先感谢！详见附件。
五楼够细心，发现问题，请看五楼的附件。
恳各位高手帮助解决，最好两种提取方法都能解决，再次感谢各位高手的帮助。

[ 本帖最后由 ZWBZLJ 于 2009-3-19 07:41 编辑 ]

mineshine · 发表于 2009-3-17 11:46

Private Sub CommandButton1_Click()
Dim cnn, rst
Dim SQL As String
Set cnn = CreateObject("ADODB.connection")
Set rst = CreateObject("ADODB.recordset")
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;';Data Source=" & ThisWorkbook.Path & "\高三.xls"
For i = 2 To Sheets("提取1").[B65536].End(xlUp).Row
      SQL = "select * from [原稿$] as S2 where S2.姓名=" & "'" & Sheets("提取1").Cells(i, 2).Value & "'"
      rst.Open SQL, cnn, 1, 1
      Sheets("提取1").Cells(i, 1).CopyFromRecordset rst
rst.Close
Next i
cnn.Close
Set rst = Nothing
Set cnn = Nothing
End Sub

故我在 · 发表于 2009-3-17 11:49

看了一眼，感觉用函数可以实现啊
我的原则是能不用VBA就不用VBA

zwbzxq · 发表于 2009-3-17 12:30

谢谢mineshine ，非常感谢。
达到要求的效果。

ZWBZLJ · 发表于 2009-3-17 14:47

原帖由 mineshine 于 2009-3-17 11:46 发表
Private Sub CommandButton1_Click()
Dim cnn, rst
Dim SQL As String
Set cnn = CreateObject("ADODB.connection")
Set rst = CreateObject("ADODB.recordset")
cnn.Open "Provider=Micro ...

如果在“提取2”里，根据a列提供的编号，从《高三》工作簿里的“原稿”工作表中提取出相对应的：名字和各科成绩放到相应单元格中，应该怎样修改代码才能实现呢？

小鸟学语 · 发表于 2009-3-18 09:38

初来乍到Excel Home,看了该帖，用二楼的代码进行测试，有同姓名的就达不到要求的效果了(请看附件)，应怎样解决？
如果用编号提取应该会达到要求的效果，又该咋办呢？

[ 本帖最后由小鸟学语于 2009-3-18 09:41 编辑 ]

ZWBZLJ · 发表于 2009-3-18 10:41

各位请在百忙中抽出时间帮忙小的解决问题，非常感谢！

ningyuanchao · 发表于 2009-3-18 11:27

用编号提取更好，因为编号应该是唯一的，姓名则不一定，在实际生活中，同名同姓是经常的事。

ZWBZLJ · 发表于 2009-3-18 14:17

所以，渴望解决用编号提取。

小鸟学语 · 发表于 2009-3-18 14:23

我也同意8楼、9楼的说法，请各位帮助解决用编号提取。

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

[求助] 如何用VBA实现根据列出的名字或编号从不同的工作簿提取数据(已解决)?

回复 1楼 ZWBZLJ 的帖子