Mellemrumssepareret textfil (.prn) ombrydning af tegn over 240

Man kan f.eks. lave sin egen lille makro, som kan løse problematikken.

Public Sub WriteToFile()
    Dim sFileName As String
    Dim sLine As String
    Dim lFileNum As Long
    Dim lCol As Long
    Dim lRow As Long
   
    sFileName = "C:\WriteToFile.prn"
   
    With ActiveSheet
        lFileNum = FreeFile
        ' Create new file to write into
        Open sFileName For Output As #lFileNum
       
            For lRow = 1 To ActiveSheet.UsedRange.Rows.Count
                ' Create sLine
                For lCol = 1 To ActiveSheet.UsedRange.Columns.Count
                    sLine = .Cells(lRow, lCol).Value & " "
                Next lCol
                ' Removes the last space
                sLine = RTrim(sLine)
                ' Write line into sFileName
                Print #lFileNum, sLine
            Next lRow
       
        Close #lFileNum
    End With
End Sub

Hej Flemming, Tak. Det tager lige lidt tid inden jeg får afprøvet din macro. Er ikke så velbevandret i Excell macroer. Jeg vender tilbage.

Flemming, jeg må erkende, at jeg ikke er så skrap til dette. Jeg har prøvet at oprette en ny macro, hvor jeg har kopieret din macro tekst ind. Når jeg kører denne macro, laver den en .prn fil, men kun den sidste kolonne er med. Der er en 26 kolonner og 8200 rækker i min excel fil. Kan du ikke guide mig stille og roligt? Jeg vil godt give dig flere points, hvis du mener det løser problemet?

Point har aldrig løst noget problem. Der var en fejl i dannelsen af linien prøv denne her istedet. Du har iøvrigt gjort det rigtigt med at få den kopieret ind. Prøv igen.

Public Sub WriteToFile()
    Dim sFileName As String
    Dim sLine As String
    Dim lFileNum As Long
    Dim lCol As Long
    Dim lRow As Long
   
    sFileName = "C:\WriteToFile.prn"
   
    With ActiveSheet
        lFileNum = FreeFile
        ' Create new file to write into
        Open sFileName For Output As #lFileNum
       
            For lRow = 1 To .UsedRange.Rows.Count
                sLine = ""
                ' Create sLine
                For lCol = 1 To .UsedRange.Columns.Count
                    sLine = sLine & .Cells(lRow, lCol).Value & " "
                Next lCol
                ' Removes the last space
                sLine = RTrim(sLine)
                ' Write line into sFileName
                Print #lFileNum, sLine
            Next lRow
       
        Close #lFileNum
    End With
End Sub

Flemming, Tak for din tillid til mine macroevner! Desværre kommer prn filen stadig ikke ud som den gerne skulle. Nu bliver tekststrengen ikke ombrudt, men feltlængden er ikke fast. Det skulle gerne se sådan ud:
nummer    data1        feltdato        fornavn          efternavn
00000234000000001      00023032004    jane              musen

Jeg er i øvrigt glad for din respons. Jeg har brugt hele eftermiddagen til at søge over Internettet og læser i øjeblikket spørgsmål på MREXCELL.COM. Der er mange spørgsmål, men ingen kompetente svar. Hej Jane

Mon ikke længden er 255 og ikke 256, men den bliver afbrudt ved 240, fordi det næste felt i rækken er mere end 16 karakterer.

Hvis du vil sende mig dit ark, så laver jeg lige en makro, som løser din problematik.

Klik på mit navn og Vis brugerinfo for at finde med mail adresse.

Kære Flemming, ja tak, jeg ville sætte meget pris på hvis du ville hjælpe mig. Jeg sender dig en fil med 5 rækker. Men det kan være at jeg ikke kan komme til min mailbox i aften. Der bliver sommetider arbejdet med serveren i week-enden. I mellemtiden har jeg fundet noget interessant, her er linket. Jeg har ikke tid eller rettere kræfter til at arbejede med det før i morgen.
http://support.microsoft.com/default.aspx?scid=kb;en-us;249885
Mange hilsner og ha' en god aften. Jane

Fint - der er jo en makro på den side, som du kan bruge - prøv lige den

OK. Det vil jeg gøre i morgen. Vender lige tilbage til dig om det virker!

OK

Har afprøvet macro fra ovenstående microsoft link. Det kører udmærket og teksten bliver konverteret til en lang streng. Men der er der 2 mellemrum imellem hver celletekst. Jeg har prøvet at fjerne "space" i "select case" afsnittet, men der er stadig et mellemrum tilbage. Jeg er ikke dygtig nok til macroer. Hvordan fjerner jeg det sidste mellemrum?

Den linie der hedder    delimiter = " "  ændre du til    delimiter = ""

Det er det eneste ekstra mellemrum der laves, sådan som jeg ser det.....

Kære Flemming, Det hjalp at lave delimiter om til "". Nu virker det bare. Du får de 200 points - og et stort knus! Mange hilsner Jane og Thomas

Takker og god fornøjelse :-)