GBKEE

¦^´_ 1# ¤Ú§J´µ
¥i§_¶Ç¤Wµ§¼Æ¤Ö©ó65536 ªºµ{¦¡½X,¨Ó¬Ý¬Ý¦p¦ó§ï.

GBKEE

¦^´_ 4# ¤Ú§J´µ
Sub yy()
'¤Þ¥ÎMicrosoft Scripting Runtime

¤U¸ü (63.37 KB)

2011-5-28 08:00

¤£¤Þ¥ÎMicrosoft Scripting Runtimeªº¼gªk

1. Sub Ex()
   
2.     Dim MyString As String, i As Long, Sh As Integer, Ar
   
3.     Open "d:\test\test.txt" For Input As #1    ' ¶}±Ò¿é¤JÀÉ¡C
   
4.     i = 1
   
5.     Sh = 1
   
6.     ReDim Ar(1 To Rows.Count)
   
7.     Do While Not EOF(1)              ' Àˬd¬O§_¤w¨ìÀɧÀ¡C
   
8.         If i > Rows.Count Then       'Rows.Count¬°¦CªºÁ`¼Æ 2003ª©¥»->65536
   
9.             Sheets(Sh).Range("a:a") = Application.Transpose(Ar)
   
10.             ReDim Ar(1 To Rows.Count)
    
11.             i = 1
    
12.             Sh = Sh + 1
    
13.             If Sh > Sheets.Count Then Sheets.Add after:=Sheets(Sheets.Count)
    
14.         End If
    
15.         Line Input #1, MyString      ' ±N¸ê®ÆŪ¤JÅܼƤ¤¡C
    
16.         Ar(i) = MyString
    
17.         i = i + 1
    
18.     Loop
    
19.     Sheets(Sh).Range("a:a") = Application.Transpose(Ar)
    
20.     Close #1
    
21. End Sub
    

½Æ»s¥N½X