dim mypath as string,svalue ’定义变量
mypath="d:\excel.xls" '把路径赋值给一个字符串
workbooks.open filename:=mypath '这句是打开文件
activeworkbook.visible=false '这句是隐藏文件
svalue=activeworkbook.sheets(1).range("a1").value '这句是用变量取得该文件表1中a1单元格的值
activeworkbook.viseble=true’显示文件
activeworkbook.close true'/false,这句是关闭文件,close有两个参数,true是关闭保存修改,false是关闭时不保存修改