Question

VB错误代码52，帮我看看错误出哪了，高分悬赏

Private Sub Savedata_Click()
Dim today As String
Dim myfilename As String
Dim mymonth As Long
Dim myday As Long
Dim myhour As Integer
Dim myminute As Integer
If logflag = 0 Then 'when logflag=1 logdata
logflag = 1
Mainboard.MousePointer = 11 '鼠标指针属性-沙漏
If length = 0 Then
Label17.Caption = "没有采集到数据！！"
Else
Label17.Caption = "正在将采集到的数据保存在电脑硬盘！！"
End If
Savedata.Caption = "结束保存"
ElseIf logflag = 1 Then 'Input the End_Flag of the Data have logged.
logflag = 0
openfileflag = 0
Label17.Caption = "数据保存停止！！"
timmflag = 0
If length = 0 Then
Else
Write #7, 1, truedatalong, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22
Close #7
End If
Mainboard.MousePointer = 0
TimeDelay (1000)
Label17.Caption = ""
Savedata.Caption = "数据保存"
End If
End Sub

Answer 1

错误的文件名或号（错误 52）

此错误发生在访问某指定文件时。此错误有以下的原因和解决方法：
语句引用到如下的文件号或文件名：
Open 语句中没有指定或虽有指定但已经关闭。
用Open 语句中指定此文件名。注意，如果调用 Close
语句时没有参数，就会不小心关闭当前所有打开的文件，使所有的文件号无效。超出文件号范围(1 – 511)。
如果代码中会产生文件号的话，请确保产生的文件号应正确。
无效的文件名或文件号。
文件名必须遵循操作系统约定。在 Microsoft Windows 中，可使用以下的约定：文件或目录名称可以有两部分：文件名和任选性的扩展名。两部分以圆点隔开，例如，myfile.new。文件名可达 255 字符。文件名必须以字母或数字开头。它可以包含大小写字符(文件名不分大小写)，但以下的字符除外：双引号(")、撇号(')
、斜杠(/)、反斜杠(\)、冒号(:)、垂直条(|)。文件名可以包含空格。以下的名称将保留，且不能用在文件或目录上：CON、AUX、COM1、COM2、COM3、COM4、LPT1、LPT2、LPT3、PRN、NUL。例如，如果要在Open 语句中将文件名设为 PRN 的话，那么 Print # 和 Write #
语句中的缺省打印机，将会指向 Open 语句中的文件号。以下是正确的 Microsoft Windows 文件名； LETTER.DOC
My Memo.Txt
BUDGET.92
12345678.901
Second Try.Rpt

Answer 2

Write #7, 1, truedatalong, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22
Close #7

＃7文件号是在哪里打开的？

追问

我把问题补充了下，你看看

追答

还是没有看到Open语句啊！

追问

http://zhidao.baidu.com/question/508860753.html

追答

Open Val(Year(Now)) & "\data\" & myfilename & ".txt" For Output As #7

这句有问题！

Val(Year(Now)) & "\data\" & myfilename & ".txt" 只是一个文件名称，没有文件的位置信息。VB要求使用文件的绝对路径！

可以改为：
if dir(app.path &"\" & format(Now,"yyyy") & "\data\" ,vbDirectory)="" then mkdir app.path &"\" & format(Now,"yyyy") & "\data\"

Open app.path &"\" & format(Now,"yyyy") & "\data\" & myfilename & ".txt" For Output As #7

追问

问题没有解决，还是实时错误代码52

追答

7这个文件号是空闲的吗？
如果不确定就不要使用固定文件号
改用下面的方法：
dim Fp as long
fp=freefile
Open app.path &"\" & format(Now,"yyyy") & "\data\" & myfilename & ".txt" For Output As #fp
....
write #fp,...
close #fp

Answer 3

52-错误的文件名或数目