VB Open 提示 文件己打开

Private Sub Command2_Click()

plcW = Module2.PLCWriteCount
'保存参数
'On Error GoTo errH

CommonDialog1.Filter = "ldq| *.ldq"
CommonDialog1.ShowSave
Dim Freenum As Integer

Print CommonDialog1.FileName

Freenum = FreeFile
close all'加上这句,还不行就重启下电脑- -|||一定行
Open CommonDialog1.FileName For Output As Freenum
Dim bFor As Integer
For bFor = 0 To (Module2.HeatCount * 2 + 6 + plcW)
Print #Freenum, Module2.RecipeDatat(bFor)
Next bFor
Close #Freenum

Exit Sub
'errH:
'Exit Sub

End Sub

这里看不出，找找别的地方是否打开了文件没有相应Close关闭它。

在保存之前加个判断。。