以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  利用excel表格导入数据，怎样去除单元格里面的数据前后的“空格”  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=30459)
--  作者：客家阿哥
--  发布时间：2013/3/28 9:49:00
--  利用excel表格导入数据，怎样去除单元格里面的数据前后的“空格”

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

谢谢~
--  作者：狐狸爸爸
--  发布时间：2013/3/28 9:59:00
--  

编码导入算了：

 

http://www.foxtable.com/help/topics/2334.htm

 

 

 

改一下代码：

 

Dim Book As New XLS.Book("c:\\test\\订单.xls")
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()
--  作者：客家阿哥
--  发布时间：2013/3/28 20:06:00
--  

谢谢！
--  作者：客家阿哥
--  发布时间：2013/4/3 8:52:00
--  
今天试了一下，不错，顺便加了个导入对话框，比较人性化

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim mg As String
    mg = dlg.FileName
    Dim Book As New XLS.Book(mg)
    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
[此贴子已经被作者于2013-4-3 8:52:19编辑过]