Konvertierungsproblem

Moderator: ModerationP

Konvertierungsproblem

Beitragvon TV-Holz » 01. Dez 2020, 09:09

Hallo liebes Forum,

ich habe ein Schnittstellenproblem.
Ich habe eine Excel Tabelle wo ich werte für eine Plattenoptimierung eintrage. Diese lasse ich dann über ein Programm Woodworks optimieren.
Meine Zuschnittsäge hat aber andere Ausleseparamater.

Hier mein Problem:

Das Feld drehbar bzw. Maserungsverlauf bei der Säge ist wie folgt aufgebaut:

Maserung Keine = 0 = drehbar
Maserung Längs = 1
Maserung Quer = 2

Woodworks arbeitet aber wie folgt:

Maserung keine = 1
Maserung Längs = 0


Folgendes habe ich mir bereits überlegt. Ich muss die Excel Datei sowieso per Button als Woodworks Datei speichern, sodass mein Programm das lesen kann.
Hier der Code dazu (den habe ich nicht selber geschrieben). Was mir helfen würde wäre folgendes: Wenn bei der Konvertierung das Feld "db" geändert wird sprich wenn
da eine 1 und 2 drinsteht muss es konvertiert werden zu 0 und wenn dort eine 0 steht muss er mir eine 1 auswerfen.

Ist das irgendwie machbar, aber nur für diese Spalte?

Code: Alles auswählen
Public Function WW_Export_Parts_XML() As String
    Dim strPartsXML As String
    Set parts_Tab = Workbooks(ThisWorkbook.Name).Sheets(partsSheetName)
    strPartsXML = "    <Teile>" & Chr(10) & Chr(13)
    partsCount = WW_PartsCount()
    For table_row = 2 To partsCount + 1
        strPartsXML = strPartsXML & "        <Teil"
        For table_col = 1 To 10
'           With parts_Tab.Cells(table_row, table_col)
              v = parts_Tab.Cells(table_row, table_col).Value
              ' Länge   Breite  Anzahl  drehbar Kante_O Kante_U Kante_L Kante_R Bauteil Auftrag
              ' <Teil l="2000" b="2000" anzahl="10" db="Y" k_o="N" k_u="N" k_l="N" k_r="N" bt="new ä" at="at" />
              Select Case table_col
                 Case 1
                     strPartsXML = strPartsXML & " l=" & Chr(34) & v & Chr(34)
                 Case 2
                     strPartsXML = strPartsXML & " b=" & Chr(34) & v & Chr(34)
                 Case 3
                     strPartsXML = strPartsXML & " anzahl=" & Chr(34) & v & Chr(34)
                 Case 4
                     strPartsXML = strPartsXML & " db=" & Chr(34) & Trim(getBoolValue(parts_Tab.Cells(table_row, table_col))) & Chr(34)
'                     strPartsXML = strPartsXML & " db=" & Chr(34) & Trim(v) & Chr(34)
                 Case 5
                     strPartsXML = strPartsXML & " k_o=" & Chr(34) & Trim(v) & Chr(34)
                 Case 6
                     strPartsXML = strPartsXML & " k_u=" & Chr(34) & Trim(v) & Chr(34)
                 Case 7
                     strPartsXML = strPartsXML & " k_l=" & Chr(34) & Trim(v) & Chr(34)
                 Case 8
                     strPartsXML = strPartsXML & " k_r=" & Chr(34) & Trim(v) & Chr(34)
                 Case 9
                     strPartsXML = strPartsXML & " bt=" & Chr(34) & Trim(v) & Chr(34)
                 Case 10
                     strPartsXML = strPartsXML & " at=" & Chr(34) & Trim(v) & Chr(34)
              End Select
'           End With
        Next table_col
        strPartsXML = strPartsXML & " />" & Chr(10) & Chr(13)
    Next table_row
    strPartsXML = strPartsXML & "    </Teile>" & Chr(10) & Chr(13)
'    MsgBox strPartsXML
    WW_Export_Parts_XML = strPartsXML
End Function
TV-Holz
 

Re: Konvertierungsproblem

Beitragvon Fen » 01. Dez 2020, 09:36

Hallo,

ohne eine kleine Beispieldatei ist der Code "mühsam":

- warum "Select Case", da die Schleifenvariable schon "1-10" ist
- was ist in Sub getBoolValue()

mfg
Fen
 

Re: Konvertierungsproblem

Beitragvon Fen » 01. Dez 2020, 09:37

Die Datei bitte als xlsx (ohne VBA), den Code hier im Fenster.
Fen
 


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: Klaus-Dieter, lupo1, Rudius, snb und 19 Gäste