以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  导入的格式问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86037)
--  作者：lingyun00800
--  发布时间：2016/6/8 14:40:00
--  导入的格式问题
 Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim book As new XLS.Book(dlg.FileName)
    Dim sheet As XLS.Sheet = book.Sheets(0)
   
        If sheet(i ,1).Text = "已缴合计" Then
            Dim aa As String = sheet(i, 10).text
           dr(”第一行”) = aa
           
           
        End If
    Next
End If

用上面的方式导入数据后，发现原excel 中，数据的回车 没带过来
怎么能实现导入的时候，带原数据的排版格式 （回车  空格）
--  作者：大红袍
--  发布时间：2016/6/8 16:07:00
--  

试试这样

 

    If sheet(i ,1).Text = "已缴合计" Then
        Dim aa As String = sheet(i, 10).text
        aa = aa.Replace(vbcrlf, chr(11))
        aa = aa.replace(chr(13), chr(11))
        aa = aa.replace(chr(10), chr(11))
        dr("第一行") = aa
    End If