function f_SingleChange(str) '转换单引号 f_SingleChange=replace(str,chr(34),"'") End function