由网友(薄荷少女柠檬心)分享简介：我有我试图用下面的code导出到文本文件的访问查询：I have an access query which I am trying to export to a text file using the following code:DoCmd.TransferText acExportFixed, "Export...

我有我试图用下面的code导出到文本文件的访问查询：

I have an access query which I am trying to export to a text file using the following code:

DoCmd.TransferText acExportFixed, "Export Specification", _
    "Test Query", "C:UsersDocumentsTestOutput.txt", True

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

The issue I am having is: The output file "TestOutput.txt" has the data displayed with fixed width but the column headers are comma delimited. I want the column headers to be fixed width too.

你会列标题不会显示相同数据的其他人呢？

What would column headers not be displayed same as the rest of the data?

推荐答案

AFAICT，这是TransferText中不可避免的功能。它似乎缺乏任何一种内置智能地说：好吧，我们出口的acExportFixed，所以让我们来看看在导出规范和输出使用这些相同宽度的列标题定义的列宽。相反，它只是给了列名作为一个逗号分隔的列表。

AFAICT, that is an unavoidable "feature" of TransferText. It seems to lack any kind of built-in intelligence to say "OK, we're exporting as acExportFixed, so let's examine the column widths defined in Export Specification and output the column headers using those same widths". Instead it just gives the column names as a comma-separated list.

与其他一切访问，当它的默认行为不满意，您可以编写VBA code做你的方式。

As with everything else in Access, when its default behaviors are unsatisfactory, you can write VBA code to do it your way.

Const VB_FORREADING = 1
Const VB_FORWRITING = 2
Const cstrFile As String = "C:UsersDocumentsTestOutput.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