5

5つのテキスト入力とJavaScript関数を呼び出すボタンを備えたHTMLWebフォームがあります。この関数は、既存のExcelファイルを開き、最後に入力された行を見つけ、その下に新しい行を挿入して、フォームの値を各セルに1つずつ入力します。次に、保存して終了します。

ただし、スプレッドシートには5つを超える列があるため、関数はデータを列A〜Eにのみ配置します。

function createData(){

    var first = document.getElementById('A').value;
    var second = document.getElementById('B').value;
    var third = document.getElementById('C').value;
    var fourth = document.getElementById('D').value;
    var fifth = document.getElementById('E').value;

    var xlDown = -4121

    var w =new ActiveXObject("Excel.Application");
    w.Visible=true;

    w.Workbooks.Open("file:\\Form.xls");
    objWorksheet = w.Worksheets(1);

    objRange = w.Range("A1");
    objRange.End(xlDown).Activate;
    intNewRow = w.ActiveCell.Row + 1;

    for (i=1; i<10000; i++){
        objWorksheet.Cells(intNewRow, 1) = first;
        objWorksheet.Cells(intNewRow, 2) = second;
        objWorksheet.Cells(intNewRow, 3) = third;
        objWorksheet.Cells(intNewRow, 4) = fourth;
        objWorksheet.Cells(intNewRow, 5) = fifth;
    }
    w.ActiveWorkbook.SaveAs("file:\\Form.xls");
    w.Quit();
              alert("The data has been added to the spreadsheet");
}

私が実際にやりたいことはこれです：

スプレッドシートには、各行の列A〜Gにデータが含まれている場合と含まれていない場合があります。既存のシートの列Bで「最初の」のテキスト値（上記で定義）を検索する関数が必要です。見つかった場合は、HK列の対応するセルに他の4つの値を挿入します。見つからない場合は、5つの値すべてを列Bの「最初」の新しい行に挿入し、残りを列HKに挿入します。

私は長い間これをいじっていて、それができることは知っていますが、それをクラックすることはできないようです。

どんな助けでも大歓迎です！

4

1 に答える 1

4

まあ、試行錯誤で答えを見つけたようです。彼女はきれいではありませんが、うまくいきます。時間が許す限り、コードの最適化を検討します。

function createData(){      

var Name = document.getElementById('txtName').value;

var first = document.getElementById('A').value;     
var second = document.getElementById('B').value;     
var third = document.getElementById('C').value;     
var fourth = document.getElementById('D').value;     
var fifth = document.getElementById('E').value;      
var xlDown = -4121      

var w =new ActiveXObject("Excel.Application");     
w.Visible=true;      
w.Workbooks.Open("file:\\Form.xls");     

objWorksheet = w.Worksheets(1);      
objRange = w.Range("H3");     
objRange.End(xlDown).Activate;     
intNewRow = w.ActiveCell.Row + 1;      

for (i=4; i<10; i++){
    var a = objWorksheet.Cells(i,2);
    var b = a.Value;
    if(b == Name){
        a.Activate;
        b = w.ActiveCell.Offset(0,6);
        intNew = w.ActiveCell.Row;
        objWorksheet.Cells(intNew, 8) = first
        objWorksheet.Cells(intNew, 9) = second
        objWorksheet.Cells(intNew, 10) = third
        objWorksheet.Cells(intNew, 11) = fourth
        objWorksheet.Cells(intNew, 12) = fifth
    }   
    else{
        objWorksheet.Cells(intNewRow, 8) = first
        objWorksheet.Cells(intNewRow, 9) = second
        objWorksheet.Cells(intNewRow, 10) = third
        objWorksheet.Cells(intNewRow, 11) = fourth
        objWorksheet.Cells(intNewRow, 12) = fifth
    }
}
w.ActiveWorkbook.SaveAs("file:\\\\Test.xls");
w.Quit();
}
于 2011-11-25T01:09:51.727 に答える