读书人

将第一个字符为quot;=quot;的字符串赋值给Exce

发布时间: 2012-02-03 22:02:47 作者: rapoo

将第一个字符为"="的字符串赋值给Excel的一个栏位中出错,怎样将等号转义,谢谢!

Test1:

Dim strTest1 as string
strTest1 = "=9 "
xlSheet.Range(Chr(65 + 3) & Format(1)) = strTest1
xlBook.SaveAs "D:\Sam.xls "
objExcel.Quit

打开excel, 这样的结果是 "9 " 而不是我想要的 "=9 "

/**************************/
Test2:
Dim strTest2 as string
strTest2 = "=? "
xlSheet.Range(Chr(65 + 3) & Format(lRecordCount + 1)) = strTest1 '这个直接报错。我想这样赋值后打开Excel是 "=? "
xlBook.SaveAs "D:\Sam1.xls "
objExcel.Quit

请帮忙告诉我一下这个等号应该如何转义, 谢谢!


[解决办法]
Dim strTest2 as string
strTest2 = " '=? "
xlSheet.Range(Chr(65 + 3) & Format(lRecordCount + 1)) = strTest2 xlBook.SaveAs "D:\Sam2.xls "
objExcel.Quit

?值中第一位加=在示自去除,估是Excel成算符了,加 'Excel把值看成一字符串

读书人网 >VB

热点推荐