如何把文本文件转换为excel文件？

Question

如果不用程序,EXCEL里提供了导入工具,如果用程序文本文件的格式如何?问题太笼统

Answer 1

只要你的文本文件里的内容 按一定的格式输入的 只要另存为 .xls 文件 就可以了 
一行中的字符间用 tab 键隔开（具体用什么隔要看你打开这个文件的excel怎么设置的）
回车则另存一行。

Answer 2

在Excel程序里录制一个将文本文件导入到表格的宏，然后把这个宏（VBA）剪贴到你的VB程序中即可，别忘了先要创建一个Excel对象。

Answer 3

Option Explicit
Private Sub Command1_Click()
    Dim xObject As Object
    '调用Excel 97
    Set xObject = CreateObject("Excel.Sheet")
    Set xObject = xObject.Application.ActiveWorkbook.ActiveSheet
    xObject.Range("A1").Value = Text1.Text
'将数值送入Excel 97的A1单元格
    xObject.Range("A2").Value = Text2.Text
'将数值送入Excel 97的A2单元格
    xObject.Range("A3").Formula = "=MAX(A1,A2)"
'将最大值送入A3单元格
    xObject.Range("A4").Formula = "=ATAN(A1/A2)＊180/PI()"
'将反正切值送入A4单元格
    '显示计算的结果
    Label1.Caption = xObject.Range("A3").Value
    Label2.Caption = xObject.Range("A4").Value
    Set xObject = Nothing
End SubPrivate Sub Form_Load()
Text1.Text = ".."
Text2.Text = ".."                //此处可以设为数据库的值啊
    Label1.Caption = ""
    Label2.Caption = ""
End Sub 

Answer 4

引用 excel.dll
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlAppSheet As Excel.Sheets
Private Sub cmdChange_Click()
'cn.Open ""
' rs.Open "", cn
Dim num As Integer
Dim x, y As Integer
Dim xlApp As Object
Dim xlSheet As Object
 DoEvents
   Set xlApp = CreateObject("Excel.Application") '创建对象
   'Set xlSheet = CreateObject("Excel.Sheet") '创建对象
If strExcel <> "" Then
   xlApp.Workbooks.Open FileName:=strExcel ':用于定义变量
   lblType.Caption = "类型：" & xlApp & Space(3) & "版本：" & xlApp.Version & Space(3) _
                     & "此Excel中有" & xlApp.Sheets.Count & "个表。"
   If Val(xlApp.Application.Version) >= 8 Then
        Set xlSheet = xlApp.ActiveSheet
   Else
        Set xlSheet = xlApp
    End If
 Else
  MsgBox "此项不允许为空！", vbOKOnly, "警告提示！"
End If
'Text1.Text = xlApp.Cells(1, 1).Text
'要判断Sheets.Count来计算sheet的数量，来建立相映的字段
num = 0
  For x = 1 To 10
  For y = 1 To 10
    If xlApp.Cells(x, y).Text = "" Then
      ' Exit Sub '进行空操作！如果用的话在处理处理过程中没有使xlApp关掉！
    Else
    Text1.Text = Text1.Text & xlApp.Cells(x, y).Text
    num = num + 1
            'ActiveCell是在鼠标现在的焦点行的值,如果没有的话为(1,1)的值!
            'Cells(x,y).Text  用于显示在execl中的矩阵的每一元素!
            'Caption标明次数据的性质及标题 
End If
Next
Next xlApp.Quit
MsgBox "Processed " & Format$(num) & " records.", vbOKOnly, "完成的记录数目！"
End Sub

Answer 5

引用EXCEL9.OLE
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlAppSheet As Excel.Sheets
Private Sub cmdChangeAccess_Click()
Dim num As Integer
Dim x, y As Integer
Dim xlApp As Object
Dim xlSheet As Object
 DoEvents
   Set xlApp = CreateObject("Excel.Application") '创建对象
   'Set xlSheet = CreateObject("Excel.Sheet") '创建对象
If strExcel <> "" Then
   xlApp.Workbooks.Open FileName:=strExcel ':用于定义变量
   lblType.Caption = "类型：" & xlApp & Space(3) & "版本：" & xlApp.Version & Space(3) _
                     & "此Excel中有" & xlApp.Sheets.Count & "个表。"
   If Val(xlApp.Application.Version) >= 8 Then
        Set xlSheet = xlApp.ActiveSheet
   Else
        Set xlSheet = xlApp
    End If
 Else
  MsgBox "此项不允许为空！", vbOKOnly, "警告提示！"
End If
'Text1.Text = xlApp.Cells(1, 1).Text
'要判断Sheets.Count来计算sheet的数量，来建立相映的字段
num = 0
  For x = 1 To 10
  For y = 1 To 10
    If xlApp.Cells(x, y).Text = "" Then
      ' Exit Sub '进行空操作！如果用的话在处理处理过程中没有使xlApp关掉！
    Else
    Text1.Text = Text1.Text & xlApp.Cells(x, y).Text
    num = num + 1
            'ActiveCell是在鼠标现在的焦点行的值,如果没有的话为(1,1)的值!
            'Cells(x,y).Text  用于显示在execl中的矩阵的每一元素!
            'Caption标明次数据的性质及标题 
End If
Next
Next 
xlApp.Quit
MsgBox "Processed " & Format$(num) & " records.", vbOKOnly, "完成的记录数目！"
End Sub