Question

我确实使用vb.net创建了数据透视表。由于某种原因，我无法设置数据透视表的格式或将列宽设置为自动调整大小。

我在这里尝试过

xlBook.ActiveSheet.PivotTableWizard(Excel.XlPivotTableSourceType.xlDatabase, xlSheet.Range("A1:J" & ukupno))
' Creating pivot table here ...
With xlBook.ActiveSheet.PivotTables(1).PivotFields("Data")
    .Caption = "Zarade"
End With

xlApp.CommandBars("PivotTable").Visible = False
xlBook.ActiveSheet.PivotTables(1).TableStyle2 = "PivotStyleMedium9"

xlSheet.Columns.AutoFit()
xlSheet.Range("A1:J1").EntireColumn.AutoFit()
With xlSheet

    .PageSetup.Zoom = False
    .PageSetup.FitToPagesWide = 1
    .PageSetup.FitToPagesTall = False

End With
xlSheet.Range("D3:J" & ukupno).NumberFormat = "#,####0.00_);[Red](#,####0.00)"

xlApp.Visible = True

这些都没有为我工作：excel-auto-fit-column-in-vb-net

编辑：也尝试过

xlSheet.Range("A:F").Columns.AutoFit()
xlSheet.Range("A:F").ColumnWidth = AutoSize

Answer 1

我正在使用xlSheet添加数据透视表。由于某些原因，将列格式发布为xlSheet不会影响。

所以我将方法更改为

xlBook.Worksheets("Pivot").Range("C:F").NumberFormat = "#,##0.00_);[Red](#,##0.00)"

这解决了我的问题。

VB.NET Excel自动调整栏

1 个答案: