項(xiàng)目開(kāi)始一般都是用word保存下數(shù)據(jù)庫(kù)的文檔

但是從表單一個(gè)一個(gè)的建表實(shí)在是很困難乏味，查查資料

1、可以生成一個(gè)html或者xml，檢索結(jié)構(gòu)生成sql。但是這個(gè)方式也蠻麻煩

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

代碼很初級(jí)，意見(jiàn)歡迎，勿噴。

?

Public Sub test()'Word對(duì)象定義Dim objWord As New Word.ApplicationDim objWordNew As New Word.Application'Doc對(duì)象定義Dim objDoc As Word.DocumentDim objDocNew As Word.Document'讀取指定文件至Doc對(duì)象Set objDoc = objWord.Documents.Open("D:\新建 Microsoft Word 文檔.docx")Set objDocNew = objWordNew.Documents.Open("D:\sql.docx")'Table對(duì)象定義Dim objTable As Word.TableDim tempStrtempStr = ""'讀取指定文件中的表1至Table對(duì)象'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'關(guān)閉Doc對(duì)象 objDoc.CloseobjDocNew.Close'關(guān)閉Word對(duì)象 objWord.QuitobjWordNew.Quit'清除Table對(duì)象Set objTable = Nothing'清除Doc對(duì)象Set objDoc = Nothing'清除Word對(duì)象Set objWord = Nothing End Sub

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

轉(zhuǎn)載于:https://www.cnblogs.com/PPBoy/p/7158716.html

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。