首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

2012-02-03 
将第一个字符为的字符串赋值给Excel的一个栏位中出错,怎样将等号转义,谢谢! Test1:DimstrTest1asstring

将第一个字符为"="的字符串赋值给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會把值看成一個字符串

热点排行