vb调用excel打开txt文件格式设置问题

设置空格作为excel打开txt文件的分隔符，语句是：
Set xlbook = xlapp.Workbooks.Open("D:\1\use\xie19680101.txt", Format:=3, Delimiter:=" ")
但是由于原本txt文件里面的空格个数不同，所以打开后文件显示是这样的：


有没有办法定义分隔符是空格，多个空格和一个空格同样对待，就是打开的excel没有空格列
万分感谢啊！！ VB Excel --------------------编程问答-------------------- 对待这种很有规律的文本, 你可以事先用VB来"规范化"一下.
分隔符号和换行符号都是已知的, 你用文本方式打开这个文件.
然后使用replace来删除多余的分隔符和换行符. 重新保存一下. 然后再用EXCEL打开即可

补充：VB ,  基础类