Eksportere til txt-fil med semikolon

I Excel går du på Fil > Lagre som > Filtype: *.csv

Excel er ikke  in boldgade - Men måske kan du finde lidt inspiration her:

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

henriksteen> Filen skal være at typen "txt".

Jmugs-> jeg vil helst ikke lave det i VBA hvis jeg kan undgå det.

Hej petan

Lig denne kode i et modul

Public Sub wbNyProjektmappe()
Dim wbNyProjektmappe As Workbook

Set wbNyProjektmappe = Workbooks.Add
wbNyProjektmappe.Worksheets("Ark1").Range("A1").Value = 100
wbNyProjektmappe.SaveAs "mvh.txt"
wbNyProjektmappe.Close
MsgBox "Projektmappe er lukket."

End Sub

mvh

mvhansen

Hov den virker ikke hel

mvh

mvhansen

mvhansen-> nej, jeg har også lige prøvet, og den virker ikke.

her er en link men du vil have excel til det
det kan den også
det kan laves i vba
men jeg er ny i vba så jeg ved ikke lige hvordan
jeg kan lave så det du indtaster i en inputbox bliver skrevet til textfil
http://www.convertspot.com/download.htm

----------------------------------------
Public Sub TxtFilTest7()
Dim FilNummer As Integer
Dim FilNavn As String
Dim MedlemNr As Integer
Dim MedlemNavn As String
Dim MedlemAdresse As String

    'Unikt filnummer findes
    FilNummer = FreeFile
    FilNavn = "c:\Test\Test.txt"

Open FilNavn For Output As #FilNummer

    MedlemNr = InputBox("Medlems nr")
    MedlemNavn = InputBox("MedlemNavn")
    MedlemAdresse = InputBox("MedlemAdresse")
    Write #FilNummer, MedlemNr, MedlemNavn, MedlemAdresse
   
   
   
    Close #FilNummer
   

End Sub

mvh

mvhansen

Hvis du ikke vil bruge VBA er bedste løsning bare at omdøbe filen fra *.csv til *.txt
Det sker der intet ved.

bak-> jeg har ikke mulighed for at omdøbe filen selv, den SKAL hedde .txt.

... det kan måske slet ikke lade sig gøre.

Du kan også højerklige på filen og vælger at oppen den med notesblok
men jeg tror at bak kan lave en vba kode der kan
mvh

mvhansen

Jeg er bange for at du ikke kommer uden om VBA, hvis ikke selv du kan omdøbe filen.

VBA er også fint bare jeg ikke selv skal kode det.

prøv denne. den kan sagtens gemmes i et andet regneark.

Sub Eksport_As_TextFile()

Const Delim                As String = ";"
Dim y                      As Long
Dim x                      As Long
Dim strTemp                As String
Dim lRows                  As Long
Dim lCols                  As Long
Dim lFno                  As Long
Dim CSVFilename            As String
Dim rngOmr                As Range

  CSVFilename = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")


  lFno = FreeFile
  lRows = ActiveSheet.Cells.Find(What:="*", After:=ActiveSheet.Range("A1"), _
                                  Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, _
                                  SearchDirection:=xlPrevious, MatchCase:=False).Row
  lCols = ActiveSheet.Cells.Find(What:="*", After:=ActiveSheet.Range("A1"), _
                                  Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByColumns, _
                                  SearchDirection:=xlPrevious, MatchCase:=False).Column
 
  Set rngOmr = Range(Cells(1, 1), Cells(lRows, lCols))
  Open CSVFilename For Output As #lFno
  For x = 1 To lRows
      strTemp = ""
      For y = 1 To lCols
        strTemp = strTemp & rngOmr(x, y).Text
        If y < lCols Then
            strTemp = strTemp & Delim
        Else
            Print #lFno, strTemp
        End If
      Next

  Next
  Close #lFno

End Sub

Det er en kombination as Sjaps og min egen kode. Den vil eksportere alle celler i arket og spørge om filnavn

bak-> tak for det, jeg vender tilbage når jeg har prøvet det.

bak-> afgiv et svar hvis du vil have point.

:-)