以下程式碼已經過測試，確定可行!

<select name="sel_name" id="sel_name"> <option value="" label=""/> <option value="H" label="選1"/> <option value="E" label="選2"/> <option value="L" label="選3"/> <option value="L" label="選4"/> <option value="O" label="選5"/> </select> <input type="button" value="送出答案" id="btn3" onclick="validate();"/> <input type="hidden" name="h_opts" id="h_opts"/>
function validate() { var opts = ""; var x = document.getElementsByTagName('OPTION'); for (var i = 0; i < x.length; i++) { opts += x[i].value; } document.getElementById('h_opts').value = opts if (document.getElementById('sel_name').value == "") alert("您必須回答問題才能送出！"); else { var IsSave = saveToExcel(document.getElementById('sel_name').value); if (IsSave == true) { location.replace("002.html"); //無延遲自動轉頁 } else alert("開啟失敗，請確定你的電腦已經安裝excel，且瀏覽器必須允許ActiveX控件執行"); } } function saveToExcel(str) { try { var xls = new ActiveXObject("Excel.Application"); xls.Visible = true; } catch (e) { alert(e); //alert("開啟失敗，請確定你的電腦已經安裝excel，且瀏覽器必須允許ActiveX控件執行"); return false; } //var objTable = document.getElementById(str); var xlBook = xls.Workbooks.Add; var xlsheet = xlBook.Worksheets(1); //for (var i = 0; i < objTable.rows.length; i++) //for (var j = 0; j < objTable.rows[i].cells.length; j++) //xlsheet.Cells(i + 1, j + 1).value = objTable.rows[i].cells[j].innerHTML; xlsheet.Cells(1, 1).value = str; return true; }

註明一下:
1: 您的「sel_name」下拉式選單，請加上一項「空白選項」，如上例的:<option value="" label=""/>
這樣，才能夠模擬出「不選擇時」跳出「您必須回答問題才能送出」的結果。

2:因為您是將textarea改為了select，所以，在saveToExcel之中，不能再用「Table」的方式來跑迴圈，而必須縮淢為「一個值」就好了，
所以，這一行才會這樣寫:xlsheet.Cells(1, 1).value = str;

OK，您參考看看!

還有一點請注意!

您在執行的時候，或許會出現以下錯誤訊息:

ActiveXObject("Excel.Application")伺服程式無法產生物件

解決方法:

打開IE的工具-->網際網路選項-->安全性-->自定等級-->起始不標示為安全的ActiveX控制項-->提示

OK，您再參考看看