作者：绿色风
分类：
时间：2022-08-18
浏览：138
楼主
xyf2210 |
Q:附件里有两个txt，如何能按照附件内的那个excel那样导入，sheet名换成txt文件名，内容导入到相应的表格内？
A:- Sub test()
- Dim myfile, sht
- Application.ScreenUpdating = False
- myfile = Dir(ThisWorkbook.Path & "\*.txt")
- Do While myfile <> ""
- Workbooks.OpenText Filename:=ThisWorkbook.Path & "\" & myfile, StartRow:=1, DataType:=xlDelimited, Comma:=True
- '使用OpenText方法载入文本文件并将其数据写入到工作表中
- With ActiveWorkbook
- With .Sheets(1).Range("A1").CurrentRegion
- Set sht = ThisWorkbook.Worksheets.Add(after:=ThisWorkbook.Worksheets(Worksheets.Count))
- sht.Name = Left(myfile, Len(myfile) - 4)
- ThisWorkbook.Sheets(sht.Name).Range("A1").Resize(.Rows.Count, .Columns.Count).Value = .Value
- End With
- .Close False
- End With
- myfile = Dir
- Loop
- Application.ScreenUpdating = True
- End Sub
 该帖已经同步到 xyf2210的微博
 测试附件.rar
|
2楼
赳凡 |
怎么用？正遇到这样的问题 |
3楼
meili1006 |
要学学 |
4楼
shxumin |
前2天刚碰到这个棘手问题，今天下载后学习实践一下，学习楼主 |
5楼
尛安 |
 这个不是小吴**考核我的问题么
他前几天说也要发这个帖子的么
怎么你发了？
你 = 他么？ |
6楼
xyf2210 |
小吴我可比不上呀 |
7楼
尛安 |
 你在谦虚？ |
8楼
xyf2210 |
没有哈，我见到他发的贴了，很强 |
9楼
尛安 |
我肿么没看到哇！
 |
10楼
bluexuemei |
学习学习!
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一