我想完成这样的功能:从第一个sheet提取某单元格经过简单计算后写入第二个sheet中。例如:ExcelSheet2.cells(n, 2)=ExcelSheet1.cells(n, 1)+ExcelSheet.cells(n, 2)。下面的代码错在哪里呢?老提示在当前位置发现该文件,问是否替换。而我选是时,excel却并未改变。
Set objexcel1 = CreateObject("Excel.application")
Set objworkBook1 = objexcel1.Workbooks.Open("d:商品信息库.xls", 3, False)
Set ExcelSheet1 = objworkBook1.Worksheets(1)
objexcel1.Visible = False
Set objexcel2= CreateObject("Excel.application")
Set objworkBook2 = objexcel2.Workbooks.Open("d:商品信息库.xls", 3, False)
Set ExcelSheet2 = objworkBook2.Worksheets(2)
objexcel2.Visible = False
For n = 2 To 6
ExcelSheet2.cells(n, 6) = ExcelSheet2.cells(n, 6) + ExcelSheet1.cells(n, 3)
objworkBook2.save
Next n
objworkBook1.Close
objworkBook2.Close
|