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 中,数据的回车 没带过来 怎么能实现导入的时候,带原数据的排版格式 (回车 空格)
|