实时错误 6,数据溢出怎么改
代码如下:Dim a As String
Dim b As String
Open sklujing + wenjianm For Input As #1 '读预处理前的实况数据文件
Line Input #1, a
a = Mid(a, 23)
If a Like "TEMP" Then
i = 1
Do Until EOF(1)
Line Input #1, a
b = Mid(a, 7, 10)
MsgBox b
wenjianm1 = Mid(a, 7, 10) & ".txt" '用时间给分解后实况资料命名
Open sklujing1 + wenjianm1 For Output As b
i = i + 1
Print #b, a
Loop
Close #1
Else: MsgBox "非法实况温度资料"
Close #1
Exit Sub
End If
文件内容为:IIIII OBSTIME LAT LON TEMP
53478 20130920000000 400000 1122700 7.9
53478 20130920030000 400000 1122700 18.0
53478 20130920060000 400000 1122700 19.6
53478 20130920090000 400000 1122700 17.6
53478 20130920120000 400000 1122700 15.9
53478 20130920150000 400000 1122700 13.5
53478 20130920180000 400000 1122700 11.5
53478 20130920210000 400000 1122700 6.6
53478 20130921000000 400000 1122700 9.3
...
我是要把文件按时间分成不同的txt文档,程序在“Open sklujing1 + wenjianm1 For Output As b”报错,本来以为文件是规律的,每个站点88行,用的mod88标记b,结果执行后发现有的站点信息缺几个时间点,就想到直接用时间标记,但是数据溢出了,求各位大神帮忙看看怎么改!