Excel Macro zum erstellen von Header Files

[Bauer (Gast)]

Hallo Zusammen

Ich habe eine Excel Tabelle (.xlsx), in der ich mein Memory für 
Einstellungen verwalte. Nun würde ich gerne aus den Informationen 
mittels eines Macros eine Header Datei mit vorgefertigtem Enum 
erstellen.
Im File sollte schlussendlich so was ähnliches wie

typedef enum {
 version = 0x111,
 setting xy = 0x222
 ...
 }

stehen. Wobei die information für den Namen wie auch der zugewiesene 
Wert selbst aus der Excel Datei kommt.

Meine Frage:
Wie kann ich mir in einem Macro diesen String so zusammen bauen und 
speichern?

[deathfun (Gast)]

Hallo Bauer,

nun was genau möchtest du machen? Ich kann dir leider noch nicht ganz 
folgen.



-Möchtest du auf einen Button drücken und ein Skript baut aus deinen 
Eingaben im Excel Dokument einen String der in der Zwischenablage 
gespeichert wird? (so dass du ihm mit Strg+V einfügen kannst)

-Oder möchtest du eine bei dem Knopfdruck eine Datei erstellt wird?

-Soll vielleicht sogar die vorhandene Datei automatisch geöffnet und 
bearbeitet werden?


Gruß
deathfun

[Dennis S. (eltio)]

Vermutlich ist das hier ein guter Einstieg:
http://de.wikibooks.org/wiki/VBA_in_Excel

Gruß

[trafo (Gast)]

Geht z.B. mit den Befehlen open, print, close.

z.B. meine Q&D-Exportfunktion zum Erstellen einer LTSpice lib.

Private Sub export2ltspice()
    Dim c, r As Integer
    Dim part, tn, rn, beta, dc, hc As String
    Dim dat As String
    Dim fh As Integer
    Dim err As Integer
    
    fh = FreeFile
    Open "amt_ntc.lib" For Output As #fh
        
    With Worksheets("Export")
        For r = .Range("ex_part").Row + 1 To .UsedRange.Rows.Count   'loop through all rows
            err = False
            If IsError(Cells(r, .Range("ex_beta").Column).value) Then
                err = True
            ElseIf Cells(r, .Range("ex_beta").Column).value = "0" Then
                err = True
            End If
                
            If IsError(Cells(r, .Range("ex_dc").Column).value) Then
                err = True
            ElseIf Cells(r, .Range("ex_dc").Column).value = "0" Then
                err = True
            End If
            
            If IsError(Cells(r, .Range("ex_hc").Column).value) Then
                err = True
            ElseIf Cells(r, .Range("ex_hc").Column).value = "0" Then
                err = True
            End If
            
            If Not err Then
                part = Cells(r, .Range("ex_part").Column).value
                tn = "tn=25"
                rn = "rn=" & Cells(r, .Range("ex_rn").Column).value
                beta = "beta=" & Cells(r, .Range("ex_beta").Column).value
                dc = "dc=" & Cells(r, .Range("ex_dc").Column).value & "m"
                hc = "hc=" & Cells(r, .Range("ex_hc").Column).value & "m"
                dat = " ;" & Cells(r, .Range("ex_date").Column).value
            
        
                Print #fh, ".SUBCKT " & part & " A B TA TC TJ"
                Print #fh, "  X1  A B TA TC TJ xntc PARAMS: " _
                          & tn & " " & rn & " " & beta & " " _
                          & dc & " " & hc & " " & dat
                Print #fh, ".ENDS"
            End If
        Next r
    End With
    
    Close #fh
End Sub

[Bauer (Gast)]

Aha!
Danke an Euch, es hat geholfen.

schönes Wochenende