excel生成sql
一： 在本地PC新建一個Excel文件（例如：excel2007）
准備工作，左鍵選擇excel文本左上角的圖標，選擇「Excle選項」。1. 點擊「信任中心」->「信任中心設置」->「宏設置」->選擇「啟用所有宏...」選項。「開發人員宏設置」選項也勾選上。 2. 點擊「信任中心」->「信任中心設置」->選擇「個人信息選項」，將「文檔特定設置」上面默認選擇去掉，避免在保存腳本時報錯。
二： 在本地PC新建一個excel文件（例如： D:\testdate.xlsx）
按快捷鍵「ALT + F11」進入宏編輯，輸入如下代碼後保存。summary()為目標生成代碼，SQL()為生成SQL腳本文件代碼，按條件生成SQL的腳本如下：
Sub summary()
Dim i As Integer
i = 2
ThisWorkbook.Worksheets(1).Columns(2).Clear
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> " " Then
ThisWorkbook.Worksheets(1).Cells(i, 2).Value = sh.Name
ThisWorkbook.Worksheets(1).Cells(i, 2).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
sh.Name + "!A1", TextToDisplay:=sh.Name
i = i + 1
End If
Next sh
ThisWorkbook.Worksheets(1).Cells.Select
With Selection.Font
.Name = "目錄"
.Size = 9
.Strikethrough = False
.Superscript. = False
.Subscript. = False
.OutlineFont = False
.Shadow = False
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
End Sub
Sub SQL()
Dim i As Integer
i = 1
Dim ADO_Stream As Object
Dim strSQL, strDelSQL As String
Dim strTblName As String
Dim col As Long
Dim row As Long
Dim str As String
Dim PK As String
Dim cnt As Integer
PK = "PK"
Dim rowcounts As Long
rowcounts = 0
Dim filecount As Long
filecount = 0
Set ADO_Stream = CreateObject("ADODB.Stream")
ADO_Stream.Type = 2
ADO_Stream.Mode = 3
ADO_Stream.Charset = "unicode"
ADO_Stream.Open
Dim checkType As String
For Each sh In ThisWorkbook.Worksheets
cnt = 0
If sh.Name <> " " And InStr(sh.Name, "template") = 0 Then
strTblName = sh.Cells(1, 2).Value
rowcounts = 1
'Insert SQL
row = 6
Do While sh.Cells(row, 1).Value <> ""
strDelSQL = "delete from " + strTblName + " where "
strSQL = "Insert into " + strTblName + " ("
col = 1
Do While sh.Cells(3, col).Value <> ""
If col <> 1 Then
strSQL = strSQL + ", "
End If
strSQL = strSQL + sh.Cells(3, col).Value
col = col + 1
Loop
strSQL = strSQL + ") VALUES ("
col = 1
Do While sh.Cells(3, col).Value <> ""
str = Trim(CStr(sh.Cells(row, col).Value))
If InStr(Trim(CStr(sh.Cells(2, col).Value)), PK) <> 0 Then
If cnt > 0 Then
strDelSQL = strDelSQL + " and "
End If
strDelSQL = strDelSQL + Trim(CStr(sh.Cells(3, col).Value)) + " = '" + str + "'"
cnt = cnt + 1
End If
If col <> 1 Then
strSQL = strSQL + ", "
End If
If (InStr(Trim(CStr(sh.Cells(4, col).Value)), "Integer") = 0) And (InStr(Trim(CStr(sh.Cells(4, col).Value)), "Decimal") = 0) And ((InStr(Trim(CStr(sh.Cells(4, col).Value)), "DATE") = 0) Or _
((Len(str) > 0) And (InStr(Trim(CStr(sh.Cells(4, col).Value)), "DATE") > 0))) Then
If (Len(str) <= 0) And (InStr(Trim(CStr(sh.Cells(5, col).Value)), "No") = 0) Then
str = "NULL"
ElseIf InStr(Trim(CStr(sh.Cells(4, col).Value)), "DATE") > 0 Then
str = "to_date('" + str + "','yyyy-mm-dd hh24:mi:ss')"
Else
str = "'" + str + "'"
End If
strSQL = strSQL + str
ElseIf (Len(str) <= 0) And (InStr(Trim(CStr(sh.Cells(4, col).Value)), "DATE") > 0) Then
strSQL = strSQL + "NULL"
Else
If (Len(str) <= 0) And (InStr(Trim(CStr(sh.Cells(5, col).Value)), "No") = 0) Then
str = "NULL"
End If
strSQL = strSQL + str
End If
col = col + 1
Loop
strDelSQL = strDelSQL + ";" + vbCrLf
ADO_Stream.WriteText strDelSQL
strSQL = strSQL + ");" + vbCrLf
ADO_Stream.WriteText strSQL
row = row + 1
Loop
End If
i = i + 1
rowcounts = 0
filecount = 0
Next sh
ADO_Stream.SaveToFile ThisWorkbook.Path & "\MstSQL(delete by condition).txt", 2
ADO_Stream.Close
Set ADO_Stream = Nothing
End Sub
點擊「保存」宏腳本，主要的一步完成。
三： 在excel文件（test.xlsx）的首頁創建兩個圖標，分別選擇右鍵指定宏，一個指定上面的summary(),一個指定上面的SQL()。然後就可以在後續的sheet頁創建自己需要生成SQL腳本的表結構名稱了，記得每個sheet頁面對應一個表結構及數據，使用方法如下：
A,將需要更新的對象表數據整個sheet拷進工具中，數據只保留需要更新的數據。
B,在第2行標出主鍵欄位，填上「PK」即可。
看看代碼
http://www.51testing.com/html/41/195041-831346.html
㈡ 請問excel怎麼轉換成sql
1、把Excel通過DTS包導入到資料庫中，再通過軟體生成Sql腳本（另存為sql）。
2、通過Excel中的公式來生成Sql語句。
可以藉助很多其它工具，資料庫查詢工具，UE等。
㈢ 如何把Excel數據轉化成SQL語句
1、例如我想把圖1的數據給添加到圖2的資料庫中；
㈣ 如何將Excel數據轉換為SQL腳本
如何將Excel數據轉換為SQL腳本
打開用戶提供的excel數據，滑鼠定位到第一行數據的最後一個單元格（這里是F2單元格），
輸入="",在雙引號裡面寫入INSERT語句腳本，這里舉例oracle語句的insert into語句，格式如
INSERT INTO USER(USER_CODE,USER_NAME,USER_TYPE,IS_ENABLED,IN_DATE)VALUES('"&&"','"&&"','"&&"','"&&"',TO_DATE('"&&"','YYYY-MM-DD'));
滑鼠定位到兩個&&中間，依次選擇到欄位對應的單元格，如第一列的值定位到A2，這時公式裡面的值就變為了&A2&，意思就是USER_CODE的值就是A2單元格的值，第二列第三列的依次類推.
最後把滑鼠游標放到公式最後面，再按Enter鍵，這樣第一行的公式就寫好了
滑鼠再定位到第一行的公式，滑鼠左鍵按住往下拖動到數據行的最後一行，然後松開按鍵，這樣全部的公式就生成完了。
全部選中公式，右鍵【復制】，粘貼到記事本中，這樣SQL腳本就出來了。
直接放到資料庫中執行，這樣不就解決問題了嗎？
注意事項: SQL語句後面加";"是為了多個SQL
㈤ excel2010怎樣生成sql語句
自己寫吧，很簡單的
Set conn = CreateObject("adodb.connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select top 3 * from [sheet1$A2:D]"
[H3].CopyFromRecordset conn.Execute(Sql)
conn.Close: Set conn = Nothing