斑竹帮帮忙哦 谢谢 运行时错误'52' 文件名或者文件号错误

roych

在For内部的第一句加上：
On Error Resume Next
试试看。

gztzm

roych 发表于 2012-2-11 15:25
在For内部的第一句加上：
On Error Resume Next
试试看。

这句应慎用

Renco

在roych基础上。加上个出错处理过程 ，把出错的那条，跳过


Private Sub Command2_Click()
'引用库：
'Microsoft ActiveX Data Object Library 2.1
'Microsoft Scripting Runntime

On Error GoTo err_1 '加上出错处理


Dim rst As New ADODB.Recordset
Dim fso As New FileSystemObject
Dim fl As TextStream
Dim str()
rst.Open "select [标题],[内容] from content", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
str = rst.GetRows()
For i = 0 To rst.RecordCount - 1
Set fl = fso.OpenTextFile(CurrentProject.Path & "\" & str(0, i) & ".txt", ForAppending, True)
fl.WriteLine str(0, i) & Chr(13) & str(1, i)
fl.Close


pass_001: '加上这个跳回点

Next i





err_2:
Exit Sub

err_1:
Select Case Err.Number

   Case 52
   
   Resume pass_001  '52为名字出错,就跳过这条记录
   
   Case Else
   MsgBox Err.Number & "||" & Err.Description
   Resume err_2
End Select


End Sub

jasonxyk

Renco 发表于 2012-2-12 10:53
在roych基础上。加上个出错处理过程 ，把出错的那条，跳过

感谢这么详细，回头试试