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
$1.Close(False)
Set fso = Nothing
Set oFile = Nothing
End Sub