问题1:怎样把excel中的数据(不确定是数字还是字符串)都统一转化成字符串
问题2:怎样把excel中的数据为空的字段变为空字符串

解决方案 »

  1.   

    问题1:vartostr(ExcelApp.worksheets[i].cells.Item[rint,2])
    问题2:if vartostr(ExcelApp.worksheets[i].cells.Item[rint,2])=null then
               vartostr(ExcelApp.worksheets[i].cells.Item[rint,2])=''
      

  2.   

    1:vartostr(ExcelApp.worksheets[i].cells.Item[rint,2])
    2:if vartostr(ExcelApp.worksheets[i].cells.Item[rint,2])=null then
               vartostr(ExcelApp.worksheets[i].cells.Item[rint,2])=''
    --------------------
    呵呵,接分