2016-03-15 18 views
0
var myApp = new ActiveXObject("Excel.Application"); 
       myApp.visible = true; 
       var myWorkbook;    
      var xlCellTypeLastCell = 11; 
       myObject = new ActiveXObject("Scripting.FileSystemObject"); 
        if(myObject.FileExists("xyz.xlsx")){ 
       myWorkbook = myApp.Workbooks.Open("xyz.xlsx"); 
           } 
       else{ 

        myWorkbook=myApp.Workbooks.Add(); 
        } 

       var myWorksheet = myWorkbook.Worksheets(1); 

       myWorksheet.Activate; 

       objRange = myWorksheet.UsedRange; 

       objRange.SpecialCells(xlCellTypeLastCell).Activate ; 

       newRow = myApp.ActiveCell.Row + 1; 

       strNewCell = "A" + newRow; 

       myApp.Range(strNewCell).Activate; 

       myWorksheet.Cells(newRow,1).value=document.getElementById("table1").rows[1].cells.item(0).innerHTML;    myWorksheet.Cells(newRow,2).value=document.getElementById("table1").rows[1].cells.item(4).innerHTML;  
     myWorksheet.Cells(newRow,3).value=document.getElementById("table1").rows[1].cells.item(5).innerHTML; 

       myWorkbook.SaveAs("xyz.xlsx"); 

       myApp.Quit(); 

Вышеприведенный код сохраняет первый раз, во втором цикле он выдает окно с запросом на сохранение вручную, я пытаюсь сохранить файл автоматически без ручного вмешательства ,Сохраните файл Excel через веб-страницу с помощью java-скрипта

+0

Вы не можете. Вам нужно предоставить пользователю диалог сохранения. –

ответ

0

Необходимо временно отключить отображение предупреждений. Это в VBA. Измените его, чтобы использовать MYAPP

Application.DisplayAlerts = False 
' save here 
Application.DisplayAlerts = True 

документация DisplayAlerts коротка и стоит читать: https://msdn.microsoft.com/en-us/library/office/ff839782.aspx

+0

Это сработало. Спасибо. – swe

+0

Счастливые помочь. Если предлагаемый ответ соответствует вашим требованиям, обычно принято голосовать за него и отмечать его как принятое. – MikeC

Смежные вопросы