Sub ExportSheet2TXT()

    nStartRow = 1
    nStartCol = 1
    lIsHeader = True
    cTextQualifier = ""
    cDelimiter = ";"
    cDecimalSeparator = "."
    cFormatDateTime = "YYYY-MM-DD hh:mm:ss"
    cTypeQualifier = "#"
        
    Set wb = ActiveWorkbook
    Set sh = ActiveSheet
    Set newwb = Workbooks.Add
    Set newsh = newwb.Sheets(1)
    
    nLastRow = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row
    nLastCol = sh.Cells(1, sh.Columns.Count).End(xlToLeft).Column
    Dim aCells As Variant, aRow As Variant
    For i = nStartRow To nLastRow
        cOut = ""
        For j = nStartCol To nLastCol
            cValue = sh.Cells(i, j)
            nValueType = VarType(cValue)
            If lIsHeader And (i = 1) Then nValueType = -1
            Select Case nValueType
            Case -1
            Case vbString
                cValue = cTextQualifier & cValue & cTextQualifier
            Case vbInteger, vbLong, vbByte
                cValue = CStr(cValue)
            Case vbSingle, vbDouble, vbCurrency, vbDecimal
                cValue = Replace(CStr(cValue), Application.International(xlDecimalSeparator), cDecimalSeparator)
            Case vbBoolean
                cValue = cTypeQualifier & CStr(cValue) & cTypeQualifier
            Case vbDate
                cValue = cTypeQualifier & Format(cValue, cFormatDateTime) & cTypeQualifier
            Case Else
                cValue = ""
            End Select
            cOut = cOut & cDelimiter & CStr(cValue)
        Next
        newsh.Cells(i, 1) = Mid(cOut, 2)
    Next
    
    Set newsh = Nothing
    Application.DisplayAlerts = False
    newwb.SaveAs Filename:=(wb.FullName & "-" & sh.Name & ".dat"), FileFormat:=xlTextPrinter, _
        CreateBackup:=False, local:=True
    Application.DisplayAlerts = True
    newwb.Close savechanges:=False
    Set newwb = Nothing
    wb.Activate
    Set sh = Nothing
    Set wb = Nothing
    
End Sub