将TXT文本文件导入EXCEL
将TXT文本文件导入EXCEL
[解决办法]
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