Sub OneTxt() '打开一个txt文件 Dim Filename As Variant, extLine&, mArr() As String Dim i%, j%, txtpath As String Dim txtname As Variant ChDir ThisWorkbook.Path txtpath = "D:\Users\addy.zhao\Desktop\computers\" 'Filename = Application.GetOpenFilenam
最近写了个单元测试,递归调用方法,把同一个文件夹里所有的txt合并输出到一个txt文件.参考了两个博客,分别是已有的方法,还有个就是检测txt文件所用编码的技术贴.如果不检测txt文件的编码,那么转换出的txt文件大概率会乱码.一开始尝试UTF-8和GBK等编码格式转换后都是乱码,一度以为是方法的问题.后来检测到原txt的编码是 UTF-16LE...这才转换成功. 第一部分是参考了https://www.cnblogs.com/braveym/p/10810153.html,加入了递归调用 i
Sub OneTxt() '打开一个txt文件 Dim Filename As Variant, extLine&, mArr() As String Dim i%, j% ChDir ThisWorkbook.Path Filename = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "请选取档案", , MultiSelect:=True) j = 1 For k = 1 To U