如何使excel中某个单元格的宽度随着其字符串长度的变化而变化（AutoFitColumn）

[xcstars]

我用的是VB.NET，据说AutoFitColumn function可以做到，但是找不到具体的实例，望各位大侠给在下点化点化，谢谢。

[神之泪花]

Dim xlsObj As Excel.Application
Dim xlsWbk As Excel.Workbook
Dim xlsSheet As Excel.Worksheet

监视一下Workbook,看看有值没?

[firein]

[Quote=引用 1 楼 heng_s 的回复:]
xlsSheet.Range("A:K").EntireColumn.AutoFit()
[/Quote]

试试这样
xlsSheet.Range("A1:K1000").EntireColumn.AutoFit()

[lx_lhy]

Protected Sub SetColumnWidth(ByVal workbook As Workbook)

'Dim xlsSheet As WorkSheet = CType(workbook.worksheets(0), WorkSheet)
'worksheets默认是1，不是0
Dim xlsSheet As WorkSheet = CType(workbook.worksheets(1), WorkSheet)
xlsSheet.Range("B:K").EntireColumn.AutoFit()

End Sub

[oo渣渣oo]

xlsSheet.Range("A:K").EntireColumn.AutoFit()

[xcstars]

errormessage: 'Range' is not a member of 'Aspose.Cells.Cells'.
why?

[oo渣渣oo]

我引用的是Microsoft Excel 11.0 Object Library

你的代码前面的定义是这样的么：

Dim xlsObj As Excel.Application
Dim xlsWbk As Excel.Workbook
Dim xlsSheet As Excel.Worksheet
xlsObj = CType(CreateObject("Excel.Application"), Excel.Application)
xlsWbk = xlsObj.Workbooks().Open(FileName)
xlsSheet = CType(xlsWbk.Sheets("名单"), Excel.Worksheet)

[神之泪花]

[Quote=引用 1 楼 heng_s 的回复:]
xlsSheet.Range("A:K").EntireColumn.AutoFit()
[/Quote]

[xcstars]

我定义了一个函数为

Protected Sub SetColumnWidth(ByVal workbook As Workbook)

Dim xlsSheet As WorkSheet = CType(workbook.worksheets(0), WorkSheet)

xlsSheet.Range("B:K").EntireColumn.AutoFit()

End Sub

然后同一文件下的另外一个函数应用了这个函数，结果出现errmss：'Range' is not a member of 'Aspose.Cells.Worksheet'.

速回，谢谢