Foxtable(狐表)用户栏目专家坐堂 → 利用excel表格导入数据,怎样去除单元格里面的数据前后的“空格”


  共有7959人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
客家阿哥
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:822 积分:5954 威望:0 精华:0 注册:2012/10/24 15:01:00
利用excel表格导入数据,怎样去除单元格里面的数据前后的“空格”  发帖心情 Post By:2013/3/28 9:49:00 [只看该作者]

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

谢谢~


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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()


 回到顶部
帅哥哟,离线,有人找我吗?
客家阿哥
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:822 积分:5954 威望:0 精华:0 注册:2012/10/24 15:01:00
  发帖心情 Post By:2013/3/28 20:06:00 [只看该作者]

谢谢!


 回到顶部
帅哥哟,离线,有人找我吗?
客家阿哥
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:822 积分:5954 威望:0 精华:0 注册:2012/10/24 15:01:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
muhua
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2013/4/3 8:56:00 [只看该作者]

用户已被锁定

 回到顶部