Question

我想通过vb读取word表格里面的数据，wordojb.Tables(1).Cell(2, 3).Range.Text用的这个。

然后呢，他读出来的数据后面多了个小黑点（这样的：·）
使得我想用 Select Case来判断都比较困难了。

下面是我试验的word
正文。。。。。

序号 杆塔型号 数量 其他 其他
1 110-1P-J1-18 1
2 110-1P-ZMK-23 123
3 110-1P-J3-18 422

正文。。。。

下面是我的代码

Private Sub Form_Load()
Dim wordapp As Word.Application
Dim wordijb As Word.Document
Set wordapp = CreateObject("word.application")
wordapp.Visible = True

Set wordojb = wordapp.Documents.Open("d:\1.doc")
Text1.Text = wordojb.Tables(1).Cell(2, 2).Range.Text
Text2.Text = wordojb.Tables(1).Cell(2, 3).Range.Text
For i = 1 To 20
Select Case wordojb.Tables(1).Cell(i + 1, 2).Range.Text
Case "110-1P-J1-18"
he = he + 5635.9 * wordojb.Tables(1).Cell(i + 1, 3).Range.Text
End Select
Next i
Text3.Text = he
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set wordobj = Nothing
Set wordapp = Nothing
End Sub

Answer 1

没必要保留黑点的话，可以用Replace把黑点换掉，放到某个变量里，然后用Select Case判断变量的值

追问

变量=replace（wordojb.Tables(1).Cell(2, 2).Range.Text）
Select Case 变量

这样么？

Answer 2

后面的这个点是每一个回车换行符的意思，通过Range，操作Start和End来选取你要的数据

Answer 3

能否用替换的方法去除“”，如果回答是否定的说明是其他字符。是否能用.Value替换.Text？