不打开工作簿获取数据

suntuki · 发表于 2017-8-17 14:15

本帖最后由 suntuki 于 2017-8-17 21:53 编辑

查不到具体贴子了,演示例中导出数据数如何控制范围,
具体来说,数据表SHEET 为动态不断增加,导出数据不是A1:F22, 而是A2~~~动态增加最后一行数据
这样如何修改呢?

Sub CopyData_1()
Dim Temp As String
Temp = "'" & ThisWorkbook.Path & "\[数据表.xls]Sheet1'!"
With Sheet1.Range("A1:F22")
.FormulaR1C1 = "=" & Temp & "RC"
.Value = .Value
End With
End Sub

lsc900707 · 发表于 2017-8-17 14:30

方法有很多。。。。。。

suntuki · 发表于 2017-8-17 14:32

lsc900707 发表于 2017-8-17 14:30
方法有很多。。。。。。

哈哈哈,请教一个!!!!

suntuki · 发表于 2017-8-17 15:14

lsc900707 发表于 2017-8-17 14:30
方法有很多。。。。。。

请赐教一个,在线等,谢谢你!

suntuki · 发表于 2017-8-17 15:53

lsc900707 发表于 2017-8-17 14:30
方法有很多。。。。。。

给赐教一个吧,谢谢,谢谢!

jiangxiaoyun · 发表于 2017-8-17 16:07

直接打开工作簿取数据就好了，反正都是vba操作。
打开不打开，没什么的区别。
一般用open方法和ado方法。
至于其他的方法，貌似就那样。。。。。。

lsc900707 · 发表于 2017-8-17 17:45

本帖最后由 lsc900707 于 2017-8-17 19:51 编辑

suntuki 发表于 2017-8-17 15:53
给赐教一个吧,谢谢,谢谢!

一直在外面，手机不方便。晚上吧，请上传你的附件。

suntuki · 发表于 2017-8-17 21:55

lsc900707 发表于 2017-8-17 17:45
一直在外面，手机不方便。晚上吧，请上传你的附件。

不打开工作簿取得其他工作簿数据.rar (16.28 KB, 下载次数: 166) 上传附件

suntuki · 发表于 2017-8-17 21:58

jiangxiaoyun 发表于 2017-8-17 16:07
直接打开工作簿取数据就好了，反正都是vba操作。
打开不打开，没什么的区别。
一般用open方法和ado方法。 ...

谢谢你的参与,有需求肯定是有用的.如果你要是会的话,就麻烦指导一下,非常感谢

lsc900707 · 发表于 2017-8-17 22:36

suntuki 发表于 2017-8-17 21:55
上传附件

Sub lqt()
Set wb = GetObject(ThisWorkbook.Path & "\数据表.xls")
With Workbooks("数据表.xls")
arr = .Sheets(1).UsedRange
ReDim brr(1 To UBound(arr), 1 To 5)
For i = 3 To UBound(arr)
If Len(arr(i, 2)) <> 0 Then
m = m + 1
For j = 1 To 5
brr(m, j) = arr(i, j)
Next
End If
Next
.Close 0
End With
[b3].Resize(m, 5) = brr
Set wb = Nothing
End Sub

复制代码

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

[求助] 不打开工作簿获取数据

最新热点 /1