Notice: This website is an unofficial Microsoft Knowledge Base (hereinafter KB) archive and is intended to provide a reliable access to deleted content from Microsoft KB. All KB articles are owned by Microsoft Corporation. Read full disclaimer for more details.
View products that this article applies to.
Last Name, First Name, Address, City, State, Zip Code John,Smith,1 Main St.,Seattle,WA,12345 Jane,Doe,2 East Rd,Charlotte,NC,52631 Tom,Jones,3 West Cir.,Tuscon,AZ,36258
Bill,Adams,6 Elm Ln.,Seattle,WA,85692 Sue,Thompson,33 Maple Ct.,Las Colinas,TX,58692 Jerry,Brown,32 Main Rd.,Tuscon,AZ,96524 Pamela,Smith,88 Rain Rd.,Charlotte,NC,89526
Sub AppendFiles1()
Dim SourceNum As Integer
Dim DestNum As Integer
Dim Temp As String
' If an error occurs, close the files and end the macro.
On Error GoTo ErrHandler
' Open the destination text file.
DestNum = FreeFile()
Open "DEST.TXT" For Append As DestNum
' Open the source text file.
SourceNum = FreeFile()
Open "SOURCE.TXT" For Input As SourceNum
' Include the following line if the first line of the source
' file is a header row that you do now want to append to the
' destination file:
' Line Input #SourceNum, Temp
' Read each line of the source file and append it to the
' destination file.
Do While Not EOF(SourceNum)
Line Input #SourceNum, Temp
Print #DestNum, Temp
Loop
CloseFiles:
' Close the destination file and the source file.
Close #DestNum
Close #SourceNum
Exit Sub
ErrHandler:
MsgBox "Error # " & Err & ": " & Error(Err)
Resume CloseFiles
End Sub
Last Name, First Name, Address, City, State, Zip Code John,Smith,1 Main St.,Seattle,WA,12345 Jane,Doe,2 East Rd,Charlotte,NC,52631 Tom,Jones,3 West Cir.,Tuscon,AZ,36258 Bill,Adams,6 Elm Ln.,Seattle,WA,85692 Sue,Thompson,33 Maple Ct.,Las Colinas,TX,58692 Jerry,Brown,32 Main Rd.,Tuscon,AZ,96524 Pamela,Smith,88 Rain Rd.,Charlotte,NC,89526
Keywords: KB213642, kbprogramming, kbhowto, kbdtacode