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

我已经取得了需要读取数据的表的路径,如果需要把他某个单元格的数据复制到当前工作表,怎么弄呢?也好那么我想打开一个excel表,从里面写入数据到原来的表之后就关闭他,应该用... 我已经取得了需要读取数据的表的路径,如果需要把他某个单元格的数据复制到当前工作表,怎么弄呢?
也好 那么我想打开一个excel表,从里面写入数据到原来的表之后就关闭他,应该用什么命令呢?
展开
 我来答
喜欢自作多情
推荐于2016-09-28 · TA获得超过614个赞
知道小有建树答主
回答量:408
采纳率:50%
帮助的人:283万
展开全部
application.Workbooks.Open 文件路径
application.Workbooks(文件名).Close true或false表示是否保存
复制就是application.Workbooks("文件名").sheets("表名").range(源单元格地址).copy ActiveSheet.range(目标单元格地址)
你可以用Set xlApp = CreateObject("Excel.Application")来建立一个看不到的Excel应用程序对象,然后用xlApp 来替代上面的Application,就会看不到打开的过程了。
hym5235492
2008-12-20 · 超过15用户采纳过TA的回答
知道答主
回答量:33
采纳率:0%
帮助的人:33万
展开全部
打开、关闭表(应该是工作簿)的方法是:
指定一个文件名,然后 文件名.OPEN,
打开以后用 文件名.close 关闭。

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

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

是保存再关闭还是不保存就关闭看你自己的意愿了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
自由小径
2020-02-29
知道答主
回答量:14
采纳率:0%
帮助的人:2.9万
展开全部
用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

说明: 如果工作簿处于隐藏状态,或者工作表是图表工作表,将会报错.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
周胜亿jN
2008-12-20 · TA获得超过175个赞
知道小有建树答主
回答量:380
采纳率:0%
帮助的人:255万
展开全部
下面的程序 自动打开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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
kfzlg
2008-12-20 · 超过53用户采纳过TA的回答
知道答主
回答量:227
采纳率:0%
帮助的人:141万
展开全部
VBA运行都是依附于某一个应用软件,要从关闭着的EXCEL文件中读取数据好象是不可能的,你可以后台打开该表格,再写入当前表中.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式