如果要访问EXCEL建议使用ADO。使用打开应用程序的方式容易出现关闭进程失败的情况，如进程中有EXCEL进程，则下次将无法打开EXCEL了，也没有办法写数据进去。而使用访问数据库的方式（ADO），则不会出现这样的问题，如下是读取EXCEL表格中的数据的例程，稍作修改就可往excel中写数据，这要使用ADO方式打开了EXCEL，你就可以像操作数据库一样操作EXCEL表格。
Dim sConnectionString
sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\121.xls; Extended Properties=Excel 8.0;"

Dim oleDbConnection
Set oleDbConnection =CreateObject("ADODB.Connection")
oleDbConnection.Open sConnectionString
Dim DataSet
Set DataSet =CreateObject("ADODB.Recordset")
DataSet.Open "Select * from [sheet1$A1:C4]",oleDbConnection,3,3
Dim aa
Set aa=ScreenItems("按钮3")
aa.Text = DataSet.Fields(0).value

DataSet.Close
注意你制定的行列范围中第一行默认为表格的字段行，所以如我设置的访问A1:C4,那么第一行中的数据时字段行，获取的表格数据其实是A2:C4的内容