求用 VBA 编写 获取未打开的 预告.xls指定单元格的数值.

Question

也许很难吧，不然为什么网上找不到呢？
问题： 在不打开某个工作表时，求 j = 未打开工作表的某个单格的数据。

简单不正确的编写方式，意在求方便纠正错误：

h = Trim(Replace(Sheets("[D:\预告.xls].sheet1").Cells(i, 6).Value, ",", "")) '最高值
l = Trim(Replace(Sheets("[D:\预告.xls].sheet1").Cells(i, 7).Value, ",", "")) '最低值
If h = "" Then h = 0
If l = "" Then l = 0
j = Format(WorksheetFunction.Average(h, l), "0.00")

求用 VBA 编写 获取未打开的预告.xls的数值.

Answer 1

不能获得未打开文件里面的数据，但是我们可以打开获取数据后关闭，例如：

FName = "D:\预告.xls"
Workbooks.Open Filename:=FName, ReadOnly:=True
h=ActiveWorkbook.Sheets("Sheet1").cells(1,6).value
l=ActiveWorkbook.Sheets("Sheet1").cells(1,7).value
ActiveWorkbook.Close SaveChanges:=False

Answer 2

Dim cnn, SQL$
Set cnn = CreateObject("adodb.connection")
Wrw = "预告.xls"
sh = "预告"
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.Path & "\" & Wrw
SQL = "select ItemCode, cells(i,6)) from [" & sh & "$] group by ItemCode"
Sheets("Sheet1").Range("a2:C65536").ClearContents
Sheets("Sheet1").Range("a2").CopyFromRecordset cnn.Execute(SQL)
cnn.Close
(你可以自己查一下SQL语句，用它的话查找特别方便而且速度很快)

Answer 3

有推荐做法是文件打开后
.Visible = False
引用，关闭