text文件转换成excel.高分求助!

Question

'用输出到excel的方法打印
Dim Ex As New Excel.Application
Dim ExW As Excel.Workbook
Dim Exs As Excel.Worksheet
Dim i As Integer
Dim t As Integer
Dim n As Integer
Dim tempSt As String
On Error Resume Next
Kill App.Path & "\intemp.xls"
FileCopy App.Path & "\xls.dll", App.Path & "\intemp.xls"
On Error GoTo 0
Set Ex = CreateObject("Excel.Application")
Set ExW = Ex.Workbooks.Open(App.Path & "\intemp.xls")Set Exs = ExW.Worksheets("sheet1")
Exs.Cells(1, 1).Font.Name = "华文行楷"
Exs.Cells(1, 1).Font.Size = 25
Exs.Cells(1, 1) = "入   库    单"
    Exs.Columns("A:A").ColumnWidth = 15.63
    Exs.Columns("b:b").ColumnWidth = 3.75
    Exs.Columns("C:C").ColumnWidth = 12.75
    Exs.Columns("D:D").ColumnWidth = 9.38
    Exs.Columns("E:E").ColumnWidth = 9.38
    Exs.Columns("F:F").ColumnWidth = 9.13
    Exs.Columns("G:G").ColumnWidth = 10.75  Exs.Cells(5, 1) = "规格"
  Exs.Cells(5, 2) = "单位"
  Exs.Cells(5, 3) = "数量"
  Exs.Cells(5, 4) = "箱/每箱"
  Exs.Cells(5, 5) = "体积"
  Exs.Cells(5, 6) = "毛/净重"
  Exs.Cells(5, 7) = "托盘"

Answer 1

感谢您使用微软产品。你可以先用ADO和Microsoft Jet Provider's Text IIsam driver连接文本文件，把数据存放在记录集中，再导入excel。如下例：Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim PathtoTextFile As String
Dim PathtoMDB As String
Dim myarray() As Variant
  Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As ObjectPrivate Sub Command1_Click()  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & "e:\" & ";" & _
          "Extended Properties=""text;HDR=NO;FMT=Delimited"""
  rs.Open "select * from TextFile.txt", _
          cn, adOpenStatic, adLockReadOnly, adCmdText
  
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add
   Set oSheet = oBook.Worksheets(1)
   
   'Transfer the data to Excel
   oSheet.Range("A1").CopyFromRecordset rs
   
   'Save the Workbook and Quit Excel
   oBook.SaveAs "C:\Book1.xls"
   oExcel.Quit
   
   'Close the connection  rs.Close
  cn.Close
  
End Sub详细信息请参考
Q262537 HOWTO: Open Delimited Text Files with Jet Provider's Text IISam
http://support.microsoft.com/support/kb/articles/q262/5/37.aspQ247412 INFO: Methods for Transferring Data to Excel from Visual Basic 
http://support.microsoft.com/support/kb/articles/q247/4/12.asp- 微软全球技术中心 VB技术支持本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款
(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境，请参加我们的用户满意度调查
(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。