vb单击按钮添加数据到excel指定单元格

引用 Microsoft Excel xx object library
为了这个我在我电脑里建立了和你一样的文件，测试以下代码无运行错误
拷贝下面的代码,
注意你的文件名是否拼写正确，另外 cells（X,Y） 里X Y用数字
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.open("D:\Ggsfxt\SJK\XXXGS\1.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
xlBook.Sheets(2).Activate
cells(1, 5) = 20
xlBook.Close (True)
xlApp.Quit
set xlBook= Nothing
Set xlApp = Nothing
End Sub

虽然不明白你要干什么，但这个错误是很明显的：“它要打开一个文件，但那个文件不存在！”
文件位置如下：
D:\Ggsfxt\sjk\xxxgs\1.xls
你显示的代码就是在sheet2表的A5位置加个20。

通用Excel里有表间取数公式，轻松满足你这个要求。