[已解决]如何使txt文本数据01导入excel后依然是01

lijian8003

下列代码将z1.txt数据导入excel，但是z1.txt的数据01导入excel 后，却变为1，单元格事先设置为文本格式,也是1
如何使txt文本数据01导入excel后依然是01？

Sub 导入01()
Sheets("01").Select
Application.DisplayAlerts = False '关闭报警
Dim s() As String '定义字串数组
Open ThisWorkbook.Path & "\z1.txt" For Input As #1 '打开文本文件
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf) 'InputB(LOF(1), 1)读入内存，StrConv 编码转换；Split(）分割成行
Close #1 '关闭文件
[c1].Resize(UBound(s) + 1, 1) = WorksheetFunction.Transpose(s) '将整个数组置于AA列
[c1:c1].TextToColumns [c1] '按TAB分列（分列符默认就是tab)
Application.DisplayAlerts = True '打开报警
End Sub

最佳答案

月排行榜 / 总排行榜

QLZ0602

2014-2-28 14:01

Sub 导入01()
Sheets("01").Select
Application.DisplayAlerts = False '关闭报警
Dim S() As String '定义字串数组
Open ThisWorkbook.Path & "\z1.txt" For Input As #1 '打开文本文件
S = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf) 'InputB(LOF(1), 1)读入内存，StrConv 编码转换；Split(）分割成行
Close #1 '关闭文件
[c1].Resize(UBound(S) + 1, 1) = WorksheetFunction.Transpose(S) '将整个数组置于AA列
[c1:c1].TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 2), Array(2, 2), Array(3, 2)), TrailingMinusNumbers:=True '按TAB分列（分列符默认就是tab)
Application.DisplayAlerts = True '打开报警
End Sub

跳转到最佳答案楼层

hwc2ycy

把附件打包吧。
你可以在导入前，先设置单元格的格式。

lijian8003

hwc2ycy 发表于 2014-2-26 08:35
把附件打包吧。
你可以在导入前，先设置单元格的格式。

在导入前，先设置单元格的格式，也不能解决问题。
附件已加，垦望得到您的帮助！

QLZ0602

没有附件？

lijian8003

QLZ0602 发表于 2014-2-28 12:50
没有附件？

附件怎么也发不上去，唉。
大概题意是：
z1.txt有数据01 02 03   欲导入excel的A1 B1 C1单元格后，依然保持01 02 03格式，这样的VBA如何写？垦望得到帮助。

QLZ0602

lijian8003 发表于 2014-2-28 13:01
附件怎么也发不上去，唉。
大概题意是：
z1.txt有数据01 02 03   欲导入excel的A1 B1 C1单元格后，依然 ...

发我qq 695982239

QLZ0602

Sub 导入01()
Sheets("01").Select
Application.DisplayAlerts = False '关闭报警
Dim S() As String '定义字串数组
Open ThisWorkbook.Path & "\z1.txt" For Input As #1 '打开文本文件
S = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf) 'InputB(LOF(1), 1)读入内存，StrConv 编码转换；Split(）分割成行
Close #1 '关闭文件
[c1].Resize(UBound(S) + 1, 1) = WorksheetFunction.Transpose(S) '将整个数组置于AA列
[c1:c1].TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 2), Array(2, 2), Array(3, 2)), TrailingMinusNumbers:=True '按TAB分列（分列符默认就是tab)
Application.DisplayAlerts = True '打开报警
End Sub

lijian8003

QLZ0602 发表于 2014-2-28 14:01
Sub 导入01()
Sheets("01").Select
Application.DisplayAlerts = False '关闭报警

txt数据增加为4个：01 02 03 04，其中04就出问题了，是4，而非04   如果txt数据有420个，代码如何改？
4个数据   :=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2) ), TrailingMinusNumbers:=True
420个数据                  ................................................  Array(420, 2)   
这样太繁了，有没有更好的方法？                                                            

QLZ0602

lijian8003 发表于 2014-2-28 14:31
txt数据增加为4个：01 02 03 04，其中04就出问题了，是4，而非04   如果txt数据有420个，代码如何改？
...

Sub 导入01()
Sheets("01").Select
Application.DisplayAlerts = False '关闭报警
Dim s() As String '定义字串数组
Dim s2() As String '定义字串数组
Open ThisWorkbook.Path & "\z1.txt" For Input As #1 '打开文本文件
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf) 'InputB(LOF(1), 1)读入内存，StrConv 编码转换；Split(）分割成行
Close #1 '关闭文件
[c1].Resize(UBound(s) + 1, 1) = WorksheetFunction.Transpose(s) '将整个数组置于AA列
s2 = Split([c1], " ")
For i = 0 To UBound(s2)
  Range("c1").Offset(0, i) = "'" & s2(i)
Next i
Application.DisplayAlerts = True '打开报警
End Sub

lijian8003

QLZ0602 发表于 2014-2-28 14:56
Sub 导入01()
Sheets("01").Select
Application.DisplayAlerts = False '关闭报警

非常感谢您的帮助！测试通过。