Set acadTable = acadDoc.PaperSpace.AddTable(InsertionPoint, 2, 46, 3, 20) 'Вставляем таблицу
acadTable.RegenerateTableSuppressed = True
acadTable.BreaksEnabled = True
acadTable.RepeatTopLabels = True
acadTable.TableBreakHeight = 1050
acadTable.BreakSpacing = 10
'acadTable.DeleteRows 0, 1
acadTable.SetText 0, 0, .Range("AW" & 1).value
acadTable.SetColumnWidth 0, 8 '1-й столбец
acadTable.SetColumnWidth 1, 90 '2-й столбец
acadTable.SetColumnWidth 2, 18 '3-й столбец
acadTable.SetColumnWidth 3, 45 '4-й столбец
acadTable.SetColumnWidth 4, 14 '5-й столбец
acadTable.SetColumnWidth 5, 14 '6-й столбец
acadTable.SetColumnWidth 6, 14 '7-й столбец
acadTable.SetColumnWidth 7, 14 '8-й столбец
acadTable.SetColumnWidth 8, 14 '9-й столбец
acadTable.SetColumnWidth 9, 14 '10-й столбец
acadTable.SetColumnWidth 10, 14 '11-й столбец
acadTable.SetColumnWidth 11, 14 '12-й столбец
acadTable.SetColumnWidth 12, 14 '13-й столбец
acadTable.SetColumnWidth 13, 14 '14-й столбец
acadTable.SetColumnWidth 14, 14 '15-й столбец
acadTable.SetColumnWidth 15, 14 '16-й столбец
acadTable.SetColumnWidth 16, 14 '17-й столбец
acadTable.SetColumnWidth 17, 14 '18-й столбец
acadTable.SetColumnWidth 18, 14 '19-й столбец
acadTable.SetColumnWidth 19, 14 '20-й столбец
acadTable.SetColumnWidth 20, 14 '21-й столбец
acadTable.SetColumnWidth 21, 14 '22-й столбец
acadTable.SetColumnWidth 22, 14 '23-й столбец
acadTable.SetColumnWidth 23, 14 '24-й столбец
acadTable.SetColumnWidth 24, 14 '25-й столбец
acadTable.SetColumnWidth 25, 14 '26-й столбец
acadTable.SetColumnWidth 26, 14 '27-й столбец
acadTable.SetColumnWidth 27, 14 '28-й столбец
acadTable.SetColumnWidth 28, 14 '29-й столбец
acadTable.SetColumnWidth 29, 14 '30-й столбец
acadTable.SetColumnWidth 30, 14 '31-й столбец
acadTable.SetColumnWidth 31, 14 '32-й столбец
acadTable.SetColumnWidth 32, 14 '33-й столбец
acadTable.SetColumnWidth 33, 14 '34-й столбец
acadTable.SetColumnWidth 34, 14 '35-й столбец
acadTable.SetColumnWidth 35, 14 '36-й столбец
acadTable.SetColumnWidth 36, 14 '37-й столбец
acadTable.SetColumnWidth 37, 14 '38-й столбец
acadTable.SetColumnWidth 38, 14 '39-й столбец
acadTable.SetColumnWidth 39, 14 '40-й столбец
acadTable.SetColumnWidth 40, 14 '41-й столбец
acadTable.SetColumnWidth 41, 14 '42-й столбец
acadTable.SetColumnWidth 42, 14 '43-й столбец
acadTable.SetColumnWidth 43, 14 '44-й столбец
acadTable.SetColumnWidth 44, 14 '45-й столбец
acadTable.SetColumnWidth 45, 14 '46-й столбец
For i = 1 To LastRow
acadTable.InsertRows i, 5, 1
acadTable.RegenerateTableSuppressed = True
If .Range("AW" & i + 1).value <> 0 Then
acadTable.SetText i, 0, .Range("AW" & i + 1).value
End If
If .Range("AX" & i + 1) <> 0 Then
acadTable.SetText i, 1, .Range("AX" & i + 1).value
End If
If .Range("AY" & i + 1).value <> 0 Then
acadTable.SetText i, 2, .Range("AY" & i + 1).value
End If
If .Range("AZ" & i + 1).value <> 0 Then
acadTable.SetText i, 3, .Range("AZ" & i + 1).value
End If
If .Range("BA" & i + 1).value <> 0 Then
acadTable.SetText i, 4, .Range("BA" & i + 1).value
End If
If .Range("BB" & i + 1).value <> 0 Then
acadTable.SetText i, 5, .Range("BB" & i + 1).value
End If
If .Range("BC" & i + 1).value <> 0 Then
acadTable.SetText i, 6, .Range("BC" & i + 1).value
End If
If .Range("BD" & i + 1).value <> 0 Then
acadTable.SetText i, 7, .Range("BD" & i + 1).value
End If
If .Range("BE" & i + 1).value <> 0 Then
acadTable.SetText i, 8, .Range("BE" & i + 1).value
End If
If .Range("BF" & i + 1).value <> 0 Then
acadTable.SetText i, 9, .Range("BF" & i + 1).value
End If
If .Range("BG" & i + 1).value <> 0 Then
acadTable.SetText i, 10, .Range("BG" & i + 1).value
End If
If .Range("BH" & i + 1).value <> 0 Then
acadTable.SetText i, 11, .Range("BH" & i + 1).value
End If
If .Range("BI" & i + 1).value <> 0 Then
acadTable.SetText i, 12, .Range("BI" & i + 1).value
End If
If .Range("BJ" & i + 1).value <> 0 Then
acadTable.SetText i, 13, .Range("BJ" & i + 1).value
End If
If .Range("BK" & i + 1).value <> 0 Then
acadTable.SetText i, 14, .Range("BK" & i + 1).value
End If
If .Range("BL" & i + 1).value <> 0 Then
acadTable.SetText i, 15, .Range("BL" & i + 1).value
End If
If .Range("BM" & i + 1).value <> 0 Then
acadTable.SetText i, 16, .Range("BM" & i + 1).value
End If
If .Range("BN" & i + 1).value <> 0 Then
acadTable.SetText i, 17, .Range("BN" & i + 1).value
End If
If .Range("BO" & i + 1).value <> 0 Then
acadTable.SetText i, 18, .Range("BO" & i + 1).value
End If
If .Range("BP" & i + 1).value <> 0 Then
acadTable.SetText i, 19, .Range("BP" & i + 1).value
End If
If .Range("BQ" & i + 1).value <> 0 Then
acadTable.SetText i, 20, .Range("BQ" & i + 1).value
End If
If .Range("BR" & i + 1).value <> 0 Then
acadTable.SetText i, 21, .Range("BR" & i + 1).value
End If
If .Range("BS" & i + 1).value <> 0 Then
acadTable.SetText i, 22, .Range("BS" & i + 1).value
End If
If .Range("BT" & i + 1).value <> 0 Then
acadTable.SetText i, 23, .Range("BT" & i + 1).value
End If
If .Range("BU" & i + 1).value <> 0 Then
acadTable.SetText i, 24, .Range("BU" & i + 1).value
End If
If .Range("BV" & i + 1).value <> 0 Then
acadTable.SetText i, 25, .Range("BV" & i + 1).value
End If
If .Range("BW" & i + 1).value <> 0 Then
acadTable.SetText i, 26, .Range("BW" & i + 1).value
End If
If .Range("BX" & i + 1).value <> 0 Then
acadTable.SetText i, 27, .Range("BX" & i + 1).value
End If
If .Range("BY" & i + 1).value <> 0 Then
acadTable.SetText i, 28, .Range("BY" & i + 1).value
End If
If .Range("BZ" & i + 1).value <> 0 Then
acadTable.SetText i, 29, .Range("BZ" & i + 1).value
End If
If .Range("CA" & i + 1).value <> 0 Then
acadTable.SetText i, 30, .Range("CA" & i + 1).value
End If
If .Range("CB" & i + 1).value <> 0 Then
acadTable.SetText i, 31, .Range("CB" & i + 1).value
End If
If .Range("CC" & i + 1).value <> 0 Then
acadTable.SetText i, 32, .Range("CC" & i + 1).value
End If
If .Range("CD" & i + 1).value <> 0 Then
acadTable.SetText i, 33, .Range("CD" & i + 1).value
End If
If .Range("CE" & i + 1).value <> 0 Then
acadTable.SetText i, 34, .Range("CE" & i + 1).value
End If
If .Range("CF" & i + 1).value <> 0 Then
acadTable.SetText i, 35, .Range("CF" & i + 1).value
End If
If .Range("CG" & i + 1).value <> 0 Then
acadTable.SetText i, 36, .Range("CG" & i + 1).value
End If
If .Range("CH" & i + 1).value <> 0 Then
acadTable.SetText i, 37, .Range("CH" & i + 1).value
End If
If .Range("CI" & i + 1).value <> 0 Then
acadTable.SetText i, 38, .Range("CI" & i + 1).value
End If
If .Range("CJ" & i + 1).value <> 0 Then
acadTable.SetText i, 39, .Range("CJ" & i + 1).value
End If
If .Range("CK" & i + 1).value <> 0 Then
acadTable.SetText i, 40, .Range("CK" & i + 1).value
End If
If .Range("CL" & i + 1).value <> 0 Then
acadTable.SetText i, 41, .Range("CL" & i + 1).value
End If
If .Range("CM" & i + 1).value <> 0 Then
acadTable.SetText i, 42, .Range("CM" & i + 1).value
End If
If .Range("CN" & i + 1).value <> 0 Then
acadTable.SetText i, 43, .Range("CN" & i + 1).value
End If
If .Range("CO" & i + 1).value <> 0 Then
acadTable.SetText i, 44, .Range("CO" & i + 1).value
End If
If .Range("CP" & i + 1).value <> 0 Then
acadTable.SetText i, 45, .Range("CP" & i + 1).value
End If
Next
|