gem ark som csv-fil automatisk

er det knappen eller funktionen du mangler

det er funktionen, altså vba koden, jeg vil have det lavet, så man bare klikker på en knap og så bliver der oprettet en csv fil med med den data der er i kolonnerne i arket, og de forskellige kolonner skal være semikolonseperaret

Måske noget i stil med det her.

Sub OpretFil()
  Dim c As Object
  Dim lPath As String
  Dim lStr As String
  Dim lFNo As Integer
  Dim lRow As Long
  lPath = "C:\Temp\MinFil.csv"
  lFNo = FreeFile
  Open lPath For Output As #lFNo
  For Each c In Selection
    If lRow < c.Row And lStr <> "" Then
      Print #lFNo, lStr
      lStr = ""
    End If
    If lStr = "" Then
      lStr = c
    Else
      lStr = lStr & ";" & c
    End If
    lRow = c.Row
  Next c
  Close #lFNo
End Sub

hmm...ser interessant ud, have ikke tænkt på sådan en løsning, men vil klart prøve den. skal den bare køres ind i arket?

den virker sku, sejt, fed og simpel løsning, svar så der point

Læg koden i et modul.
Tilpas filnavn.
Tilpas ark og område hvor data skal komme fra.
Kald den som en almindelig makro.

Jeg har lige tilpasset koden lidt.
Sidste række kom ikke med i filen.

Sub OpretFil()
  Dim c As Object
  Dim lPath As String
  Dim lStr As String
  Dim lFNo As Integer
  Dim lRow As Long
  lPath = "C:\Temp\MinFil.csv" ' Navnet på filen der skal oprettes
  lFNo = FreeFile
  Open lPath For Output As #lFNo
  For Each c In Sheets("Sheet1").Range("A1:B10") ' Det ark og område der skal puttes i filen
    If lRow < c.Row And lStr <> "" Then
      Print #lFNo, lStr
      lStr = ""
    End If
    If lStr = "" Then
      lStr = c
    Else
      lStr = lStr & ";" & c
    End If
    lRow = c.Row
  Next c
  Print #lFNo, lStr ' For at få sidste række med i filen
  Close #lFNo
End Sub

Jeg sad selv og kiggede på saveas, der ville kræve at man kopierer data over i en ny workbook, som man så gemmer som en semikolon sepereret fil. Lidt besværligt.

Ideén til det her kom fra følgende spørgsmål.
http://www.eksperten.dk/spm/492565

Husk lige og få tredie sidste linie med.

  Next c
  Print #lFNo, lStr ' For at få sidste række med i filen
  Close #lFNo
End Sub

Ellers får du ikke det hele med over i filen.

Jeg samler ikke på point, så dem beholder du bare.

Du kan jo også lige kigge forbi

http://www.eksperten.dk/spm/619269

okay, tak