以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  我想Excel另存为 带制表符的 txt  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91999)

--  作者:blackzhu
--  发布时间:2016/10/24 10:42:00
--  我想Excel另存为 带制表符的 txt
 
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("E:\\xxxxx\\222.xlsx")
Wb.SaveAs("E:\\xxx\\555.txt")
App.Quit

我要转成带制表符的 txt

fileformat  选哪个?

Wb.SaveAs("E:\\美奥口腔办公系统1\\555.txt") 这边怎么改?


--  作者:有点蓝
--  发布时间:2016/10/24 10:52:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=20182
--  作者:有点蓝
--  发布时间:2016/10/24 10:52:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=90857
--  作者:blackzhu
--  发布时间:2016/10/24 11:00:00
--  
 XlFileFormat.xlCSV  如果是制表符 这边是改成什么? 不是空格!

--  作者:有点蓝
--  发布时间:2016/10/24 11:37:00
--  
vba只能保存为逗号分割的,比较麻烦

看3楼,这里
dim columnDelimeter as string = "$"
range.Replace(",", columnDelimeter, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing)

先把源数据中的逗号更换成其它符号,然后保存为csv,再读取csv文件,把逗号替换为制表符,把其它符号再更换回逗号

还不如把Excel作为数据源,然后分页读取

--  作者:blackzhu
--  发布时间:2016/10/24 11:47:00
--  
 问题是 星期五就发现一个问题,如果是逗号,因为数据内有逗号,出现了导入的错误.做数据源的话数据量太大也不可取,你的大数据导入我已经搞定了.
[此贴子已经被作者于2016/10/24 11:48:03编辑过]

--  作者:有点蓝
--  发布时间:2016/10/24 11:52:00
--  
没有办法,xlsx可以考虑用openxml读取。自己研究一下:http://blog.csdn.net/dapengbusi/article/details/38118679