在execl里使用VBA,怎样将数据用写入另一个文件?

文件1.xls文件2.xls在“文件1.xls”里,怎样用VBA将一个数据写入到“文件2.xls”里?如怎样将“ABC”写入到“文件2.xls”里“sheet1”里“A1... 文件1.xls
文件2.xls
在“文件1.xls”里,怎样用VBA将一个数据写入到“文件2.xls”里?
如怎样将“ABC”写入到“文件2.xls”里“sheet1”里“A1”
展开
 我来答
haifeistar
2010-10-23 · TA获得超过4.2万个赞
知道大有可为答主
回答量:8651
采纳率:50%
帮助的人:6170万
展开全部
如果两个文件都已经打开,那么直接赋值即可:
Sub test()
Dim Val
Val = Workbooks("文件1.xls").Sheets(1).Cells(1).Value
Workbooks("文件2.xls").Sheets(1).Cells(2).Value = Val
Workbooks("文件2.xls").Sheets(1).Cells(1).Value = "ABC"
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
壹场bf
2010-10-27 · TA获得超过521个赞
知道小有建树答主
回答量:426
采纳率:0%
帮助的人:145万
展开全部
在VBA可以使用CreateObject("ADODB.RecordSet")语句来创建ADO的记录集对象,其他操作也一样。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
weiweiq
推荐于2016-02-26 · TA获得超过1445个赞
知道小有建树答主
回答量:1435
采纳率:100%
帮助的人:818万
展开全部
Sub 宏1()
Dim a As String
Dim fname As String
Dim fname2 As String
fname = "d:\123\123.txt"
fname2 = "d:\123\124.txt"
Open fname For Input As #1
Open fname2 For Output As #2
On Error Resume Next
Do
Input #1, a
Print #2, a
Loop While EOF(1) = False
Close #1
Close #2
End Sub

fname 你要读的文件
fname2 你要新建的文件名
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
tonkeys
2010-10-23 · TA获得超过1513个赞
知道大有可为答主
回答量:2087
采纳率:33%
帮助的人:2432万
展开全部
1.开启录制宏
2.手动操作
打开文件2.xls在sheet1的A1输入ABC
3.停止录制宏,查看录制的代码。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
阿峰的编程博客
2010-10-23 · TA获得超过1166个赞
知道小有建树答主
回答量:620
采纳率:0%
帮助的人:418万
展开全部
找本VBA的书看下就会了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式