用vba从一个关闭着的excel表读取数据写入到当前打开的excel表

application.Workbooks.Open 文件路径
application.Workbooks(文件名).Close true或false表示是否保存
复制就是application.Workbooks("文件名").sheets("表名").range(源单元格地址).copy ActiveSheet.range(目标单元格地址)
你可以用Set xlApp = CreateObject("Excel.Application")来建立一个看不到的Excel应用程序对象，然后用xlApp 来替代上面的Application，就会看不到打开的过程了。

打开、关闭表（应该是工作簿）的方法是：
指定一个文件名，然后 文件名.OPEN，
打开以后用 文件名.close 关闭。

关闭时注意，如果关闭前做了修改，那么关闭时会提示是否保存修改，如果选择“否”，这时 VBA 的调用过程就会出错。

解决的办法是在 .CLOSE 后面加上savechanges:= true 或 false

是保存再关闭还是不保存就关闭看你自己的意愿了。

用ExecuteExcel4Macro从未打开的Excel工作簿中读取数据(转载)

从另外一个未打开的Excel文件中读取数据的函数

下面这个函数调用XLM宏从未打开的工作簿中读取数据.

*注意: 该函数不能用于公式.

GetValue函数,需要以下四个变量

path: 未打开的Excel文件的路径 (e.g., "d:\test")

file: 文件名(e.g., "test.xls")

sheet: 工作表的名称 (e.g., "Sheet1")

ref: 引用的单元格 (e.g., "C4")

'*********函数如下

Private Function GetValue(path, file, sheet, ref)

' 从未打开的Excel文件中检索数据

Dim arg As String

' 确保该文件存在

If Right(path, 1) <> "\" Then path = path & "\"

If Dir(path & file) = "" Then

GetValue = "File Not Found"

Exit Function

End If

' 创建变量

arg = "'" & path & "[" & file & "]" & sheet & "'!" & _

Range(ref).Range("A1").Address(, , xlR1C1)

' 执行XLM 宏

GetValue = ExecuteExcel4Macro(arg)

End Function

使用该函数:

将该语句复制到VBA的模块中,然后,在适当的语句中调用该函数. 下面的例子显示D:\test 下的文件test.xls 的Sheet1中的单元格”A1”的内容.

Sub TestGetValue()

p = "d:\test"

f = "test.xls"

s = "Sheet1"

a = "A1"

MsgBox GetValue(p, f, s, a)

End Sub

下面还有一个例子.这个语句从一个未打开的文件中读取1200个数值(100行12列),并将结果填到当前工作表中.

Sub TestGetValue2()

p = "d:\test "

f = "test.xls"

s = "Sheet1"

Application.ScreenUpdating = False

For r = 1 To 100

For c = 1 To 12

a = Cells(r, c).Address

Cells(r, c) = GetValue(p, f, s, a)

Next c

Next r

Application.ScreenUpdating = True

End Sub

说明: 如果工作簿处于隐藏状态,或者工作表是图表工作表,将会报错.

下面的程序 自动打开C:\下的 abc.xls 文件，把第一行第一列 的内容写入
当前表中的第一个单元个，然后自动关闭。
Workbooks.Open Filename:="C:\abc.xls"
Me.Cells(1, 1) = Workbooks("abc.xls").Worksheets("Sheet1").Cells(1, 1)
Workbooks("abc.xls").Close

VBA运行都是依附于某一个应用软件,要从关闭着的EXCEL文件中读取数据好象是不可能的,你可以后台打开该表格,再写入当前表中.