From 2885e38ee599359b69cada5e35f1d62f9c5789c7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?M=C3=A1rk=20Vitarius?= Date: Thu, 26 Jun 2025 10:38:19 +0200 Subject: [PATCH] =?UTF-8?q?working=20fejl=C3=A9c=20for=20excel?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Dokumentáció Készítő 3/MainWindow.xaml.vb | 80 ++++++++++------------- 1 file changed, 35 insertions(+), 45 deletions(-) diff --git a/Dokumentáció Készítő 3/MainWindow.xaml.vb b/Dokumentáció Készítő 3/MainWindow.xaml.vb index a2739ae..713426d 100644 --- a/Dokumentáció Készítő 3/MainWindow.xaml.vb +++ b/Dokumentáció Készítő 3/MainWindow.xaml.vb @@ -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()