[求助]VB提取文字
此段VB代码为何只能提取数字型的文字，却提取不了中文的文本？请高手帮忙！
On Error Resume Next
Set acadApp = GetObject(, ".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
你用Round函数，当然单元格内的数是数字了，这个函数是对数字取四舍五入的函数。你在这句xlSheet.Cells(a, b) = Round(ptcen)之前加上一句：debug.print ptcen试一下看，肯定是可以得到中文文字的。
页:
[1]