Skrive til tekstfil

Hej.

Måske skulle du stille spørgsmålet under Excell. Der er en eksportfunktion, hvor du kan vælge csv, tabulator-separeret, kolonne-fil m.v.  Du kan vælge hele arket eller et markeret område.

M.v.h. Jørn

det kunne godt være, men jeg skal have indsat forskellige tekst inden den eksporteres, så ville gerne lave det hele i en macro

Du kan læse fra fil og skrive til f.eks. celle A1 og A2 på følgende måde:

  Dim MinString1 As String
  Dim MinString2 As String
  Dim FilNummer as Integer
  Filnummer = FreeFile
  Open "C:\Fil.txt" For Input As #Filnummer
  Line Input #Filnummer, MinString1 'Putter 1. linie ind i MinString1
  Line Input #Filnummer, MinString2 'Putter 1. linie ind i MinString2
  Close #Filnummer
  cells("A1").value = MinString1
  cells("A2").value = MinString2

Og skrive på følgende måde

  Dim MinString1 As String
  Dim MinString2 As String
  Dim FilNummer as Integer
  Filnummer = FreeFile
  Open "C:\Fil.txt" For Output As #Filnummer
  Print #Filnummer, cells("A1").value 'Skriver indholdet af A1 til linie 1
  Print #Filnummer, cells("A2").value 'Skriver indholdet af A2 til linie 2
  Close #Filnummer

Hvis du f.eks. vil skrive celle A
/Martin Moth

Du kan også bruge et loop:

Dim i as long

For i = 1 to 500
  Print #Filnummer, cells(i,1).value
Next i

Osv osv

Hmm jeg for en kørselsfejl 52.
filnavn eller filnummer ugyldigt.

Hvis du evt. ville fortælle _hvor_ fejlen kommer? ;o)

Husk, at hvis du både skriver og læser, skal du jo ikke Dim'me de samme variabler emre end een gang

Denne her virker perfekt - skriver indhold af celle A1 og A2 til fil.txt

Prøv at skriv noget i celle A1 og A2, og copy-paste koden

Dim FilNummer As Integer
  FilNummer = FreeFile
  Open "C:\Fil.txt" For Output As #FilNummer
  Print #FilNummer, CStr(Range("A1").FormulaR1C1)
  Print #FilNummer, CStr(Range("A2").FormulaR1C1)
  Close #FilNummer

tak for hjælen det hjalp med en genstart af pc