Question

运行VBA程序，总是提示run-time error 13 type mismatch,怎么办?谢谢

我的程序是
Sub readfile(d As Date, fullfilename As String, sheet As Worksheet)
sheet.Activate
Dim record As String, dealtime As Date, dealamount As Currency
'Dim startrange As range
currow = sheet.UsedRange.Rows.Count + 1
Open fullfilename For Input As #1
While Not EOF(1)
Line Input #1, record
items = Split(record, "")
dealtime = items(0)------问题指向这里
dealamount = items(2)
range("A" & currow).Value = d
range("B" & currow).Value = dealtime
range("C" & currow).Value = dealamount
currow = currow + 1
Wend
Close #1
End Sub
谢谢你了

Answer 1

第一，你的split函数分割的分隔符没有设置，可能是你出错的问题所在
第二，如果你设置正确的分割符后，还出现这种情况的话，那么你要确保你保存的文件记录中，第一个数据是日期类型的，第三个数据是数据类型的，比如，你的文件中是用【，】来分割，那么，文件的内容应该跟下面的例子差不多：
2010/10/15，abc，3848.93
2010/11/26，jfgdsk，94376

Answer 2

VBA自动转换数据出错了,你左边的变量是个日期型的,不知道items(0)是个什么类型数据,如果你确定是可以转换为日期型的,自己强制转换一下吧.