access 宏 导出至txt为什么会有虚线？

penia

C:\Users\szd\Desktop.QQ图片20140512114748
查询后，选择带格式，导出的，输出后就有虚线
查询后如果不选择带格式导出，是没有虚线的，但是输出的结果是未查询的原表！
如何去掉虚线？
输出宏：DoCmd.OutputTo acOutputQuery, "1查询", "MS-DOSText(*.txt)", "d:\“1”.txt", False, "", 0

penia

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|        0111 |          22 |       .5289 |        .019 |             |             |             |             |             |             |             |        1.13 | 83          |
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|        0222 |          23 |       .5503 |         .02 |             |             |             |             |             |             |             |             |             |

admin

有个笨的办法
替换 文本文件 所有  “--------------------------” 为空

penia

admin 发表于 2014-5-15 12:27
有个笨的办法
替换 文本文件 所有  “--------------------------” 为空

方法是可以，数据太多了，大神有没有查询 输出 至txt的vba，

penia

admin 发表于 2014-5-15 12:27
有个笨的办法
替换 文本文件 所有  “--------------------------” 为空

'------------------------------------------------------------
' 宏2
'
'------------------------------------------------------------
Function 宏2()
On Error GoTo 宏2_Err

    DoCmd.OpenQuery "产品查询", acViewNormal, acEdit
    DoCmd.ApplyFilter "", "[产品查询]![JH]=[Forms]![查询统计]![产品]", "根据产品输出数据"


宏2_Exit:
    Exit Function

宏2_Err:
    MsgBox Error$
    Resume 宏2_Exit

End Function


'------------------------------------------------------------
' 宏2_Sub1
'
'------------------------------------------------------------
Function 宏2_Sub1()
On Error GoTo 宏2_Sub1_Err

    DoCmd.OutputTo acOutputQuery, "产品查询", "MS-DOSText(*.txt)", "D:\1.txt", False, "", , acExportQualityScreen


宏2_Sub1_Exit:
    Exit Function

宏2_Sub1_Err:
    MsgBox Error$
    Resume 宏2_Sub1_Exit

End Function
最近刚接触vba，请教一下，最后的输出怎么改一下，可以输出普通txt呢？

zpy2

用Fso，writeline，一行一行写入文本文件可以吗？