Is it possible to create an automated invoice register in Excel?

[marianewb]

I'm supposed to create a platform that provides me with a .txt ansi formated file from my invoice register. Does anyone around here has any idea how to this? Or maybe even how to start learning how to format in ANSI for dummies from an invoice register created in excel?

I'm super new to using excel to begin with but i'm trying to figure out if i can't really learn this on my own of if I will need a programmer for this.

Look forward to hearing back from ANYONE!

 

[James006]

Hi,

As you have probably guessed it ... you are not the only one who is asking this question ... :wink:

As a matter of fact, there are plenty of different solutions ...

My recommendation would be the solution designed by John McGimpsey ...

http://www.mcgimpsey.com/excel/udfs/sequentialnums.html

Hope this will help

 

[Logit]

.
If I correctly understand your request, you are wanting to save an Excel sheet as a text file ?

These two macros will accomplish that. The text files are saved in the same location as the workbook. You will only need to run
one of these macros to create the text file. You choose which one although they both do the same thing ... Both macros save all sheets in the workbook
as a text. If you only require one sheet, the code can be ammended.

Option Explicit


Sub textSave()
Dim Ws As Worksheet, wsName As String
    Application.ScreenUpdating = False
    For Each Ws In ThisWorkbook.Worksheets
        wsName = Ws.Name
        Ws.Copy
        ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & wsName & ".txt", FileFormat:=xlTextMSDOS, CreateBackup:=False
        ActiveWorkbook.Close False
    Next Ws
    Application.ScreenUpdating = True
End Sub





Sub Export_Sheets_To_Text_Files()
    Dim Ws          As Worksheet
    Dim strFile     As String
     
     
    With Application
        .ScreenUpdating = False
        For Each Ws In .ActiveWorkbook.Worksheets
            Ws.Copy
            strFile = ThisWorkbook.Path & "\" & Ws.Name & ".txt"
            .ActiveWorkbook.SaveAs Filename:=strFile, FileFormat:=xlText
            .ActiveWorkbook.Saved = True
            .ActiveWorkbook.Close
        Next Ws
        .ScreenUpdating = True
    End With
     
    MsgBox "Done...", 64
End Sub