var obj;
obj = new Object(document.all.WebOffice1.GetDocumentObject());
if(obj !=null){
var xls = obj.Application;
var xlsheet = xls.Worksheets(1);
var x=xls.Selection.Row;//当前row的值
var y=xls.Selection.Column;//当前cell的值
xls.Cells(x,y).value=str;
delete obj;
}
写VBA 代码啊