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

jasonxyk

补充：已上传了一个附件，这个附件是可以全部导出的。按照楼下的朋友所言，是否有更加简单的办法呢？目前使用的办法，很多数据的时候会提示错误，不知道是文件名重复 还是 文件名超长 或者是文件名非法，如果只是现有的方法上来修正的话，遇到我刚才所说的情况能否自动跳过，向下执行？

SpiderResult.rar (79.17 KB, 下载次数: 15)

2012-2-10 11:27 上传

点击文件名下载附件

错误提示：运行时错误'52'  文件名或者文件号错误

小弟用下面的代码将access中的数据每一行导出为一个txt文档，txt文档的名字为access的“标题”字段，内容为标题+作者+内容

access中有一千多天数据，导出的时候有错误提示，查看了一下总共只导出了66条数据，不知道是和原因。

求助内容：如果access中的数据有不符合的数据，能否自动跳过，继续往下执行。哪位朋友帮一下忙，我不懂这下面的代码。我都是网上找来用的。

应该就是这句出问题哦，有没有办法修改一下这个语句：    Open strFileName For Output As lngHandle


Option Compare Database
Private Sub Command0_Click()
Dim rs As Object
Dim rst As Object
Dim strT As String
Dim strFileName As String
Dim lngHandle As Long
Set rs = CreateObject("adodb.recordset")
rs.ActiveConnection = CurrentProject.Connection
rs.Open ("select distinct 标题 from content")
Set rst = CreateObject("adodb.recordset")
rst.ActiveConnection = CurrentProject.Connection
Do Until rs.EOF
    rst.Open ("select [标题],[作者],[内容] from content where 标题='" & rs(0) & "'")
    strT = rst.GetString(, , "    ", Chr(13) & Chr(10))
    rst.Close
    strFileName = CurrentProject.Path & "\" & rs(0) & ".txt"
    lngHandle = FreeFile()
    Open strFileName For Output As lngHandle
    Print #lngHandle, strT
    Close lngHandle
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Set rst = Nothing
End Sub
Private Sub Form_Close()
    DoCmd.Quit
End Sub

dzymx

是JS数据？

jasonxyk

自己顶一下 哪位朋友帮我一下忙。
我就是想用窗体导出数据，谢谢

jasonxyk

哪位朋友来帮帮忙哦

roych

搞不懂干吗这样写，其实可以更简单些的，直接把表导出到文本就可以了（TransferText)。

jasonxyk

roych 发表于 2012-2-9 18:07
搞不懂干吗这样写，其实可以更简单些的，直接把表导出到文本就可以了（TransferText)。

是每一行导出为一个txt文本，不是全部导出为一个文本

Renco

jasonxyk 发表于 2012-2-9 19:39
是每一行导出为一个txt文本，不是全部导出为一个文本

能不能发个示例的库（里面放几条示例用的数据），然后再给个导出结果的txt文件

从理论上来说，roych方法是可行的，包括每行导出一个txt

jasonxyk

Renco 发表于 2012-2-9 22:12
能不能发个示例的库（里面放几条示例用的数据），然后再给个导出结果的txt文件

从理论上来说，roych方 ...

已上传附件，请帮忙看看，谢谢

roych

Renco 发表于 2012-2-9 22:12
能不能发个示例的库（里面放几条示例用的数据），然后再给个导出结果的txt文件

从理论上来说，roych方 ...

给一段比较简单的代码，供参考（详见附件）：

1. Private Sub Command2_Click()
   
2. '需引用库：Microsoft ActiveX Data Object Library 2.1、Microsoft Scripting Runntime
   
3. Dim rst As New ADODB.Recordset
   
4. Dim fso As New FileSystemObject
   
5. Dim fl As TextStream
   
6. Dim str()
   
7. rst.Open "select [标题],[内容] from content", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
8. str = rst.GetRows()
   
9. For i = 0 To rst.RecordCount - 1
   
10. Set fl = fso.OpenTextFile(CurrentProject.Path & "" & str(0, i) & ".txt", ForAppending, True)
    
11. fl.WriteLine str(0, i) & Chr(13) & str(1, i)
    
12. fl.Close
    
13. Next i
    
14. End Sub

复制代码

代码实在过于简单，不做注释。如有需要，请回复。

jasonxyk

roych 发表于 2012-2-11 01:04
给一段比较简单的代码，供参考（详见附件）：
代码实在过于简单，不做注释。如有需要，请回复。

谢谢，不过依旧会出现”运行时错误'52'  文件名或者文件号错误 这样的提示

应该是access中“标题”字段的数据，有不符合做 txt文件的文件名的，遇到这种情况，能否自动跳过，继续往下执行。

比如txt文件重名 txt文件名不合法包括一些标点符号之类的，我想应该是这样的问题。

目前希望解决的问题是：只要遇到文件名非法的，就跳过，自动往下导出。