用vb让txt文件转换excel文件的教程
发布时间:2023-09-30 22:59:15
在Excel的录入过程中经常需要用到TXT转Excel,其中可以用VB把TXT文件换成Excel,具体要怎么做呢?下面是小编带来的关于用vb让txt文件转换excel文件的教程,希望阅读过后对你有所启发!
用vb让txt文件转换excel文件的教程:
vb让TXT转换excel步骤:下面是导入到datatable的例子
Dim openbox As New OpenFileDialog
openbox.ShowDialog()
Dim filename As String = openbox.FileName
Dim myConn As New System.Data.OleDb.OleDbConnection
Dim strComMain As String = " SELECT * FROM [12$]"
Try
myConn.ConnectionString = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source =" & filename & ";Extended Properties=""Excel 4.0;HDR=no"""
myConn.Open()
Catch ex As Exception
Try
myConn.ConnectionString = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source =" & filename & ";Extended Properties=""Excel 1.0;HDR=no"""
myConn.Open()
Catch ex1 As Exception
Try
myConn.ConnectionString = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source =" & filename & ";Extended Properties=""Excel 8.0;HDR=no"""
myConn.Open()
Catch ex2 As Exception
Try
myConn.ConnectionString = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source =" & filename & ";Extended Properties=""Excel 3.0;HDR=no"""
myConn.Open()
Catch ex3 As Exception
Try
myConn.ConnectionString = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source =" & filename & ";Extended Properties=""Excel 2.1;HDR=no"""
myConn.Open()
Catch ex4 As Exception
Try
myConn.ConnectionString = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source =" & filename & ";Extended Properties=""Excel 5.0;HDR=no"""
myConn.Open()
Catch ex5 As Exception
MsgBox(ex5.Message)
End Try
End Try
End Try
End Try
End Try
End Try
Dim myCommandMain As New System.Data.OleDb.OleDbDataAdapter(strComMain, myConn)
Dim myData = New DataTable
Try
myCommandMain.Fill(myData)
Catch ex As Exception
MsgBox(ex.Message)
Finally
myConn.Close()
End Try
猜你喜欢
- 在复制单元格时,我们可以选择复制所有单元格或可见的单元格,为什么这样说呢?那是因为工作表中可能会存在一些未显示的单元格、行或列等等,在这种情
- excel中翻译功能怎么使用如下图所示,只需要选取单元格,点审阅 -“翻译”,即可打开右侧的翻译窗口,单元格的英文段落已翻译成中文,结果会显
- 当我们的Excel图表中有太多数据时,你会怎么做?事实上,动态显示分支是一个非常好的方法。简单地说,将每一行分开,然后当您需要显示哪一行数据
- 在Excel 2007数据透视表中,要布局Excel数据透视表,我们必须在“数据透视表字段列表”任务窗格中的5个列表框之间拖放字段(参见图1
- windows10系统的用户已经是越来越多,用户在使用了windows10系统之后老是强制自动更新。确实是挺烦人的,那么windows10为
- SQL的数据定义功能包括定义表、定义视图和定义索;I.如表“所示,视图是手于手本表的续表,索引是依附于基本表的,因此SQL通常不提供修改视图
- 本文向大家介绍了Word2000样式管理,转发给脚本之家的朋友,希望大家喜欢Word 2000 提供了一个管理器,可以用来管理样式。利用它可
- 在Excel中录入好数据统计完数据以后就可能会需要用到只复制数字而不复制公式的情况,在这个时候就需要用到一些小技巧才能只复制数字不复制公式。
- Word新建文档里面竟然有字,这是闹哪样?快救我! QQ消息一闪,小家伙找我,肯定又是哪里出问题了,否则怎么会想起我!
- 在Excel中每一个单元格都有一个专有名称,定名默认是是列号加行号,如A3,表示A列第3行的单元格,有些时候我们需要重新命名单元格的名称,下
- 在发布 iOS 16 正式版之后,苹果通过自家的“提示”应用介绍了 iOS 16 中值得留意的五大实用功能,一起来了解下。个性化锁定屏幕:秀
- 在用Word2007修改文档的时候,Word2007会在修改过的地方做一些标记,最后这个文档要给领导看,肯定不能带着红红绿绿的修订提示,怎样
- 本文将讲述如何在Excel中根据单元格里的字符长度对列进行排序。如何在Excel 2013/2016中按单元格内的字符长度排序列表。使用排序
- 许多公司基本上都会将公司内多台电脑添加到局域网的相同的工作组中,在使用的过程中经常会遇到Win10搜索不到工作组内的其他计算器,试验了很多次
- Excel2007如何将列名显示方便计数使用?很多朋友并不是很清楚,其实方法很简单的,下面小编就为大家详细介绍一下,来看看吧在excel20
- 当要在Word2007中使用其他程序中的数据时,有两种选择:链接或嵌入。事实上,尽管使用的术语不同,但是含义是相似的。例如,将图片插入到Wo
- 又是一年的毕业季,很多毕业生就要出来找工作了,当然不可缺少的便是介绍自己的简历了,很多朋友制作简历往往会选择word,不过很多朋友们在制作的
- 有时候我们可能会遇到Word文档损坏的情况,但是如果您没有备份,那么就要想办法来恢复word文档。这里有7个不同的解决方法,看看哪种更适合您
- office2010Word文档怎么添加封面方法:打开office2010Word文档, 在上方小功能区域寻找[插入], 您就可以看到有个[
- 我们在Win10系统中遇到了微软应用商店无法打开,wsappx内存占用过高的问题,该怎么办呢?现在就跟着小编一起往下看看解决办法吧。Win1