导出查询输出到一个文本文件

Question

我有我尝试使用下面的代码导出到文本文件的访问查询：

DoCmd.TransferText acExportFixed, "Export Specification", _ 
    "Test Query", "C:\Users\Documents\TestOutput.txt", True 

我遇到的问题是：输出文件“TestOutput .txt“的数据以固定宽度显示，但列标题用逗号分隔。我想列标题也是固定的宽度。

列标题与其余数据显示的不一样？

Answer 1

AFAICT，这是TransferText不可避免的“特征”。它似乎没有任何内置智能来说“好的，我们将导出为acExportFixed，因此让我们来检查”导出规范“中定义的列宽并使用相同的宽度输出列标题。相反，它只是将列名作为逗号分隔的列表。

与Access中的其他所有内容一样，当其默认行为不令人满意时，您可以编写VBA代码以您的方式执行此操作。

Const VB_FORREADING = 1 
Const VB_FORWRITING = 2 
Const cstrFile As String = "C:\Users\Documents\TestOutput.txt" 
Const cstrHeaderRow As String = "col1 col2 etc..." 
Dim oFSO As Object 
Dim oFile As Object 
Dim strContents As String 

' do TransferText without the field names ' 
' (HasFieldNames default = False) ' 
DoCmd.TransferText acExportFixed, "Export Specification", _ 
    "Test Query", cstrFile 

Set oFSO = CreateObject("Scripting.FileSystemObject") 
' read file content into strContents string variable ' 
Set oFile = oFSO.OpenTextFile(cstrFile, VB_FORREADING) 
strContents = oFile.ReadAll 
oFile.Close 
' re-write file using cstrHeaderRow plus strContents ' 
Set oFile = oFSO.OpenTextFile(cstrFile, VB_FORWRITING) 
oFile.write cstrHeaderRow & vbCrLf & strContents 
oFile.Close 

Set oFile = Nothing 
Set oFSO = Nothing