简单地说吧：我在做一个高考志愿筛选系统，其中“我想学的专业”和“我想去的城市”两项是需要手工输入的（其他项都是从下拉列表中选择的）。代码其实只是改变其中几个变量、文本框的事情，应该可以出同样的结果。但我现在碰到的问题是：在“我想学的专业”里，读取的数据正确；在“我想去的城市”里，比如B１８里的“杭州”，却读不出来，显示的是空。
“我想学的专业”的代码如下，不论有没填写，都能出正确的结果：
zy=myexcel.cells(10,2).value   &&专业
IF LEN(zy)>0  
zy1=CHRTRANC(zy,chr(41377)+chr(32),"") &&替换zy中全角、半角空格。alltrim不能删除全角空格
thisform.text1.Value=zy1
ELSE
zy1="囙艸"
thisform.text1.Value=""
ENDIF
“我想去的城市”里的代码是如下，却没读取到“杭州”：
cs=myexcel.cells(18,2).value
IF LEN(cs)>0  
cs1=CHRTRANC(cs,chr(41377)+chr(32),"") &&替换zy中全角、半角空格。alltrim不能删除全角空格
thisform.text4.Value=cs1
ELSE
cs1="囙艸"
thisform.text4.Value=""
ENDIF
"囙艸"只是找了不大常用的两个字，在城市名里找不到罢了。
问题可能出在哪里？请方家指点！！！

谢谢SDTA！斧代码就是规范、漂亮，让人看着赏心悦目，我再修改一下！

信息采集表中专业、城市等都是文本型的，要求考生只能输入内容，不能更改格式。
把.VALUE改成.TEXT 后，目前还没能解决问题，？CS１是个空白，在指定城市的第一格也没显示“杭州”。结果正确的话，应该得到：cs1=杭州，我想去的城市第一格应该显示　杭州。

我想读的专业部分，不论输入什么，都能读取并显示正确信息。基本相同的代码，在指定城市部分却取不到正确结果。郁闷

本表中，H10与C18单元格均无数据输入但查看长度去不同：
H10单元格：zy=oExcel.ActiveSheet.cells(10,8).text
　　　　　　?LEN(zy)
　　　　　　结果是.NULL.
C18单元格：cs=oExcel.ActiveSheet.cells(18,3).text
　　　　　　?LEN(cs)
            结果是10。
目测两个单元格都是空白的，没有内容输入，但查长度为何不同呢？


问题已经解决。先判断单元格是否有内容再进行后续处理。如果单元格内容为空的话，CHRTRANC(oExcel.ActiveSheet.cells(18,10).text,chr(41377)+chr(32),"")替换空格会出现缺少参数的错误。

[此贴子已经被作者于2021-3-21 16:09编辑过]

是的，谢谢你！刚开始没注意到这个问题，结果出现错误，打扰大家了！你是高手，给我解决了很多问题，非常感谢！！