txt ------->excel

[szfangbing]

我将TXT文件用excel打开后，请问如何将这个文件保存为.xls格式（要用vb 程序自己保存）？
谢谢！

[zgvslch]

这需要TXT文件的数据有规律才好。
不知道你是用什么方法打开的，如果用Excel对象打开，Excel对象有Save方法。

[dongge2000]

UP

[lxcc]

'引用Excel X.0 Library
'把如下代码拷到VB中即可,修改D:\1.txt,为你的txt所在位置,.Text开头的是分隔符,为true的生效的
'若不清楚,可以自己在Excel中创建一个导入外部数据的宏!应该和下面的代码类似 :P
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;D:\1.txt", Destination _
:=Range("A1"))
.Name = "1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.Refresh BackgroundQuery:=False
End With

[逍遥的心]

用SAVEAS 加参数

[jam021]

Private Sub Command1_Click()
Dim xlsApp As New Excel.Application
Set xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = True
xlsApp.Workbooks.Open "d:\test.txt"
xlsApp.ActiveWorkbook.SaveAs "d:\11.xls"
xlsApp.ActiveWorkbook.Close False
xlsApp.Quit
Set xlsApp = Nothing

End Sub