[求助]VB提取文字

gzxl

 

此段VB代码为何只能提取数字型的文字，却提取不了中文的文本？

请高手帮忙！

 

On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application.16")
If ERR Then
ERR.Clear
Set acadApp = CreateObject("AutoCAD.Application.16")
If ERR Then End
End If
acadApp.Visible = True
Dim acadDoc As AcadDocument
acadApp.WindowState = acMax
Set acadDoc = acadApp.ActiveDocument

Set excel = GetObject(, "Excel.Application")
Set xlSheet = excel.ActiveWorkbook.Sheets("sheet1")

Dim a As Double
Dim b As Double
a = TextBox1.Text
b = TextBox2.Text

acadDoc.Utility.GetEntity returnObj, basepnt, "选择文字:"
If returnObj.ObjectName = "AcDbText" Or returnObj.ObjectName = "AcDbMText" Then
ptcen = returnObj.TextString
returnObj.Update
xlSheet.Cells(a, b) = Round(ptcen)
End If

wwswwswws

你用Round函数，当然单元格内的数是数字了，这个函数是对数字取四舍五入的函数。你在这句xlSheet.Cells(a, b) = Round(ptcen)之前加上一句：debug.print ptcen试一下看，肯定是可以得到中文文字的。