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

发布网友 发布时间：2022-05-14 16:19

我来回答

共5个回答

热心网友 时间：2023-08-25 07:49

如果两个文件都已经打开，那么直接赋值即可：
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

热心网友 时间：2023-08-25 07:50

sub
aa()
dim
c
set
c
=
workbooks.open(thisworkbook.path
&
"\b.xls")
'打开文件b.xls
c.sheets("sheet1").[a1]
=
thisworkbook.sheets("sheet1").[a1]
'将a.xls中sheet1表的a1单元格值写入到b.xls的sheet1的a1单元格
c.save
'保存b.xls
c.close
'关闭b.xls
set
c
=
nothing
end
sub

热心网友 时间：2023-08-25 07:50

1.开启录制宏
2.手动操作
打开文件2.xls在sheet1的A1输入ABC
3.停止录制宏，查看录制的代码。

热心网友 时间：2023-08-25 07:51

在VBA可以使用CreateObject("ADODB.RecordSet")语句来创建ADO的记录集对象，其他操作也一样。

热心网友 时间：2023-08-25 07:52

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
你要新建的文件名