Question

EXCEL VBA的提取代码怎么写？

我想进行提取的操作.
在工作簿A,"1"表的A9:B,AA9:AG开始提取 对应的 工作簿B,"1"表的A9:B,AA9:AG的数值(工作簿B是非打开的状态),直到A为空为止.
这种提取用公式非常简单,但是数据多的话,比如说要提取几万行,用公式的话,首先打开工作簿就很慢.
所以有没有办法用VBA的办法提取,不打开工作簿B,好像在不打开目标工作簿的情况下,只能用添加公式的办法,是吗?应该怎么写啊?

Answer 1

建议使用 “来自Microsoft Query”来导入其它表格中的数据

追问

怎么弄啊?

追答

你可以试试看。在选择 数据库 时双击 “Excel Files”，然后通过 浏览 找到你说的工作簿A ……

使用这种方式的好处是显而易见的！只有打开这个当前工作簿的时候才会更新一次所有的数据，不会让所有的公式都一直在不停运算。
还可以设置固定时间间隔 刷新数据

追问

我使用了后,导入目标工作簿B的数据,然后保存,更新了目标工作簿B,之后再打开工作簿A,不会更新啊?

追答

估计你没有设置“连接属性”。默认如截图所示：

你可以把这个复选框勾选上。

还可以把上面的复选框勾选上，并设置合适的时间。

追问

这个办法,必须要在工作簿B创建 名称 才行吧?

追答

最好是在第一行创建名称。当然不创建也行，但在极端情况下可能会遇到问题。

追问

不创建根本就无法导入,还是需要创建

追答

可能是你的首行数据不具有惟一性吧？或者是小数什么的。否则会自动以A1、B1……等等作为名称的。
因此，最好是创建具有意义的名称，且不能有标点符号在内。

追问

我把工作簿B设置了2个名称,同时导入的时候,说让我人工拖拽.人工拖拽又正在运行后台查询,特别慢

追答

这说明你的数据量比较大。
但这是一次性的，只在打开时发生一次。后面就会很快了。因为公式是一直在刷新的，它就会一直去查数据，那才是难以接受的。

追问

拖拽好以后,这个整列的数据都是有底色的,

然后继续,用代码操作的时候,最后一行非空的行数,总是指向 名称范围 最下面的一行,而不是有数据的最后一行.这个有点头疼啊

追答

能看一下你写的获取 最后一行非空的行数 对应的代码 吗？

追问

r = .Range("t" & Rows.Count).End(xlUp).Row
就是很普通的代码,指向的是 名称范围 最后一个,但实际有数据的最后一个应该怎么办?

追答

建议你使用 .UsedRange.Rows.Count 来代替

Answer 2

Sub 提取数据()

Dim wdapp As Object

Set wdapp = CreateObject("word.application")

wdapp.Documents.Open Filename:=ThisWorkbook.Path & "\DEMO\9-4.demo.docx"

wdapp.Visible = True

With wdapp.Documents(1).Tables(1).
Range
 
For i = 1 To .Cells.Count
   
u = Left(.Cells(i).Range, Len(.Cells(i).Range) - 1)
   
If IsNumeric(u) Then
     
n = n + 1
     
Cells(n + 1, 2) = u
     
Cells(n + 1, 1) = Left(.Cells(i - 1).Range, Len(.Cells(i - 1).Range) - 1)
   
End If
 
Next
End With
 
Cells(1, 1) = "姓名"
 
Cells(1, 2) = "分数"

wdapp.Quit

End Sub