Question

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

文件1.xls
文件2.xls
在“文件1.xls”里，怎样用VBA将一个数据写入到“文件2.xls”里？
如怎样将“ABC”写入到“文件2.xls”里“sheet1”里“A1”

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

找本VBA的书看下就会了。