Word + ASP + Excel 打造零成本網路問卷系統：從設計、發布到自動統計全流程

千人問卷若用紙本統計極耗時。善用 Word 表單欄位、ASP 接收腳本、Excel 儲存統計，即可在內網部署零成本自動化問卷系統：員工瀏覽器作答提交，結果即時寫入 Excel，自動計算選項比率、彙整建議文字。

系統架構

• 前端： Word 設計含單選鈕、文字區、提交鈕的表單，另存為 index.htm。
• 後端： ASP 腳本 (jg.asp) 接收表單 POST 資料，透過 ADO 寫入 Excel (調查結果.xls)。
• 伺服器： 安裝 IIS，將網站主目錄指向存放網頁與 Excel 的資料夾，啟用讀寫權限。

關鍵製作細節

1. Word 表單設計

• 啟用「Web 工具箱」，插入「表單」區域與「提交鈕」。
• 每題插入 4 個「選項鈕」，同題共用 HTML Name（如 R1, R2...），Value 分別為 A/B/C/D。
• 建議文字區 Name=yj，提交鈕 Action=jg.asp。
• 利用 VBA 巨集「插入單選鈕」一鍵生成四選項，大幅加速製作。

2. Excel 儲存結構

• 工作表「結果」：預建欄位「題號、總人數、答A人數、答B人數、答C人數、答D人數」，初始值 0，比率欄設百分比格式。
• 工作表「建議」：欄位「序號、建議」存放開放式回饋。

3. ASP 接收腳本核心邏輯

<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("調查結果.xls") & ";Extended Properties=""Excel 8.0;HDR=Yes;"""
For i = 1 To 15
  ans = Request("R" & i)
  If ans <> "" Then
    sql = "SELECT * FROM [結果$] WHERE 題號=" & i
    Set rs = conn.Execute(sql)
    rs("總人數") = rs("總人數") + 1
    rs("答" & ans & "人數") = rs("答" & ans & "人數") + 1
    rs.Update
  End If
Next
If Trim(Request("yj")) <> "" Then
  sql = "SELECT * FROM [建議$]"
  Set rs = conn.Execute(sql)
  rs.AddNew
  rs("序號") = rs.RecordCount + 1
  rs("建議") = Request("yj")
  rs.Update
End If
conn.Close
Response.Write("感謝參與")
%>

4. IIS 發布要點

• 控制台「新增/移除 Windows 元件」安裝 IIS。
• IIS 管理器 → 預設網站 → 主目錄指向 D:\123，勾選讀取/寫入。
• 文件頁籤啟用預設文件 index.htm。

效益

員工瀏覽器輸入伺服器 IP 即可作答，提交後資料自動統計，零成本、零維護、即時結果，極適合中小企業內部調查。