ExcelHome技术论坛

标题: vba 读取txt文件乱码 [打印本页]
作者: johnny05    时间: 2019-1-11 10:20
标题: vba 读取txt文件乱码
如图，TXT是 uft8格式 ，读取出来乱码，如何转换EXCEL文件已经附上

(, 下载次数: 3)


作者: duquancai    时间: 2019-1-11 10:25
转码                    
作者: johnny05    时间: 2019-1-11 10:28
duquancai 发表于 2019-1-11 10:25
转码

怎么转法，研究了好久，也没有明白。麻烦指教，谢谢
作者: Yaong_3    时间: 2019-1-11 10:36
按下图操作，选择TXT文件导入。
作者: zhangzhang    时间: 2019-1-11 10:38
记事本 打开 txt 文件另存为 见图
作者: johnny05    时间: 2019-1-11 11:06
zhangzhang 发表于 2019-1-11 10:38
记事本 打开 txt 文件另存为 见图

这个如何用VBA代码实现？ 谢谢
作者: johnny05    时间: 2019-1-11 11:07
Yaong_3 发表于 2019-1-11 10:36
按下图操作，选择TXT文件导入。

这个如何用VBA代码实现？因为我要提取文本内容，作其他作用。  谢谢
作者: Yaong_3    时间: 2019-1-11 11:17
我感觉用数据导入的操作录个宏，改一下就行了。我以前没操作过，简单录了一个，有时间你再研究研究。
  1. Sub Macro1()
  2. '
  3. ' Yaong
  4. '

  6. '
  7.     With ActiveSheet.QueryTables.Add(Connection:="TEXT;E:\下载\2222.txt", _
  8.         Destination:=Range("$A$1"))
  9.         .Name = "2222"
  10.         .FieldNames = True
  11.         .RowNumbers = False
  12.         .FillAdjacentFormulas = False
  13.         .PreserveFormatting = True
  14.         .RefreshOnFileOpen = False
  15.         .RefreshStyle = xlInsertDeleteCells
  16.         .SavePassword = False
  17.         .SaveData = True
  18.         .AdjustColumnWidth = True
  19.         .RefreshPeriod = 0
  20.         .TextFilePromptOnRefresh = False
  21.         .TextFilePlatform = 65001
  22.         .TextFileStartRow = 1
  23.         .TextFileParseType = xlDelimited
  24.         .TextFileTextQualifier = xlTextQualifierDoubleQuote
  25.         .TextFileConsecutiveDelimiter = False
  26.         .TextFileTabDelimiter = True
  27.         .TextFileSemicolonDelimiter = False
  28.         .TextFileCommaDelimiter = False
  29.         .TextFileSpaceDelimiter = False
  30.         .TextFileColumnDataTypes = Array(1)
  31.         .TextFileTrailingMinusNumbers = True
  32.         .Refresh BackgroundQuery:=False
  33.     End With
  34.     Application.Goto Reference:="Macro1"
  35. End Sub
复制代码
作者: ivccav    时间: 2019-1-11 11:48
(, 下载次数: 11)

(, 下载次数: 300)
作者: 一把小刀闯天下    时间: 2019-1-11 12:13
参考一下：

http://club.excelhome.net/forum. ... p;page=1#pid9784353
作者: johnny05    时间: 2019-1-11 12:57
一把小刀闯天下 发表于 2019-1-11 12:13
参考一下：

http://club.excelhome.net/forum.php?mod=viewthread&tid=1455381&page=1#pid9784353

谢谢，解决问题了
作者: ivccav    时间: 2019-1-11 13:49
johnny05 发表于 2019-1-11 12:57
谢谢，解决问题了


发现一个有趣的现象，那些注册很久了，但在线时间很短的人，基本上是问题解决了，连一句反馈都没有的那种人。以前看到有些大神骂这种人，我不以为然，现在觉得，骂得好。Yaong_3网友又是截图标识，又是代码的，你连一句反馈都没有
作者: johnny05    时间: 2019-1-11 13:59
ivccav 发表于 2019-1-11 13:49
发现一个有趣的现象，那些注册很久了，但在线时间很短的人，基本上是问题解决了，连一句反馈都没有的 ...

您想多了，我发了帖子后，过了一会儿看到这个，先看到最后回的，我回复感谢，准备回复上面那个，提示发贴时间间隔过短，然后我又忙其他事情去了，现在回来，就看到你的回复了。
作者: johnny05    时间: 2019-1-11 14:01
Yaong_3 发表于 2019-1-11 11:17
我感觉用数据导入的操作录个宏，改一下就行了。我以前没操作过，简单录了一个，有时间你再研究研究。

感谢帮忙！！！！
作者: dandan076    时间: 2020-3-2 15:47
zhangzhang 发表于 2019-1-11 10:38
记事本 打开 txt 文件另存为 见图

你的另存怎么有这么选择，我的没有啊
作者: Z_X_P126    时间: 2020-11-14 14:21
ivccav 发表于 2019-1-11 11:48

感谢
作者: Z_X_P126    时间: 2020-11-14 14:26
ivccav 发表于 2019-1-11 11:48

请问这个怎么修改为逐行写入
（原文件 分行的）



欢迎光临 ExcelHome技术论坛 (https://club.excelhome.net/) Powered by Discuz! X3.4