VB导WORD文档进SQL SERVER问题请教
各位大虾，
小弟初涉VB，不是很擅长，现在有一任务要用VB读WORD档进SQL SERVER，不晓得该怎样处理，麻烦各位大虾帮忙，不甚感激！
WORD文件格式如下：
PO LIST (Title)
No. PO# Part# Price Qty
1 2033125 ABCDE 12.5 10
2 2033126 EFACD 80 50
麻烦各位指点迷津，急！
大家要分也可以，能解决问题就好。
问题点数：0、回复次数：5Top
1 楼flyingZFX（卍 南无阿弥陀佛 卍）回复于 2004-08-03 09:57:06 得分 0
???????????/Top
2 楼nbshiny（冰点）回复于 2004-08-03 18:33:44 得分 0
探讨中.......Top
3 楼dongge2000（目前叫西西了）回复于 2004-08-04 08:47:41 得分 0
UPTop
4 楼jwb2004（）回复于 2004-08-04 08:57:50 得分 0
先添加对word的引用，然后参照下面的例子（读取表中的数据），也可以在word中录制宏来得到帮助
Private Sub Command1_Click()
Dim wordApp As New Word.Application
Dim fileName As String
Dim doc As New Word.Document
Dim tb As Word.Table
Dim tbCount, rowCount, colCount As Long
Dim I, J, K, M, N, P As Long
Dim str1, str2, tempStr As String
Set doc = wordApp.Documents.Open("c:\table.doc")
wordApp.Visible = True
tbCount = doc.Tables.Count
ProgressBar1.Value = 0
ProgressBar1.Max = tbCount
If tbCount > 0 Then
For I = 1 To tbCount
Set tb = doc.Tables.Item(I)
rowCount = tb.Rows.Count
colCount = tb.Columns.Count
For J = 1 To colCount
For K = 1 To rowCount
tempStr = tb.Cell(K, J).Range.Text
Next
Next
ProgressBar1.Value = I
Next
End If
doc.Close (Word.WdSaveOptions.wdDoNotSaveChanges)
wordApp.Quit
MsgBox "ok"
End Sub
Top
5 楼aygrzdhn（aygrzdhn）回复于 2004-08-18 04:17:33 得分 0
但是WORD文件中没有表格，只是比较的有规律，但是有的一个列中可能还会逗号或单引号之类的，但都只能放进一个FIELD中，不知该怎样做呢？Top
