[已解决]如何修改VBA，使读入后的数据在单元格内显示为非文本格式

lijian8003

1. Sub 读入()
   
2. Sheets("1").Select
   
3. Application.DisplayAlerts = False
   
4. Dim s() As String
   
5. Dim s2() As String
   
6. On Error Resume Next
   
7. Open ThisWorkbook.Path & "\文本\1.txt" For Input As #1
   
8. s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
   
9. Close #1
   
10.     For x = 0 To UBound(s)
    
11.          s2 = Split(s(x), " ")
    
12.          ss = UBound(s2)
    
13.        Range("b" & x + 2).Resize(, ss + 1) = s2
    
14.     Next
    
15. Application.DisplayAlerts = True
    
16. End Sub

复制代码

上述VBA代码读入txt文本数据后，各单元格内的数据显示为文本格式。如何修改VBA代码，使其读入后的数据，在各单元格显示为非文本格式？

最佳答案

月排行榜 / 总排行榜

0126

2017-9-30 10:57

lijian8003 发表于 2017-9-30 09:32
as string去掉后，什么数据也读入不了

加入一个数组过渡吧，还是不太清楚怎么对分解字符的数组声明
Sub 导入()
Sheets("1").Select
Application.DisplayAlerts = True
Dim s() As String
Dim s2() As String
Dim arr(1 To 1, 1 To 100)
On Error Resume Next
Open ThisWorkbook.Path & "\文本\1.txt" For Input As #1
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
    For x = 0 To UBound(s)
        s2 = Split(s(x), " ")
      For y = 0 To UBound(s2)
        arr(1, y + 1) = s2(y)
      Next
        ActiveSheet.Cells(x + 2, "B").Resize(, UBound(s2) + 1) = arr
    Next
Application.DisplayAlerts = True
End Sub

跳转到最佳答案楼层

0126

• Dim s2() As String
  这个把as string去掉看看
  

lijian8003

0126 发表于 2017-9-30 09:17

Dim s2() As String
这个把as string去掉看看

as string去掉后，什么数据也读入不了

0126

lijian8003 发表于 2017-9-30 09:32
as string去掉后，什么数据也读入不了

加入一个数组过渡吧，还是不太清楚怎么对分解字符的数组声明
Sub 导入()
Sheets("1").Select
Application.DisplayAlerts = True
Dim s() As String
Dim s2() As String
Dim arr(1 To 1, 1 To 100)
On Error Resume Next
Open ThisWorkbook.Path & "\文本\1.txt" For Input As #1
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
    For x = 0 To UBound(s)
        s2 = Split(s(x), " ")
      For y = 0 To UBound(s2)
        arr(1, y + 1) = s2(y)
      Next
        ActiveSheet.Cells(x + 2, "B").Resize(, UBound(s2) + 1) = arr
    Next
Application.DisplayAlerts = True
End Sub

lijian8003

0126 发表于 2017-9-30 10:57
加入一个数组过渡吧，还是不太清楚怎么对分解字符的数组声明
Sub 导入()
Sheets("1").Select

感谢，能解决问题