html导出excel表头多了一行空行,excel文件导出为TXT文件后，出现好多空行，不知道怎么回事 [...

本帖最后由 qiaodong64 于 2017-4-24 17:27 编辑

excel2007导出为TXT文件，打开有很多空行；然而在excel2016导出后没有空行，然而用word2016打开TXT文件有空行。不知道怎么回事了。(另外呢，我对excel2016文件  导出——文本文件——保存，TXT文件也没有空行，可是拿word2016打开依旧有空行

当然代码是没问题的，如下：

Sub Xls转Txt()

Dim File As String, Path As String, MeFile As String, NewName As String

Dim Wrk As Object

Application.DisplayAlerts = False

Path = Application.ActiveWorkbook.Path

MeFile = Application.ActiveWorkbook.Name

File = Dir(Path & "\*.xls")

If File <> "" Then

Do

If File <> MeFile Then

pos = InStrRev(File, ".")

NewName = Left(File, pos - 1)

File = Path & "\" & File

Set Wrk = Application.Workbooks.Open(File)

Wrk.SaveAs Filename:=Path & "\" & NewName & ".txt", FileFormat:=xlText, CreateBackup:=False

Wrk.Close

End If

File = Dir()

Loop While File <> ""

End If

Application.DisplayAlerts = True

s = "%A1%B6%CE%C4%BC%FE%C5%FA%C1%BF%B4%A6%C0%ED%B0%D9%B1%A6%CF%E4V10%2E0%A1%B7"

MyProg = ""

i = 1

s = Replace(s, "+", " ")

While i <= Len(s)

If Mid(s, i, 1) = "%" Then

t = IIf(Val("&H" & Mid(s, i + 1, 2)) <= &H80, 3, 6)

MyProg = MyProg & Chr(Val("&H" & Replace(Mid(s, i, t), "%", "")))

i = i + t

Else

MyProg = MyProg & Mid(s, i, 1)

i = i + 1

End If

Wend

MsgBox "亲爱哒大潘潘处理完喽！ 请参见" & MyProg, vbInformation + vbOKOnly, "消息"

End Sub

1.png

(31.82 KB, 下载次数: 24)

2017-4-21 10:08 上传

2.png

(47.66 KB, 下载次数: 15)

2017-4-21 10:08 上传

3.png

(112.67 KB, 下载次数: 18)

2017-4-21 10:08 上传

4.jpg

(128.87 KB, 下载次数: 23)

2017-4-21 10:09 上传

2017-4-21 10:08 上传

点击文件名下载附件

107.92 KB, 下载次数: 1