（1）寫在前面

      ①  關于二次修改MSSQL報錯

    在Management Studio中，選擇“工具->選項->Designers->表設計器和數據庫設計器”中，把“阻止保存要求重新創(chuàng)建表的更改”前面的對勾去掉即可。

   ②如何查詢所有數據

（2）創(chuàng)建數據表單

（3）建立一個工作簿

在開發(fā)模式下，添加控件

編輯按鈕宏腳本

Sub 寫入SQL()

//定義數據

Dim strcn, cn

Dim is_SQL

Dim d1, d2

d1 = Str(Sheet1.Range("B2").Value)'獲取B2單元格數據并轉換為字符

d2 = Str(Sheet1.Range("B3").Value)'獲取B3單元格數據并轉換為字符

strcn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=master;Data Source=honeytree\wincc" '通過ODBC連接數據源（可以在其他文章中查詢怎么通過.UDL文件獲?。?/p>

Set cn = CreateObject("ADODB.connection") '創(chuàng)建對象

cn.connectionString = strcn '連接

cn.Open'打開

is_SQL = "insert into biao1(data1,data2)values('" + d1 + "','" + d2 + "')" '插入數據

cn.Execute is_SQL  '執(zhí)行插入語句

cn.Close'關閉連接

Set cn = Nothing '釋放

End Sub

（4）測試效果

//源文件在下面下載測試

http://honeytree./