求教：select case 中的数据类型怎么匹配不成功？？？第一、二个case匹配不成功！！！

lxlyhu 发布于 2014-12-09 10:54， 625 次点击

Select Case TypeName(.Cells(j, i).Value)'excel单元格中的值
                 Case "string"
                    field_type(i - 1) = "char(30)"
                 Case "double"
                    field_type(i - 1) = "number"
                 Case Else
                    field_type(i - 1) = TypeName(.Cells(j, i).Value)
            End Select

4 回复

lianyicq2014-12-09 11:03

Select Case TypeName(.Cells(j, i).Value)'excel单元格中的值
                 Case "String"
                    field_type(i - 1) = "char(30)"
                 Case "Double"
                    field_type(i - 1) = "number"
                 Case Else
                    field_type(i - 1) = TypeName(.Cells(j, i).Value)
            End Select

风吹过b2014-12-09 11:21

楼上说的对，大小写。
如果你对大小写搞不定，就使用函数，全部转为大写或小写再来判断。

lcase 转为小写
ucase 转为大写

我可不是大神2014-12-09 11:50

lxlyhu2014-12-19 16:10

谢谢各位！我已经发现问题，并解决了