Undgå en tom linje nederst i en tekstfil

Du kan evt. smide din kode her, så vi kan se, hvad du gør, så bliver det nok nemmere at hjælpe dig.

Jeg har brugt nedenstående kode:

Sub Tekstfil()

EksportAsTxt "c:\test.txt", Selection

End Sub


Sub EksportAsTxt(StrFileName As String, RngOmr As Range)

Const Delimiter      As String = ","
Dim x                As Long
Dim y                As Long
Dim TxtStr          As String
Dim AntalRows        As Long
Dim AntalCols        As Long
Dim Filno            As Long

Filno = FreeFile
AntalRows = RngOmr.Rows.Count
AntalCols = RngOmr.Columns.Count
Open StrFileName For Output As #Filno

For x = 1 To AntalRows
    TxtStr = ""
    For y = 1 To AntalCols
        TxtStr = TxtStr & RngOmr(x, y).Text
        If y < AntalCols Then
            TxtStr = TxtStr & Delimiter
        Else
            Print #Filno, TxtStr
        End If
    Next
Next
Close #Filno

End Sub

Jeg vil mene, at din blanke ekstra linie skyldes, at du afslutter med en "Delimiter" uden at have noget efter den, hvorfor jeg ville fjerne den sidste "Delimiter" inden print..

Det kunne se sådan ud:

Else
  TxtStr = Left(TxtStr, Len(TxtStr) - Len(Delimiter))
  Print #Filno, TxtStr
End If

Det fungerer desværre ikke. Jeg afslutter ikke linjen med en "Delimiter" - der skrives kun en delimiter hvis der er flere kolonner.

Det kan jeg egenlig god se  y < AntalCols

Det er noget med, at der engang var en fejl i Excel... hvordan har du tildelt værdi til RngOmr? via UsedCells?

Hvis man f.eks. har skrevet i en række og slettet indholdet igen, så tæller den nu og da med i UsedCells.

Kan du smide den kode du har, der hvor du tildeler RngOmr en værdi?

Der er ikke noget kode - brugeren markerer området der skal udlæses og kalder makroen.

Nu er jeg blevet nysgerrig.. for det sker faktisk også for mit lille add-in, som gør noget tilsvarende... hmm spændende!

Prøv at se her http://www.microsoft.com/technet/scriptcenter/resources/qanda/jan06/hey0103.mspx

Det ser ud til at det er dét der skal til. Tak for hjælpen.