svhs/Robotizalunk---doksikeszito
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

working fejléc for excel

Browse Source
This commit is contained in:
Márk Vitarius
2025-06-26 10:38:19 +02:00
parent 9d8e9864ae
commit 2885e38ee5
1 changed files with 35 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

80
Dokumentáció Készítő 3/MainWindow.xaml.vb
View File

@@ -1121,63 +1121,53 @@ Public Class MainWindow
' NameT = CellToString(table, 3, 5)
' MachineName = CellToString(table, 3, 7)
' SHMDate = CellToString(table, 4, 7)
SubMachineName = CellToString(table, 2, 7)
' SubMachineName = CellToString(table, 2, 7)
' AudiNum = CellToString(table, 1, 7)
'A fejléc kitöltése
' xlWorkSheet.Cells(1, 5) = SHMNum
' xlWorkSheet.Cells(4, 10) = SHMNum
' xlWorkSheet.Cells(3, 5) = NameT
' xlWorkSheet.Cells(4, 5) = NameT
' xlWorkSheet.Cells(3, 7) = MachineName
' xlWorkSheet.Cells(4, 7) = SHMDate
'xlWorkSheet.Cells(4, 9) = SHMDate
' xlWorkSheet.Cells(2, 7) = SubMachineName
' End If
'A fejléc kitöltéseű
xlWorkSheet.Cells(1, 4) = CellToString(table, 1, 4) 'rajszam
xlWorkSheet.Cells(1, 5) = CellToString(table, 1, 5) 'rajszam
xlWorkSheet.Cells(1, 7) = CellToString(table, 1, 7) 'megnevezés
xlWorkSheet.Cells(1, 6) = CellToString(table, 1, 6) 'megnevezés
xlWorkSheet.Cells(1, 10) = CellToString(table, 3, 5) 'tervező
xlWorkSheet.Cells(1, 9) = CellToString(table, 3, 1) 'tervező
xlWorkSheet.Cells(2, 5) = CellToString(table, 2, 5) 'gyártó
xlWorkSheet.Cells(2, 1) = CellToString(table, 2, 1) 'gyártó
xlWorkSheet.Cells(2, 7) = CellToString(table, 2, 7) 'projektszám
xlWorkSheet.Cells(2, 6) = CellToString(table, 2, 6) 'projektszám
xlWorkSheet.Cells(2, 10) = CellToString(table, 3, 7) 'dátum
xlWorkSheet.Cells(2, 9) = CellToString(table, 3, 6) 'dátum
xlWorkSheet.Cells(3, 1) = CellToString(table, 4, 1) 'lsz
xlWorkSheet.Cells(3, 2) = CellToString(table, 4, 2) 'po
xlWorkSheet.Cells(3, 3) = CellToString(table, 4, 3) 'db
xlWorkSheet.Cells(3, 4) = CellToString(table, 4, 4) 'kp
xlWorkSheet.Cells(3, 5) = CellToString(table, 4, 5) 'megnevezes
xlWorkSheet.Cells(3, 6) = CellToString(table, 4, 6) 'rajzszam
xlWorkSheet.Cells(3, 7) = CellToString(table, 4, 7) 'gyarto
xlWorkSheet.Cells(3, 8) = CellToString(table, 4, 8) 'anyagminoseg
xlWorkSheet.Cells(3, 9) = CellToString(table, 4, 9) 'méret
xlWorkSheet.Cells(3, 10) = CellToString(table, 4, 10) 'megjegyzes
End If
'
If namingsyntax = "stefani" Then
xlWorkSheet.Cells(1, 7) = ""
ElseIf namingsyntax = "audi" Then
xlWorkSheet.Cells(1, 7) = AudiNum
Else
Try
Dim tempparam As String = ""
ReadParam(model1, "BESTELLER", tempparam)
xlWorkSheet.Cells(1, 7) = tempparam
Catch ex As Exception
xlWorkSheet.Cells(1, 7) = " "
End Try
End If
'Delete useless cells
xlWorkSheet.Range(xlWorkSheet.Cells(RowCount + 6, 1), xlWorkSheet.Cells(3000, 10)).Clear()
If namingsyntax = "audi" = True Then
xlApp.Run("Atalakitas_doksihoz")
'Check for hianyzik in "Herstellaradressen
xlWorkSheet = xlWorkBook.Worksheets("Herstelleradressen")
ddas = IsNothing(xlWorkSheet.Range(xlWorkSheet.Cells(1, 1), xlWorkSheet.Cells(100, 10)).Find("#HIÁNYZIK"))
' If ddas = False Then
'End If
End If
If xlstype = "hanon" Then
xlApp.Run("Atalakitas_doksihoz_hanon")
End If
'Save and close, set display alerts back to true
xlWorkBook.Save()