将页面导入到excel如何控制列宽

各位好,我用下面的代码将页面导入到excel,但在excel中显示很窄,不好看,如何做到比较宽的显示,或是自动调整?!
function AllAreaExcel()
{
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var sel=document.body.createTextRange();
sel.moveToElementText(PrintA);
sel.select();
sel.execCommand("Copy");
oSheet.Paste();
oXL.Visible = true;
}