说的不太明白，是在excel里面建立宏还是，在vb里面调用？
要在excel里面的话直接电积宏，新建一个。vb里面需要饮用office ??(版本）对象。
然后dim ex as excel.application 等等~~~

引用excel对象
Set Ex = CreateObject("excel.application")
Set ExWbook = Ex.Workbooks.Open(App.Path & "\******.xls")
Set ExSheet = ExWbook.Worksheets("sheet1")
Ex.Sheets("sheet1").Select
Ex.Selection.ClearContents
Ex.Cells(行，列）= “？〉？”
或者读出来，
dim str as string
str = ex.cells(行，列）。
详细参看，我马上要发一个。vb教程