項目開始一般都是用word保存下數據庫的文檔

但是從表單一個一個的建表實在是很困難乏味，查查資料

1、可以生成一個html或者xml，檢索結構生成sql。但是這個方式也蠻麻煩

2、查到vba可以操作word讀取表格。所以采用這種方式寫了一個小程序。這樣就可以直接生成sql了，在這里做個記錄。

代碼很初級，意見歡迎，勿噴。

?

Public Sub test()'Word對象定義Dim objWord As New Word.ApplicationDim objWordNew As New Word.Application'Doc對象定義Dim objDoc As Word.DocumentDim objDocNew As Word.Document'讀取指定文件至Doc對象Set objDoc = objWord.Documents.Open("D:\新建 Microsoft Word 文檔.docx")Set objDocNew = objWordNew.Documents.Open("D:\sql.docx")'Table對象定義Dim objTable As Word.TableDim tempStrtempStr = ""'讀取指定文件中的表1至Table對象'Set objTable = objDoc.Tables(2)For a = 1 To objDoc.Tables.CountSet objTable = objDoc.Tables(a)tempStr = tempStr + "CREATE TABLE ("tempStr = tempStr + Chr(10)For i = 2 To objTable.Rows.Count'tempStr = tempStr + "'" + Application.WorksheetFunction.Clean(objTable.Cell(i, 2).Range.Text) + "' " + objTable.Cell(i, 4).Range.Text + " COMMENT '" + objTable.Cell(i, 2).Range.Text + objTable.Cell(i, 6).Range.Text + "'"tempStr = tempStr + "'" + Replace(Replace(objTable.Cell(i, 2).Range.Text, Chr(10), ""), Chr(13), "") + "' " + Replace(Replace(objTable.Cell(i, 4).Range.Text, Chr(10), ""), Chr(13), "") + " COMMENT '" + Replace(Replace(objTable.Cell(i, 3).Range.Text, Chr(10), ""), Chr(13), "") + Replace(Replace(objTable.Cell(i, 6).Range.Text, Chr(10), ""), Chr(13), "") + "'"'tempStr = Replace(tempStr, Chr(10), "")'tempStr = Replace(tempStr, Chr(13), "")tempStr = tempStr + Chr(10)NexttempStr = tempStr + ")ENGINE=MyISAM DEFAULT CHARSET=utf8;"tempStr = tempStr + Chr(10)tempStr = tempStr + Chr(10)NextobjDocNew.Range.Text = tempStr'關閉Doc對象 objDoc.CloseobjDocNew.Close'關閉Word對象 objWord.QuitobjWordNew.Quit'清除Table對象Set objTable = Nothing'清除Doc對象Set objDoc = Nothing'清除Word對象Set objWord = Nothing End Sub

中間有一些替換回車換行符的，也有添加的，為了生成理想的格式，拼接字符串。

轉載于:https://www.cnblogs.com/PPBoy/p/7158716.html

總結

以上是生活随笔為你收集整理的VBA操作word生成sql语句的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。