VB中如何把.txt文件转换成excel文件呢?说的详细点,谢谢,最好有代码.十分十分感谢

Question

如题 
比如.txt文件中是这样的文件格式: 设备名 error1 error2 error3 
dev1 没电 无信号 无人操作 
dev2 没电 无信号 无人操作 
dev3 没电 无信号 无人操作

Answer 1

网上找到的写Excel的函数   
  读文本文件应该没有问题吧？   
    
    
  首先需要在VB设计时引用EXCEL对象库   
    
  Public   Sub   RsToXls(RsSrc   As   ADODB.Recordset)   
  Dim   MyXlsApp   As   New   Excel.Application   
  Dim   MyXlsWbk   As   New   Excel.Workbook   
  Dim   MyXlsSht   As   New   Excel.Worksheet   
  Dim   i,   j,   k,   m,   n   As   Integer   
  Set   MyXlsApp   =   CreateObject("Excel.Application")   
  Set   MyXlsWbk   =   MyXlsApp.Workbooks.Add   
  Set   MyXlsSht   =   MyXlsWbk.Worksheets(1)   
    
  MyXlsApp.Visible   =   True   
    
  With   RsSrc   
          If   RsSrc   Is   Nothing   Then   
                  MsgBox   "没有数据，无法导出",   vbExclamation   
                  Exit   Sub   
          ElseIf   .RecordCount   =   0   Then   
                  MsgBox   "没有数据，无法导出",   vbExclamation   
                  Exit   Sub   
          End   If   
          .MoveFirst   
          j   =   1   
          'MyXlsSht.Cells(1,   1).Value   =   "序号"   
          For   m   =   0   To   .Fields.Count   -   1   
                  MyXlsSht.Cells(1,   m   +   1).Value   =   .Fields(m).Name   
    
          Next   
          Do   While   Not   .EOF   
                  j   =   j   +   1   
                  MyXlsSht.Cells(j,   1)   =   j   -   1   
                  For   i   =   0   To   RsSrc.Fields.Count   -   1   
                          Select   Case   RsSrc.Fields(i).Type   
                          Case   7                                                                                     '如果是日期类型   
                                  MyXlsSht.Cells(j,   i   +   1).NumberFormatLocal   =   "yyyy-m-d"   
                          End   Select   
                          MyXlsSht.Cells(j,   i   +   1)   =   .Fields(i)   
                  Next   
                  .MoveNext   
          Loop   
  End   With   
  'MyXlsApp.Visible   =   True   
    
    
  Set   MyXlsApp   =   Nothing   
  Set   MyXlsWbk   =   Nothing   
  Set   MyXlsSht   =   Nothing   
    
  'MsgBox   "数据导出完成",   vbInformation                 
  End   Sub   

Answer 2

http://tb.blog.csdn.net/TrackBack.aspx?PostId=1745971