VB6.0读取表的项目保存到另外的表里。

来源：百度知道 编辑：UC知道 时间：2024/07/08 17:56:12
文件夹：A 下有a1.xls,a2.xls
现在要求，把文件夹下所有.xls的表sheet1的a1单元的内容，取出来
并且写入到b.xls的sheet1的b列。
请问如何谢。
希望给出souce。并加入注释，谢谢

A是什么意思？A盘么？不大可能吧。我按D盘做的，不对的话请自己修改一下下面的路径。建一个Command1，单击按钮即可。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Dim a1 As String, a2 As String, xls1 As Excel.Application, xls2 As Excel.Application, xls3 As Excel.Application
Set xls1 = CreateObject("excel.application")
Set xls2 = CreateObject("excel.application")
Set xls3 = CreateObject("excel.application")
xls1.Workbooks.Open "d:\a1.xls"
xls2.Workbooks.Open "d:\a2.xls"
xls3.Workbooks.Add
xls3.Visible = True
xls3.Workbooks(1).Sheets(1).Range("b1").Value = xls1.Workbooks(1).Sheets(1).Range("a1").Value
xls3.Workbooks(1).Sheets(1).Range("b2").Value = xls2.Workbooks(1).Sheets(1).Range("a1").Value
xls3.Workbooks(1).SaveAs "d:\b.xls"
End Sub