将TXT文本文件导入EXCEL

[mingzuhao]

将TXT文本文件导入EXCEL

[caofusheng]

Dim   objApp   As   Excel.Application 
                Dim   objBook   As   Excel._Workbook 
                Dim   table_date   As   String 


                        Dim   objBooks   As   Excel.Workbooks 
                        Dim   objSheets   As   Excel.Sheets 
                        Dim   objSheet   As   Excel._Worksheet 
                        Dim   objrange   As   Excel.Range 

                        Dim   objquerytables   As   Excel.QueryTables 
                        Dim   querytable   As   Excel._QueryTable 
                        Dim   range   As   Excel.Range 

                        Dim   excel_wb   As   New   Microsoft.Office.Interop.Excel.Application 

                        '   Create   a   new   instance   of   Excel   and   start   a   new   workbook. 
                        objApp   =   New   Excel.Application() 
                        objBooks   =   objApp.Workbooks 

                        With   objApp 
                                .Visible   =   False 

                                objBook   =   objBooks.Add() 
                                With   objApp.ActiveWorkbook 
                                        '.Worksheets.Add() 
                                        .Worksheets("sheet1").name   =   "01" 
                                        .Worksheets("sheet2").name   =   "02" 

                                        .Worksheets.Add(,   ,   30,   ) 
                                        .Worksheets(3).delete() 


                                        .Worksheets("sheet33").select() 

                                        objSheet   =   .Worksheets("sheet33") 


                                        Dim   importfilename   =   "C:\Documents   and   Settings\youkiss\桌面\报表\AIAA24059801.txt.txt" 
                                        range   =   objSheet.Range("A10",   Reflection.Missing.Value) 


                                        With   objSheet 
                                                objquerytables   =   .QueryTables 


                                                querytable   =   objquerytables.Add(Connection:="text;"   &   importfilename,   Destination:=range) 

          



                                                Dim   mydata   As   Array 
                                                'mydata   =   querytable.TextFileColumnDataTypes("2",   "9",   "9",   "2",   "1",   "1",   "1",   "1",   "1",   "1") 
                                                mydata   =   querytable.TextFileColumnDataTypes(2,   9,   9,   2,   1,   1,   1,   1,   1,   1) 
  


                                                querytable.Refresh() 
                                        End   With 


                                        table_date   =   DateTimePicker1.Text.ToString   +   Microsoft.VisualBasic.Mid(Trim(FileListBox1.Items.Item(i).ToString),   11,   dstr_tn(0,   2)).ToString   +   "日" 
                                        .SaveAs(FolderBrowserDialog1.SelectedPath   +   "\excel\"   +   table_date   +   ".xls") 


                                End   With 
                                .Quit() 
                        End   With 
                        objApp.Quit() 
                        objApp   =   Nothing

[mingzuhao]

谢谢