主题：利用excel表格导入数据，怎样去除单元格里面的数据前后的“空格”

    Dim Sheet As XLS.Sheet = Book.Sheets(0)

    Tables("防伪税控信息表").StopRedraw()

    '注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致

    Dim nms() As String = {"公司名称","法人名称","纳税人识别号","纳税人编码","公司电话"}

    '注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题

    For n As Integer = 1 To Sheet.Rows.Count -1

        Dim r As Row = Tables("防伪税控信息表").AddNew()

        For m As Integer = 0 To nms.Length - 1

            Dim s As String = Sheet(n,m).Value

            If s > "" Then

                s= s.trim()

                r(nms(m)) = s

            End If

        Next

    Next

    Tables("防伪税控信息表").ResumeRedraw()

End If