머리글과 바닥 글이 포함 된 텍스트로 내보내기 쿼리에 액세스

Question

저는이 문제에 대한 답을 찾기 위해 답을 찾거나 최소한 템플릿을 검토했습니다.

MS Access 2007을 사용하고 있습니다. 쿼리를 고정 폭 사양의 텍스트 파일로 내 보내야합니다 (이미 완료되었습니다). 내가 겪고있는 문제는 수출에 특정 헤더와 꼬리말을 추가해야한다는 것입니다. 헤더에는 현재 날짜가 있어야하며 예고편에는 내보낼 총 항목이 있어야합니다.

나는 내 머리 위로 들러 붙어 있지만, 보통 유사한 VBA 코드와 함께 비틀 거릴 수 있습니다.

아무도 도와 줄 수 있습니까?

Answer 1

내보내기에서 추가 텍스트 줄을 정의 할 방법이 없습니다.

당신은 고정 너비 형식으로 쿼리를 내보내려면 TransferSpreadsheet 메서드를 사용한다고 가정합니다. 이는 일반적으로 필드 헤더의 유무에 관계없이 고정 폭 컨텐츠를 생성하는 올바른 방법입니다.

데이터 내용 앞뒤에 파일에 줄을 추가하려면 기존 파일을 열고 새 파일을 만들고 헤더 줄을 추가 한 다음 기존 파일의 데이터를 추가해야합니다 새 파일에 추가 한 다음 바닥 글을 추가 한 다음 두 파일을 닫습니다.

파일 작업에 기본 제공되는 VBA 함수를 사용할 수는 있지만 Scripting.Runtime 라이브러리는 파일 작업에보다 직관적이고 객체 지향적 인 방법을 제공합니다.

당신은 .. 도구의 Microsoft 스크립팅 런타임 라이브러리에 대한 참조를 참조를 추가해야합니다

..

Sub EnhanceExportedFile() 

    Const exportedFilePath As String = "C:\Foo.txt" 
    Const newFilePath As String = "C:\NewFoo.txt" 

    Dim fso As Scripting.FileSystemObject 
    Dim exportedFile As TextStream 
    Dim newFile As TextStream 
    Dim rowCount As Long 

    Set fso = New Scripting.FileSystemObject 

    Set exportedFile = fso.OpenTextFile(exportedFilePath, ForReading, False) 
    Set newFile = fso.CreateTextFile(newFilePath, True) 

    'Append the date in ISO format 
    newFile.WriteLine Format(Now, "yyyy-mm-dd") 

    'Append each line in the exported file 
    Do While Not exportedFile.AtEndOfStream 
    newFile.WriteLine exportedFile.ReadLine 
    rowCount = rowCount + 1 
    Loop 
    'Append the total exported lines 
    newFile.WriteLine rowCount 

    'Close both files 
    exportedFile.Close 
    newFile.Close 

End Sub 

Answer 2

를 사용하여 통합 쿼리. 쿼리에 필드 ID (자동 번호, 긴), 이름, 성이 있고 테이블 이름이 tablexx라고 가정 해 보겠습니다. 순차적 ID가있는 경우 다음과 같이 될 수 있습니다.

쿼리를 만듭니다. id로 0을 선택하고, id (ID (dd/mm/yyyy))를 firstname으로, ""as lastname "

및 ID로 tablexx 순서에서 (tablexx에서 SELECT COUNT (ID)) 쿼리
선택 9999999999 ID와 (당신의 예상 ID보다 훨씬 더 큰), 이름과 같은 ","LASTNAME로 ","같은 nextfield 등 등 ;

이제 세 가지 조합을 수행하십시오. 빈 줄조차도 입력 할 수 있습니다 (id = 1 등).