excel VBA读word表格，涉及到""?

ningyong58

Sub lss()
  Dim mDoc As Word.Document
  Dim wordApp As Word.Application
  Set wordApp = GetObject(, "Word.Application")
  Set mDoc = wordApp.ActiveDocument
  Dim tt As Word.Table
  On Error Resume Next
  nn = mDoc.Tables.Count
  ''
  For ii = 1 To nn
    With mDoc.Tables(ii)
      For kk1 = 1 To .Range.Rows.Count
        For kk2 = 1 To .Range.Columns.Count
          'Debug.Print .Style, .AutoFormatType, .Range.Columns.Count, .Range.Rows.Count, .NestingLevel, .ID
          'ThisWorkbook.Sheets("Sheet1").Cells(kk1, kk2) = .Cell("Row:=" & kk1, "Column:=" & kk2).Range.Text
          ThisWorkbook.Sheets("Sheet1").Cells(kk1, kk2) = Left(.Cell(kk1, kk2).Range.Text, Len(.Cell(kk1, kk2).Range.Text) - 1)
        Next kk2
      Next kk1
    End With
  Next ii
End Sub

ThisWorkbook.Sheets("Sheet1").Cells(kk1, kk2) = .Cell("Row:=" & kk1, "Column:=" & kk2).Range.Text
这个字符串尾部就会有""
现在的解决方法是len的方法来去掉尾部的""
ThisWorkbook.Sheets("Sheet1").Cells(kk1, kk2) = Left(.Cell(kk1, kk2).Range.Text, Len(.Cell(kk1,
还有一种方法
Range("k" & r) = Replace(.Cell(4, 4).Range.Text, vbCr & "", "")

问各位大侠的问题是 vbCr & "",是什么意思????

cflood

相当于把^p替换为空

ningyong58

此帖所提问题是""是不是在Excel VBA读word数据时必须要产生??
为什么?
""在word代表什么？

sylun

原帖由 ningyong58 于 2010-1-20 15:39 发表
""在word代表什么？

代表Chr(7) 。我想，“Chr(13) & Chr(7)”相当于单元格结束标记。

我爱myvba

楼上很正确，记得我用一段代码遍历单元格内容时，按F8键一步步观察内容，发现每读完一个单元格的内容后，后面紧接着的就是一个黑点，当时我就想，这是不是单元格的结束标记。

EXCELLMY

With mDoc.Tables(ii)
      For kk1 = 1 To .Range.Rows.Count