[已解决]求助：关于TXT文件读到EXCEL中的问题

suxiong

代码有两个如下：具体见附件！
12.zip (10.91 KB, 下载次数: 7)

2012-5-15 22:52 上传

点击文件名下载附件


代码1是把EXCEL中a1:b3的文字写到TXT中。
代码2是把TXT中的文字读出来到“立即窗口”

1. Sub a() '把EXCEL的a1:b3文件写一个TXT中
   
2. 
   
3. Dim f, x, y, arr
   
4. f = "C:\Documents and Settings\Administrator\桌面\12" & "\1.txt"
   
5. Open f For Output As #1
   
6. arr = Range("a1:b3")
   
7. For x = 1 To UBound(arr)
   
8. For y = 1 To UBound(arr, 2)
   
9. If y <= UBound(arr, 2) - 1 Then
   
10. Print #1, arr(x, y) & ",";
    
11. Else
    
12. Print #1, arr(x, y)
    
13. End If
    
14. Next y
    
15. Next x
    
16. Close #1
    
17. 读出来到DGBUG
    
18. 
    
19. End Sub
    

复制代码

1. Sub aa() '把TXT的内容读出来
   
2. Dim f1, L, by
   
3. n = FreeFile
   
4. f1 = "C:\Documents and Settings\Administrator\桌面\12" & "\1.txt"
   
5. Open f1 For Input As n
   
6. L = LOF(n)
   
7. by = Input(L - 6, n)
   
8. Debug.Print by
   
9. End Sub
   

复制代码

问题：
1、代码中（by = Input(L - 6, n）我知道汉字有6个所以减了6，那如果TXT中有很多汉字，我又不能数，有没有函数可以统计出TXT的汉字数呢？
2、怎么把TXT的文字读到回到EXCEL的SHEET3中呢，我只会读到“立即窗口”

谢谢了！

最佳答案

月排行榜 / 总排行榜

Zipall

2012-5-16 10:22

用line input一行行读,然后用split分列.
或者用下面的方法读


Sub test()
    With ActiveSheet.QueryTables.Add("TEXT;C:\Documents and Settings\Administrator\桌面\12\1.txt", Range("a1"))
        .TextFileCommaDelimiter = True
        .Refresh
    End With
End Sub

跳转到最佳答案楼层

suxiong

各位帮助回答下嘛，谢谢了！

Zipall

用line input一行行读,然后用split分列.
或者用下面的方法读


Sub test()
    With ActiveSheet.QueryTables.Add("TEXT;C:\Documents and Settings\Administrator\桌面\12\1.txt", Range("a1"))
        .TextFileCommaDelimiter = True
        .Refresh
    End With
End Sub

suxiong

Zipall 发表于 2012-5-16 10:22
用line input一行行读,然后用split分列.
或者用下面的方法读

第一种方法：读是读出来了，但怎么填到EXCEL里呢，只能填一行呢。

1. Sub aa() '把TXT的内容读出来
   
2. Dim f1, L, BY, by1
   
3. N = FreeFile
   
4. f1 = "C:\Documents and Settings\Administrator\桌面\12" & "\1.txt"
   
5. Open f1 For Input As N
   
6. L = LOF(N)
   
7. Do While Not EOF(N)
   
8. Line Input #N, BY
   
9. Cells(1, 1) = BY
   
10. Loop
    
11. 
    
12. End Sub

复制代码

Zipall

r=r+1
cells(r,1)=by

suxiong

Zipall 发表于 2012-5-16 10:42
r=r+1
cells(r,1)=by

1. Sub aa() '把TXT的内容读出来到DEBUG窗口
   
2. Dim f1, L, BY
   
3. N = FreeFile
   
4. f1 = "C:\Documents and Settings\Administrator\桌面\12" & "\1.txt"
   
5. Open f1 For Input As N
   
6. L = LOF(N)
   
7. BY = Input(L - 6, N)
   
8. Debug.Print BY
   
9. Close #1
   
10. End Sub

复制代码

谢谢回答，还有个问题哈。

BY = Input(L - 6, N)
这句是一次性全部取出来，因为TXT小我知道汉字的个数为6个，如果表大了，我不知道怎么办？有没有函数统计汉字的个数呢？？谢谢

Zipall

suxiong 发表于 2012-5-16 10:52
谢谢回答，还有个问题哈。

BY = Input(L - 6, N)

没有.   {:4712:}

bluexuemei

代码1

1. Sub Getword()
   
2.     Dim Arr,ary, k%
   
3.     Open ThisWorkbook.Path & "\1.txt" For Input As #1
   
4.     Arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf): Reset
   
5.     For k = 0 To UBound(Arr)
   
6.         ary = Split(Arr(k), ",")
   
7.         [a65536].End(3)(2).Resize(1, 2) = ary
   
8.     Next
   
9.     Rows(1).Delete 2
   
10. End Sub
    

复制代码