主题：DefaultColumnWidth的用法

设置列宽

Tables("表A").grid.cols("第一列").width = 200

得到列宽

Dim n = Tables("表A").grid.cols("第三列").width
If n = -1 Then n = 98
msgbox(n)

Dim Book As New XLS.Book("d:\test.xls") '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

msgbox(sheet.rows(0).height)
msgbox(sheet.cols(0).width)

用vba来做比较好

Dim App As New MSExcel.Application
try
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Dim Rg As MSExcel.Range = Ws.UsedRange
    For i As Integer = 1 To rg.Columns.count
        msgbox(rg.Columns(i).width)
    Next
catch ex As exception
    msgbox(ex.message)
    app.quit
End try