vba 读取txt文件乱码

johnny05

如图，TXT是 uft8格式 ，读取出来乱码，如何转换EXCEL文件已经附上

duquancai

转码                    

johnny05

duquancai 发表于 2019-1-11 10:25
转码

怎么转法，研究了好久，也没有明白。麻烦指教，谢谢

Yaong_3

按下图操作，选择TXT文件导入。

zhangzhang

记事本 打开 txt 文件另存为 见图

johnny05

zhangzhang 发表于 2019-1-11 10:38
记事本 打开 txt 文件另存为 见图

这个如何用VBA代码实现？ 谢谢

johnny05

Yaong_3 发表于 2019-1-11 10:36
按下图操作，选择TXT文件导入。

这个如何用VBA代码实现？因为我要提取文本内容，作其他作用。  谢谢

Yaong_3

我感觉用数据导入的操作录个宏，改一下就行了。我以前没操作过，简单录了一个，有时间你再研究研究。

1. Sub Macro1()
   
2. '
   
3. ' Yaong
   
4. '
   
5. 
   
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

test.zip (16.42 KB, 下载次数: 313)

2019-1-11 11:48 上传

点击文件名下载附件

一把小刀闯天下

参考一下：

http://club.excelhome.net/forum. ... p;page=1#pid9784353