如何将此文本文件中的数据转换至Excel表格，有请各位大侠多多指教

资水梅城 · 发表于 2004-2-13 13:24

pfw77uiu.txt (6.12 KB, 下载次数: 185)

scottwang · 发表于 2004-2-13 13:53

FYI

tssCtvIg.rar (2 KB, 下载次数: 97)

资水梅城 · 发表于 2004-2-13 14:18

OvVVGqEK.rar (1.76 KB, 下载次数: 84)

叶文英 · 发表于 2004-2-13 15:05

可以直接复制到excel表格中你试试看

资水梅城 · 发表于 2004-2-17 16:34

你不是开玩笑吧？象你说的那样复制后，得到的文件又有什么用呢？先仔细看看我上转文件包吧！在此还是谢谢你！

goots · 发表于 2004-2-17 16:54

楼主的问题正是EXCEL/VBA的长处。不是很复杂，录制一个宏导入文本文件，稍加修改整理即可。但编程过程却要花一定时间。

[此贴子已经被作者于2004-2-17 16:56:43编辑过]

ExcelMan · 发表于 2004-2-17 20:57

Sub Macro1() Dim R As Long Dim I As Long Dim iPath As String '目录 Dim iName As String '文件名称 iPath = "D:\My Documents\tel\" iName = "txet_11.txt" Application.ScreenUpdating = False With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;" & iPath & iName, Destination:=Range("A1")) .FieldNames = False .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 936 .TextFileStartRow = 6 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = True .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = True .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With Range("A1").Delete Shift:=xlToLeft I = Val(Mid$(Range("A65536").End(xlUp).Address, 4, 10)) With Range(Cells(1, 1), Cells(I, 7)) .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone For R = 1 To 12 If R <> 5 And R <> 6 Then With .Borders(R) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End If Next End With For R = I To 2 Step -1 If Len(Cells(R, 1)) = 0 Then Cells(R, 1).EntireRow.Delete ElseIf IsNumeric(Cells(R, 1)) = False Then Cells(R, 1).EntireRow.Delete End If Next Range(Cells(1, 1), Cells(I, 6)).Columns.AutoFit Range("a2").Select End Sub

资水梅城 · 发表于 2004-2-18 10:35

<DIV class=quote>以下是引用ExcelMan在2004-2-17 20:57:00的发言： Sub Macro1() Dim R As Long Dim I As Long Dim iPath As String '目录 Dim iName As String '文件名称 iPath = "D:\My Documents\tel\" iName = "txet_11.txt" Application.ScreenUpdating = False With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;" & iPath & iName, Destination:=Range("A1")) .FieldNames = False .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 936 .TextFileStartRow = 6 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = True .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = True .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With Range("A1").Delete Shift:=xlToLeft I = Val(Mid$(Range("A65536").End(xlUp).Address, 4, 10)) With Range(Cells(1, 1), Cells(I, 7)) .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone For R = 1 To 12 If R <> 5 And R <> 6 Then With .Borders(R) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End If Next End With For R = I To 2 Step -1 If Len(Cells(R, 1)) = 0 Then Cells(R, 1).EntireRow.Delete ElseIf IsNumeric(Cells(R, 1)) = False Then Cells(R, 1).EntireRow.Delete End If Next Range(Cells(1, 1), Cells(I, 6)).Columns.AutoFit Range("a2").Select End Sub </DIV> 感谢您及朋友们的热心帮助，但我是一个新手对所谓VBA等没有用过，也不知如何下手。想请高手们将方法步骤说得详细些，领我入门。在此多谢啦！

xing · 发表于 2004-2-18 20:28

我个人认为还用获取外部数据的方法是最快的.见附件:

JOc2jRkA.rar (2.65 KB, 下载次数: 99)

ExcelMan · 发表于 2004-2-18 22:28

请第9楼的同志留意第3楼内容

步骤：

1、随便生成1文件，按下“Alt+F11”进入vb编辑器

2、点击菜单“插入”，再点击“模块”，

3、将我回帖内容复制到其中，以下两句以实际为准，

iPath = "D:\My Documents\tel\" iName = "txet_11.txt"

如文件在“C:\”下，名称为“text_911”时，则应改为 iPath = "C:\" iName = "txet_911.txt"

4、按下“Alt+F11”返回工作表界面，然后按下“Alt+F8”，再按下“执行”或直接按回车键。

程序分为两部分，第一部分是“Range("A1").Delete Shift:=xlToLeft”以上的语句，作用是调入文件内容；其余是第二部分，是整理数据，因为原文本文件的数据不规则。

		自动登录	找回密码
密码			免费注册

[求助] 如何将此文本文件中的数据转换至Excel表格，有请各位大侠多多指教

多谢赐教！是我没有说清楚，我想把这个文本文件转换成此形式。