Sub 按鈕1_Click()
Dim i As Integer, j As Integer, sht As Worksheet 'i,j為整數變數；sht 為excel工作表對象變數，指向某一工作表
'Dim cn As New ADODB.Connection '定義數據鏈接對象 ，保存連接資料庫信息；請先添加ADO引用
'Dim rs As New ADODB.Recordset '定義記錄集對象，保存數據表
『工具 ---〉引用 ---〉Microsoft ActiveX data objects ....
'下面兩句就不需要增加引用ADO
Set cn = CreateObject("Adodb.Connection")
Set rs = CreateObject("Adodb.Recordset")
Dim strCn As String, strSQL As String '字元串變數
Dim strCond As String
strCn = "Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password" '定義資料庫鏈接字元串
'下面的語句將讀取數據表數據，並將它保存到excel工作表中：工作表為一張兩維表，記錄集也是一張兩維表
strSQL = "select CUSTOMER_NAME from VSC_BI_CUSTOMER " '定義SQL查詢命令字元串
cn.Open strCn '與資料庫建立連接，如果成功，返回連接對象cn
rs.Open strSQL, cn '執行strSQL所含的SQL命令，結果保存在rs記錄集對象中
i = 2
Set sht = ThisWorkbook.Worksheets("Test") '把sht指向當前工作簿的Test工作表
Do While Not rs.EOF '當數據指針未移到記錄集末尾時，循環下列操作
sht.Cells(i, 1) = rs("CUSTOMER_NAME") '把當前記錄的欄位1的值保存到sheet1工作表的第i行第1列
rs.MoveNext '把指針移向下一條記錄
i = i + 1 'i加1，准備把下一記錄相關欄位的值保存到工作表的下一行
Loop '循環
rs.Close '關閉記錄集，至此，程序將把某數據表的欄位1保存在excel工作表sheet1的第1列，行數等於數據表的記錄數
cn.Close '關閉資料庫鏈接,釋放資源
End Sub
2. 如何把Excel數據轉化成SQL語句
1、例如我想把圖1的數據給添加到圖2的資料庫中；
3. 如何在EXCEL中使用SQL進行數據處理與分析
在EXCEL中使用SQL進行數據處理與分析步驟有：
工具原料：excel2013版本
打開「excel」，在「數據」選項卡中，找到「自其他來源」；
4. 如何把Excel資料轉化成SQL語句
如何把Excel資料轉化成SQL語句
1、開啟企業管理器，開啟緩畢纖要匯入資料的資料庫，在表上按右鍵，所有任務-->匯入資料，彈出DTS匯入/匯出向導，按 下一步 ， 2、選擇資料來源 Microsoft Excel 97-2000，檔名 選擇要匯入的xls檔案，按 下一步 ， 3、選擇目的 用於SQL Server 的Micro...
前者是資料，後者是程式，如果將資料都寫程序序，效率太低了。
你的本意估計是需要將excel資料匯入sql資料庫
1、在excel中編寫程式碼，迴圈將資料寫入sql資料庫
2、從sql資料庫中，編寫程式碼將excel資料匯入資料庫
3、藉助第三方軟體，將excel資料寫入sql資料庫:jingyan../article/cdddd41c92924d53cb00e189.
1、在你的excel表格中增加一列
2、在第一行的D列，就是D1中輸入公式： =CONCATENATE("INSERT INTO PERSONS_SERIAL_NUMBER(PERSONS_NO, PERSONS_NAME,ID_NUMBER) VALUES('" & B1 & "', '" & C1 & "', '" & E1 & "');")
3、此時D1已經生成了如下的sql語句： INSERT INTO PERSONS_SERIAL_NUMBER(PERSONS_NO, PERSONS_NAME,ID_NUMBER) VALUES('xxxxx', 'xxxx, 'xxxxxxxxxx');
4、將D1的公式復制到所有行的D列，方法是：把資料放在單元格最右下角，當滑鼠變成十字形時，往下拖到最後一行放開就會自動復制，動態改變values裡面的引數
5、此時D列已經生成了所有的sql語句
6、把D列復制到一個純文字檔案中，推薦使用UltraEdit進行處理。如何把mysql某些資料轉化成sql
SQL SERVER有一個自帶的匯入匯出工具，你可以用它來把SQL SERVER的資數搜料匯入到MYSQL。
如果無法執行的話，可以自己編寫程式，將SQL SERVER的資料按照MYSQL中你建設的表的欄位標准來匯出，然後再匯入到MYSQL。如何把SQL資料檔案轉化成ACCESS資料
sql企業管理器裡面有一個數據匯入匯出
你可以把表直接匯出excel檔案的如何把word做的一些資料轉化成EXCEL
直接復制就自動分好單元格了。 直接擾仿復制啊。 我樓下的朋友（zjgwenqi - 助理 二級）方法可行，我的方法刪掉了。 ,lCXXtZ
如何將一張資料庫表中的資料匯出或轉化成sql語句
sql
方法/步驟
很多時候我們在生產資料庫上面只能進行簡單的查詢，是不能增刪查改的。但是又想使用真實的資料。
如果用plsql develop是可以實現將資料匯出成insert語句的。但是匯出之後是全部的列都會出現在insert語句裡面。
3
遇到一些空值，日期之類的還要處理一下才行，而且有很多列是自己不需要的。
4
這個時候就需要用sql來構造insert語句了。他是比較自由和靈活的，可控制性比較強。如何把shibor 日資料轉化成月資料
請在日期後插入一列，如C列，在C1輸入公式： =TEXT(A1,"yyyy-mm") 將日期轉換為年月的文字，下拉復制； 再進行資料透視表按這年月作透視，將氣溫匯總除以氣溫計數即可得出平均值。 或請你將原表作附件上傳，幫你做一下
如何將SQLite DB檔案轉化成帶插入的sql語句
找到由SQLServer轉換的SQLite DB檔案（可參考我的以前的經驗：SQLServer資料庫表匯出SQLite DB檔案方法），
下載動軟程式碼生成工具並安裝，按照成功後到所有程式可以檢視到
執行動軟程式碼生成工具進入到主介面。
點選左上角的新增伺服器注冊，彈出資料庫型別窗體。選擇SQLLite，點選下一步。如下圖：
接下來會彈出選擇SQLite資料庫窗體，在資料庫檔案文字框輸入本地SQLite db檔案路徑，點選確定（。系統會提示關閉軟體從新開啟。
重新開啟動軟程式碼生成工具後，到左邊伺服器可以看見那你的SQLite資料庫
選擇一張表，右鍵選擇生成資料腳步（。會彈出一個提示：「如果該表資料量較大…」，直接選擇「是」（，點選「是」後右邊出現生成的sql語句，包含新增語句和插入資料的語句。儲存檔案即可。5. 如何在Excel中使用SQL語言實現數據查詢
1、選中表格後單擊右鍵選擇「定義名稱」。
2、單擊後，出現命名對話框。
3、這里將表1和表2分別命名為Table1和Table2。
4、選擇上方的「數據」選項卡，選擇「自其他來源」下的「來自Microsoft Query 」選項。
5、在彈出的對話框中選擇Excel Files*那一項，並且把對話框下面的「使用「查詢向導」創建/編輯查詢」勾掉。
6、點擊「確定」，便出現「選擇工作簿」的對話框，這里選擇包含表1和表2的工作表xxx.xlsx。
7、點擊確定後之後彈出添加表的對話框。
8、點擊確定後之後彈出添加表的對話框。
9、輸入SQL語句的按鈕，彈出輸入SQL語句的對話框 輸入SQL，看到篩選出來的數據表。
10、將篩選出來的數據表再返回至Excel工作表當中，選擇菜單中的「文件」——「將數據返回Microsoft Excel」。
6. EXCEL中能不能直接執行SQL語句
1、需要導入的數據如圖。
7. 如何將Excel數據轉換為SQL腳本
.sql文件轉成excel表格的步驟：1、將sql文件放入資料庫執行（這邊以mysql資料庫為例），SQL命令行操作：sql>@full_path/test.sql;例：sql>@D:/test.sql;不需要commit;一般都是在test.sql裡面最後加上一個commit;2、從資料庫導出數據至excel表格，SQL命令行操作：sql>select*intooutfile'd:/test.xls'from表名；例：sql>select*intooutfile'd:/test.xls'fromtest；