[已解决]不打开文件读取其他Excel文件的数据

26827557

老师们好！借助网页的“不打开文件读取其他Excel文件的数据”这个例子，怎么把指定的100行用变量来求呢？
我用以下这句，没有实现出来，大家来一起试试啊
r =Sheets("DataSource").Range("A65536").End(xlUp).row  '最后一行行数

http://club.excelhome.net/thread-492148-2-1.html

最佳答案

月排行榜 / 总排行榜

七彩屋

2016-5-3 13:58

不打开文件读取其他Excel文件的数据.rar (23.54 KB, 下载次数: 211)

2016-5-3 13:58 上传

点击文件名下载附件

跳转到最佳答案楼层

七彩屋

砂海

sheets()的 父Workbooks()没指定

26827557

砂海 发表于 2016-5-2 20:43
sheets()的 父Workbooks()没指定

怎么指定，老师，你能下载来帮试试吗？

26827557

七彩屋 发表于 2016-5-2 20:25

你能下载来帮我试试吗

七彩屋

sFullName = Application.GetOpenFilename '读取数据源文件路径和名称
If sFullName = False Then Exit Sub    '如果放弃选择文件，退出程序
Set qcw = GetObject(sFullName)
rr = qcw.Sheets("DataSource").Range("B65536").End(xlUp).Row
Range("IV2") = sFullName
Range("IV3") = sFullName
Range("IV4") = sFullName
Range("IV3").Replace what:="*\", replacement:="" '利用通配符*替换路径为空，提取文件名称
Range("IV4").Replace what:=Range("IV3"), replacement:=""  '替换上面提出的文件名称为空，提取文件路径
sFile = Range("IV3").Value   '文件名称赋值
sPath = Range("IV4").Value   '文件路径赋值
Range("IV2:IV4").ClearContents
sSheet = "DataSource"   '指定工作表，即在数据源文件中要读取数据的Sheet的名称
On Error Resume Next
For r = 1 To rr   '100行数据

七彩屋

不打开文件读取其他Excel文件的数据.rar (23.54 KB, 下载次数: 211)

2016-5-3 13:58 上传

点击文件名下载附件

26827557

七彩屋 发表于 2016-5-3 13:57
sFullName = Application.GetOpenFilename '读取数据源文件路径和名称
If sFullName = False Then Exit Su ...

老师，你好！非常感谢你：
但是还有些问题：
1.例如，选择的源文件里假设不存在“DataSource”这个工作表，弹出来了“下标越界”，能否加一条判断语句呢？
2.另外能否在选择源文件时，能否过滤文件格式，只可以看到".xls"类型的文件呢？

七彩屋

第一个问题加一判断
If sFullName = False Then Exit Sub    '如果放弃选择文件，退出程序
Set qcw = GetObject(sFullName)
On Error Resume Next
  If qcw.Worksheets("DataSource") Is Nothing Then
     MsgBox "不存在DataSource工作表"
    Exit Sub
  Else
......

end if

七彩屋

第二个问题

Filt = "xls文档 (*.xls),*.xls,"
  FilterIndex = 1
    sFullName = Application.GetOpenFilename(FileFilter:=Filt, FilterIndex:=FilterIndex, Title:=Title)
       If sFullName = False Then Exit Sub    '如果放弃选择文件，退出程序