txt写入excel

iamxxb

如何用VBA将txt文件数据写入到excel里，分成3列，第一列是 日期时间  日期和时间不能分开，谢谢高手

IVYQQQQQ

全部复制到EXCEL后分列，如附件！文件量大可以考虑用VBA程序导入。

iamxxb

IVYQQQQQ 发表于 2019-8-17 18:07
全部复制到EXCEL后分列，如附件！文件量大可以考虑用VBA程序导入。

就是文件量大，求程序

iamxxb

IVYQQQQQ 发表于 2019-8-17 18:07
全部复制到EXCEL后分列，如附件！文件量大可以考虑用VBA程序导入。

还有，我分列的时候，09017就变成9017，我看你的没有变，是怎么达到的

kkk989

录个打开txt文件的宏就行了

IVYQQQQQ

iamxxb 发表于 2019-8-17 18:10
还有，我分列的时候，09017就变成9017，我看你的没有变，是怎么达到的

分列过程中要选中这列然后选择文本，就不会变了！

changhong8

代码如下。。。

zhanghai0602

1. Sub Test()
   
2.     Dim Filename$
   
3.     Filename = "C:\Users\ZhangHai\txt导入到excel.txt"
   
4.     Application.CutCopyMode = False
   
5.     With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Filename, Destination:=Range("$A$1"))
   
6.         .RowNumbers = False
   
7.         .RefreshStyle = xlInsertDeleteCells
   
8.         .TextFilePlatform = 936
   
9.         .TextFileStartRow = 1
   
10.         .TextFileParseType = xlFixedWidth
    
11.         .TextFileColumnDataTypes = Array(1, 2, 2)
    
12.         .TextFileFixedColumnWidths = Array(20, 12)
    
13.         .Refresh BackgroundQuery:=False
    
14.     End With
    
15. End Sub

复制代码

仅针对你这个3列数据的处理，你试一下

xiangbaoan

Option Explicit
Sub test()
Dim ar$(65432, 2), i&, r&, c%, s$, t, items, f
With Application.FileDialog(1)
    With .Filters
        .Clear
        .Add "文本文件(txt)", "*.txt"
    End With
    .AllowMultiSelect = True
    If .Show Then Set items = .SelectedItems Else Exit Sub
End With
Application.ScreenUpdating = False '自行选择，可多选文本文件
For Each f In items
    i = FreeFile
    Open f For Input As #i
    Do Until EOF(i)
        Line Input #i, s
        t = Split(s, Space(3))
        For c = LBound(t) To UBound(t)
            ar(r, c) = t(c)
        Next
        r = r + 1
    Loop
    Close #i
Next
Cells.Clear 'Contents
[a1].Resize(1, 3) = Array("AA", "BB", "CC")
[a2].Resize(r, c) = ar
Application.ScreenUpdating = True
End Sub

iamxxb

xiangbaoan 发表于 2019-8-17 19:33
Option Explicit
Sub test()
Dim ar$(65432, 2), i&, r&, c%, s$, t, items, f

非常感谢！