Question

Execl 用VBA在打开指定位置的excel，并且向新打开的excel中写入数据，拜求。。。。

举例：
我有个两个excel名字为“A.xls”。“B.xls”

1我打开A.xls，用A.xls中的VBA代码打开在同样根目录下的“B.xls”，并且把A.xls中的单元格【A1】的值写到B.xls的单元格【A1】中。
2保存数据并关闭B.xls
谢谢各位啦。。。

Answer 1

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

追问

快下班啦。。嘿。谢谢你啊。。明天实验下。。。我是VBA的初学者。。麻烦您啦

追答

呵呵请采纳

Answer 2

Workbooks.Open ("b.xls")
Workbooks("b.xls").Sheets(1).Range("a1").Value = Workbooks("a.xls").Sheets(1).Range("a1").Value
Workbooks("b.xls").Save
Workbooks("b.xls").Close