返回目录：excel表格制作
Sub 导入文本数据()
Application.ScreenUpdating = False '关闭屏幕更新
'---------------------------------------------
'清空数据
For I = 1 To 4
工作表 = "表" + LTrim(Str$(I))
Sheets(工作表).Select
Cells.EntireRow.Delete
Next
'---------------------------------------------
Sheets("原始数据").Select
Cells.EntireRow.Delete
打开文件e68a84e8a2ad7a686964616f361 = Application.GetOpenFilename(Filefilter:="*.file ,*.*")
If 打开文件 = False Then Exit Sub
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" + 打开文件, Destination:=Range("A1"))
.Refresh BackgroundQuery:=False
End With
'---------------------------------------------
H1 = 1
H2 = Cells(65536, 1).End(xlUp).Row
HH1 = 1
HH2 = 25
J = Int(H2 / 25) + 1
H = H1
For I = 1 To J
范围 = Range(Cells(H, 1), Cells(H + 24, 3))
工作表 = "表" + LTrim(Str$(I))
Sheets(工作表).Select
Range(Cells(HH1, 1), Cells(HH2, 3)) = 范围
H = H + 25
Sheets("原始数据").Select
Next
Cells.EntireRow.Delete
End Sub
直接打开zd，粘贴数据即可，代码如下：版
Sub xx()
Dim wb As Workbook
Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\1.txt", Format:=6, delimiter:=" ") '打开权1.txt
Sheet1.[a1:b4] = WorksheetFunction.Transpose(wb.Sheets(1).[a1:d2].Value) '粘贴数据
wb.Close False '关闭1.txt
End Sub
以下内容来自网络
保存成txt
不用先打来开记事本 再copy数据进去.那样比较麻烦,给你个写转文本文源件的例子
下面的代码 把当前激活工作表的所有内容以行为单位写入一个文本文件,并把这个文件保zd存在这个excel工作薄的同目录下.文本文件的名字是工作簿名+工作表名.txt
Sub 转文本()
Dim rng As Range, Hrng As Range
ipath = ThisWorkbook.Path & "\" & ThisWorkbook.Name & "-" & ActiveSheet.Name & ".txt"
Open ipath For Output As #1
For Each rng In ActiveSheet.UsedRange.Rows
arr = WorksheetFunction.Transpose(WorksheetFunction.Transpose(rng))
istr = Join(arr, " ")
Print #1, istr
Next
Close #1
End Sub
给你个思路:仅供zhidao参考
Public Sub 读取文本文件版()
Dim fso As New FileSystemObject
地址 = "H:\我的家.txt"
Dim tsm As TextStream
Set tsm = fso.OpenTextFile(地址)
Cells(1, 1) = tsm.ReadAll
tsm.Close
End Sub
如果运行错误权,请到引用里面将此打勾