用上方法会出错,应该用下面的方法
引用excel对象
Set Ecl = CreateObject("excel.application")
Set EclWbook = Ecl.Workbooks.Open(App.Path & "\******.xls")
Set ExSheet = EclWbook.Worksheets("sheet1")
Ecl.Sheets("sheet1").Select
Ecl.Selection.ClearContents
dim str as string
str = ecl.cells(行,列)。
然后让EXCEL接收N值,进行计算就可以了。