'试试下面的代码,将它放在按钮的CLICK事件中:
'首先在VB中增加引用microsoft excel object library库。
'假设有个你要操作的文件vb。xls放在C盘根目录下。
Dim i As Long
Dim j As String
Dim xlApp As Excel。
  Application
Dim xlBook As Excel。Workbook
Dim xlSheet As Excel。Worksheet
Set xlApp = CreateObject("Excel。Application")
Set xlBook = xlApp。
  Workbooks。Open("C:\vb。xls")
Set xlSheet = xlBook。Worksheets(1) '引用第1张工作表
For i = 0 To List1。ListCount - 1
  j = "A" + CStr(i + 1)
  xlSheet。
  Range(j) = List1。List(i) '可使用Cells属性进行赋值
Next
xlApp。Application。SaveWorkspace '保存
xlApp。Application。Quit '关闭对象
Set xlApp = Nothing '释放引用
******************************************************
上面的代码是打开一个已存在文件。
  下面是新建一个EXECL文件。
Dim i As Long
Dim j As String
Dim xlApp As Excel。Application
Dim xlBook As Excel。Workbook
Dim xlSheet As Excel。
  Worksheet
Set xlApp = CreateObject("Excel。Application")
Set xlBook = xlApp。Workbooks。Add
Set xlSheet = xlBook。Worksheets(1)
For i = 0 To List1。
  ListCount - 1
     j = "A" + CStr(i + 1)
     xlSheet。Range(j) = List1。List(i) '可使用Cells属性
Next
xlApp。Application。SaveWorkspace
xlApp。
  Application。Quit '关闭对象
Set xlApp = Nothing '释放引用
。