以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  excel转化出txt文件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131733)
--  作者：wangjh8888
--  发布时间：2019/3/5 17:03:00
--  excel转化出txt文件
老师，好，我需要把excel转化出txt文件，想使用以下代码，那么如何得到它的数据范围（多少行，多少列）呢？或者还有其他好办法，谢谢
        Dim Book As New XLS.Book(dlg.FileName)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
--  作者：有点甜
--  发布时间：2019/3/5 17:23:00
--  

方法一

 

Dim App As New MSExcel.Application
app.DisplayAlerts = False
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("d:\\test.xls")
Wb.SaveAs(Filename:="d:\\abc.txt", FileFormat:=MSExcel.XlFileFormat.xlUnicodeText)
wb.close
app.quit


 
--  作者：有点甜
--  发布时间：2019/3/5 17:24:00
--  

方法二，参考

 

http://www.foxtable.com/webhelp/scr/1148.htm