如何向一组Excel文件中的任意打开一个文件中用VB程序向其中写入东西

抛砖引玉吧，分还是留点下面的人得。因为代码我本机没有，从你的提问来看你还要学很多东西。提供一个方法给你参考：在vb里创建一个excel对象。
你的分给的太高了，所以我还是决定进行补充（虽然楼下辛苦了贴了很多代码）：不管你想做什么程序，VB与微软的EXCEL交互只有那么一两种方法，我个人曾经使用过楼下所贴代码的方法，也就是声明一个Excel.Application对象，利用此对象提供的属性与方法对表格进行读写、格式控制。我现在也经常用这种方法，不过是在网页中使用。我所知还有另一种方法，是利用ODB数据接口，将EXCEL看成一个数据库，利用数据库语言将数据写入到EXCEL中。前一种方法，会打开一个EXCEL进程，效率上差点，但几乎能全面地控制EXCEL的所有功能。后一种方法简单，效率高，但基本上只能进行数据的读写，无法控制格式等高级功能。
至于你应许选用什么方法，要看你想达到的效果和要求而定。如果你曾经在EXCEL中编写过宏，我想第一种方法对你来说学起来不难。如果你对VBA不是很熟悉，我想你还是选第二种吧！
顺便说一句：你的这个“万用表”的思路还是挺奇特的，祝你成功！

在VB中引用库 Microsoft excel 11.0 objiect library office2003环境下
如果是office2007 则是 Microsoft excel 12.0 objiect library

Dim MyExcel As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set MyExcel = CreateObject("Excel.Application")
Set xlBook = MyExcel.Workbooks.Open("E:\学习\aa.XLS")
Set xlSheet = MyExcel.ActiveSheet
'下面这条语句就是给单元格赋值的
xlSheet.Cells(10, 5) = "dfdfdf"
'保存退出，释放内存
MyExcel.ActiveWorkbook.Save
MyExcel.ActiveWorkbook.Close
MyExcel.Quit
Set MyExcel = Nothing

'在工程中添加对excel的引用
dim
xlsapp
as
excel.application
dim
xlsbook
as
excel.workbook
private
sub
command1_click()
dim
i
as
integer
set
xlsapp
=
excel.application
xlsapp.visible
=
false
set
xlsbook
=
xlsapp.workbooks.open("d:\11.xls")
i
=
1
do
while
xlsapp.sheets(1).cells(i,
1)
<>
""
i
=
i
+
1
loop
xlsapp.sheets(1).cells(i,
1)
=
text1.text
xlsbook.close
(true)
xlsapp.quit
set
xlsapp
=
nothing
msgbox
"数据写入成功！"
end
sub