我是了几种方法:
function AllAreaExcel(tableId) {
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var sel=document.body.createTextRange();
sel.moveToElementText(tableId);
sel.select();
sel.execCommand("Copy");
oSheet.Paste();
oSheet.Range("A1:M25").Borders.Weight ='1';
oSheet.Range("A1:M25").Interior.ColorIndex =2;
//Cells.Hyperlinks.Delete; 不行
//sel.Hyperlinks.Delete; 不行
//oSheet.Cells[4,2].Hyperlinks.Delete; 不行
oXL.Visible = true;
//document.execCommand("SaveAs","","C:\\TEST.XLS");
oWB.saveas("C:\\sogood.XLS");
// 用 Application 对象用 Quit 方法关闭 Excel。
oXL.Application.Quit();
//oXL.save();
}从网页copy到excel中,excel单元格中的数字带了超链接,我如何才能清除掉超链接呢?
谢谢指教!!!!
function AllAreaExcel(tableId) {
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var sel=document.body.createTextRange();
sel.moveToElementText(tableId);
sel.select();
sel.execCommand("Copy");
oSheet.Paste();
oSheet.Range("A1:M25").Borders.Weight ='1';
oSheet.Range("A1:M25").Interior.ColorIndex =2;
//Cells.Hyperlinks.Delete; 不行
//sel.Hyperlinks.Delete; 不行
//oSheet.Cells[4,2].Hyperlinks.Delete; 不行
oXL.Visible = true;
//document.execCommand("SaveAs","","C:\\TEST.XLS");
oWB.saveas("C:\\sogood.XLS");
// 用 Application 对象用 Quit 方法关闭 Excel。
oXL.Application.Quit();
//oXL.save();
}从网页copy到excel中,excel单元格中的数字带了超链接,我如何才能清除掉超链接呢?
谢谢指教!!!!
Dim i As IntegerSub delS()
For i = Sheet1.Shapes.Count To 1 Step -1
Sheet1.Shapes.Item(i).Delete
Next i
End Sub
这段代码删除说有的EXECL中的控件和图表