如何把TXT文档内容按行写入xls

urpig

如题，请大家帮忙，谢谢！

urpig

SFile = fdf
Workbooks.Add
    Columns("A:F").Select
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Columns("A:A").Select
    Selection.NumberFormatLocal = "@"----设置了文本模式，filecopy之后，xls里还是常规
    Selection.ColumnWidth = 11.5
    Columns("B:B").Select
    Selection.ColumnWidth = 17.7
    Columns("D:D").Select
    Selection.ColumnWidth = 16
    Columns("E:E").Select
    Selection.ColumnWidth = 8.71
    Columns("F:F").Select
    Selection.ColumnWidth = 9.29
    Range("A1").Select
    'ActiveWorkbook.RemovePersonalInformation = True
    ActiveWorkbook.RemovePersonalInformation = False
    ActiveWorkbook.SaveAs Filename:=Splitpath & fn & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    DFile = Splitpath & fn & ".xls"   
    FileCopy SFile, DFile

蓝桥玄霜

需要上传表格附件和文本文件。

liucongying1

看不懂二楼的，能不能简单些……

coliniskiddie

这个你可以试试

Sub test()
Dim i As Integer
Dim nPerCol As Integer
Dim textline As String
Dim strTemp As String
Open "E:\VBA\gds.txt" For Input As #1
i = 1
While Not EOF(1)
Line Input #1, textline
strTemp = textline
nPerCol = 1 '默认从第一列开始写
Do Until InStr(strTemp, vbTab) = 0 '判断是否含有Tab键
If InStr(strTemp, vbTab) = 1 Then
If Len(strTemp) > 1 Then
strTemp = Right(strTemp, Len(strTemp) - 1) '去掉第一个Tab
Else: strTemp = ""
End If
Else: Cells(i, nPerCol) = Left(strTemp, InStr(strTemp, vbTab) - 1)
strTemp = Right(strTemp, Len(strTemp) - InStr(strTemp, vbTab) + 1)
End If
nPerCol = nPerCol + 1 '无论是去掉一个Tab 还是写入一个值，默认写入列+1
Loop
If Len(strTemp) > 0 Then
Cells(i, nPerCol).Value = strTemp
End If
i = i + 1
Wend
Close #1
End Sub