Snasui Excel Forum

Code: Select all

Sub cardconfig()
    Call exportProject
End Sub

Function exportProject()
    


   'Dim fso As Object'
   Dim MyOutput As Object
   
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set MyOutput = fso.CreateTextFile("d:\testMacro\cardconfig.txt", True, True) 'Unicode=True'
   MyOutput.WriteLine ("{")
    MyOutput.WriteLine (ChrW(34) & "Graph" & ChrW(34) & ":[")


        For Y = 2 To 5

        MyOutput.WriteLine ("{")

        For X = 1 To 5

        keyValue = Cells(Y, X)

        If X = 1 Then
            MyOutput.WriteLine (ChrW(34) & "ID" & ChrW(34) & ":" & keyValue & ",")
            ElseIf X = 2 Then
                MyOutput.WriteLine (ChrW(34) & "No" & ChrW(34) & ":" & keyValue & ",")
            ElseIf X = 3 Then
                MyOutput.WriteLine (ChrW(34) & "Money" & ChrW(34) & ":" & keyValue & ",")
            ElseIf X = 4 Then
                MyOutput.WriteLine (ChrW(34) & "Name" & ChrW(34) & ":" & ChrW(34) & keyValue & ChrW(34) & ",")
            ElseIf X = 5 Then
                MyOutput.WriteLine (ChrW(34) & "Other" & ChrW(34) & ":" & ChrW(34) & keyValue & ChrW(34))
            End If
                    
        Next X
        
        If Y = 5 Then
            MyOutput.WriteLine ("}")
        Else
            MyOutput.WriteLine ("},")
        End If
    Next Y
    
   MyOutput.WriteLine ("]}")
   MyOutput.Close
   
   
End Function

Code: Select all

Sub exportProject()
   Dim MyOutput As Object
   Dim valField As Variant
   
   valField = Split("ID;No;Money;Name;Other", ";")
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set MyOutput = fso.CreateTextFile("d:\testMacro\test.txt", True, True) 'Unicode=True'
   MyOutput.writeline ("{")
   MyOutput.writeline (ChrW(34) & "Graph" & ChrW(34) & ":[")
   
    For Y = 2 To 5
        MyOutput.writeline ("{")
        For X = 1 To 5
            keyvalue = Cells(Y, X)
            If keyvalue <> "" Then
                MyOutput.writeline (ChrW(34) & valField(X - 1) & ChrW(34) & ":" & keyvalue & ",")
            End If
        Next X
        If Y = 5 Then
            MyOutput.writeline ("}")
        Else
            MyOutput.writeline ("},")
        End If
    Next Y
    
   MyOutput.writeline ("]}")
   MyOutput.Close
End Sub

Code: Select all

If keyvalue <> "" Then
    MyOutput.writeline (ChrW(34) & valField(X - 1) & ChrW(34) & ":" & keyvalue & ",")
End If