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