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

ningyong58 · 发表于 2010-1-20 13:55

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 · 发表于 2010-1-20 14:06

相当于把^p替换为空

ningyong58 · 发表于 2010-1-20 15:39

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

sylun · 发表于 2010-1-20 17:40

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

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

我爱myvba · 发表于 2010-1-20 19:18

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

EXCELLMY · 发表于 2019-12-15 10:29

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

		自动登录	找回密码
密码			免费注册

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

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