Date: prev next · Thread: first prev next last
2014 Archives by date, by thread · List index

Sub Build()
Dim yaml as string  

yaml = "FieldMapping.Config:" & vbCrLf & yaml
    Dim vFile As Variant
    vFile = 
Application.GetSaveAsFilename(InitialFileName:=Sheets("SIMPLE").Cells(2, 2) 
& "_config.yaml", _
    FileFilter:="YAML Config File (*.yaml), *.xlsb, All files (*.*), *.*", _
    Title:="Save Config File As:")
    If vFile <> False Then
        Call saveFile(vFile, yaml)
        MsgBox ("File Saved")
    End If
End Sub

Sub saveFile(fileName As Variant, content As String)

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim oFile As Object
    Set oFile = fso.CreateTextFile(fileName)
    oFile.WriteLine content
    Set fso = Nothing
    Set oFile = Nothing

End Sub

To unsubscribe e-mail to:
Posting guidelines + more:
List archive:
All messages sent to this list will be publicly archived and cannot be deleted


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.