[已解决]导入成绩

605751967

导入多个文档的成绩单，第一行要有标题的。

最佳答案

月排行榜 / 总排行榜

冥王

2015-9-29 18:21

605751967 发表于 2015-9-29 18:18
TextFilePlatform = 65001  表示utf-8编码格式？

那么

看图，一般情况下你同一批文件的编码应该是一样吧

跳转到最佳答案楼层

金樽空对月

还没学到这里，等待大神出手相助，到时也来学习一下，先顶起{:35:}

冥王

1. Sub 宏1()
   
2.     Dim strPath$, strFile$, dataFile$, myRng As Range, dataRng As Range, i%
   
3.     strPath = ThisWorkbook.Path & ""
   
4.     strFile = Dir(strPath & "*.txt")
   
5.     Do While strFile <> ""
   
6.         i = i + 1
   
7.         dataFile = "TEXT;" & strPath & strFile
   
8.         Set myRng = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
   
9.         Set dataRng = IIf(i = 1, Range("$A$1"), myRng)
   
10.         With ActiveSheet.QueryTables.Add(Connection:=dataFile, Destination:=dataRng)
    
11.             .TextFilePlatform = 65001
    
12.             .TextFileStartRow = IIf(i = 1, 1, 2)
    
13.             .Refresh BackgroundQuery:=False
    
14.         End With
    
15.         strFile = Dir
    
16.     Loop
    
17. End Sub

复制代码

冥王

……

605751967

冥王 发表于 2015-9-29 11:19
……

            .TextFilePlatform = 65001
            .TextFileStartRow = IIf(i = 1, 1, 2)

这二句是什么意思？可否解释一下有什么用？？？

冥王

TextFilePlatform = 65001  表示utf-8编码格式
TextFileStartRow = IIf(i = 1, 1, 2)   这里表示导入的文本文件数据的开始行 ，开始行如果为1就是含标题一起导入，开始行2就代表不导入标题

冥王

你可以自己录制一个宏看看   获取外部数据  自文本

605751967

冥王 发表于 2015-9-29 18:13
你可以自己录制一个宏看看   获取外部数据  自文本

TextFilePlatform = 65001  表示utf-8编码格式？

那么
ANSI

Unicode

Unicode big

是多少怎么找出来？

冥王

605751967 发表于 2015-9-29 18:18
TextFilePlatform = 65001  表示utf-8编码格式？

那么

看图，一般情况下你同一批文件的编码应该是一样吧

605751967

冥王 发表于 2015-9-29 18:21
看图，一般情况下你同一批文件的编码应该是一样吧

就差  Unicode big endian  的没有找到，其它的都对应找到了。