1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
Dim excel_file As New excel.Application
excel_file.Workbooks.Add()
For i = 0 To flx_gener_paie.Rows - 1
excel_file.Range("A".Trim + (i + 1).ToString.Trim).Value = mat
excel_file.Range("B".Trim + Str(i + 1).Trim).Value = name
excel_file.Range("C".Trim + Str(i + 1).Trim).Value = flx_gener_paie.get_TextMatrix(i, 2).ToString
excel_file.Range("D".Trim + Str(i + 1).Trim).Value = flx_gener_paie.get_TextMatrix(i, 3).ToString
excel_file.Range("E".Trim + Str(i + 1).Trim).Value = flx_gener_paie.get_TextMatrix(i, 4).ToString
excel_file.Range("F".Trim + Str(i + 1).Trim).Value = flx_gener_paie.get_TextMatrix(i, 5).ToString
excel_file.Range("G".Trim + Str(i + 1).Trim).Value = flx_gener_paie.get_TextMatrix(i, 6).ToString
excel_file.Range("H".Trim + Str(i + 1).Trim).Value = flx_gener_paie.get_TextMatrix(i, 7).ToString
excel_file.Range("I".Trim + Str(i + 1).Trim).Value = flx_gener_paie.get_TextMatrix(i, 8).ToString
excel_file.Range("J".Trim + Str(i + 1).Trim).Value = flx_gener_paie.get_TextMatrix(i, 9).ToString
Next |
Partager