[已解决]TXT 导入到 EXCEL 中

张雄友

TXT 导入到 EXCEL 中。

最佳答案

月排行榜 / 总排行榜

芐雨

2014-12-13 09:56

又是这个问题，可以先创建schema.ini文件
导入.zip (611.62 KB, 下载次数: 29)

2014-12-13 09:56 上传

点击文件名下载附件

跳转到最佳答案楼层

dsmch

速度太慢…………

1. Sub Macro1()
   
2. Dim arr(1 To 65536, 1 To 200), i&, h&, l%, h2&
   
3. Open ThisWorkbook.Path & "\Password.txt" For Input As #1
   
4.     w = Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf)
   
5. Close #1
   
6. For i = 1 To UBound(w) + 1
   
7.     h = (i - 1) Mod 65536 + 1
   
8.     l = 1 + (i - 1) \ 65536
   
9.     arr(h, l) = w(i - 1)
   
10. Next
    
11. h2 = IIf(l > 1, 65536, h)
    
12. ActiveSheet.UsedRange.ClearContents
    
13. Range("a1").Resize(h2, l) = arr
    
14. End Sub

复制代码

上清宫主

直接用e 打开另存为e就是了嘛，还要代码做铲铲

芐雨

又是这个问题，可以先创建schema.ini文件
导入.zip (611.62 KB, 下载次数: 29)

2014-12-13 09:56 上传

点击文件名下载附件

四处逍遥

1. Sub jj()
   
2.     Dim mypath$, mytxt$
   
3.     mypath = ThisWorkbook.Path
   
4.     mytxt = "Password.txt"
   
5.     Workbooks.OpenText mypath & "" & mytxt
   
6.     With ActiveWorkbook
   
7.         .SaveAs mypath & "\Password.xlsx"
   
8.         .Close True
   
9.     End With
   
10. End Sub

复制代码