GBKEE

回復 1# pupai
你應該是要上傳 SAS檔:cdoofile.sas7bdat

GBKEE

回復 3# pupai
抱歉:幫不上忙
你的 SAS檔轉的文字檔,找不出規律性,可以匯入A欄,更不用說一一匯入每欄中

GBKEE

回復 8# pupai

回復  pupai
    你可以發一下上來看看先  是請你上傳txt :文件需用壓縮檔上傳
kimbal 發表於 2011/10/11 19:11

cdoofile.sas7bdat檔下載處'http://www.funp.net/389588]http://www.funp.net/389588 這不是 文字檔嗎?

GBKEE

回復 10# pupai
試試看
SAS檔轉TXT檔的結果.txt 只有5056列的資料 尚未達 65536列

1. Sub Ex()
   
2.     Dim TheFile  As String, Mystr As Variant
   
3.     Dim Sh As Integer, i As Long
   
4.     TheFile = "D:\TEST\SAS檔轉TXT檔的結果.txt"
   
5.     i = 1: Sh = 1
   
6.     Open TheFile For Input As #1            '開啟文字檔
   
7.     Sheets(Sh).Activate                     'Sh=1: 第1個工作表成為使用中的工作表
   
8.     ActiveSheet.Cells.Clear                 '清除作用中工作表所有的儲存格的資料
   
9.     Do While Not EOF(1)                     '不是檔案底部時 執行迴圈
   
10.         Line Input #1, Mystr                '從已開啟的循序讀取資料，並將資料指定給變數。->mystr
    
11.         Mystr = Replace(Mystr, """", "")    '清除 資字串中的 " 符號
    
12.         Mystr = Split(Mystr, " ")           '依據自字串中 的(此處是: 一個空白字元) 符號 分割為 傳回一維的陣列
    
13.         ActiveSheet.Cells(i, "A").Resize(1, UBound(Mystr) + 1) = Mystr
    
14.         i = i + 1                '下一列
    
15.         If i > Rows.Count Then   'Rows.Count 列的總數
    
16.             i = 1
    
17.             Sh = Sh + 1
    
18.             On Error GoTo WorkSheet_Add   '工作表數<>Sh 會產生錯誤
    
19.             Sheets(Sh).Active             '第 Sh 個工作表成為使用中的工作表
    
20.             ActiveSheet.Cells.Clear
    
21.         End If
    
22.     Loop
    
23.     Close #1
    
24.     Exit Sub
    
25. WorkSheet_Add:   '處裡:  工作表數<> Sh 產生的錯誤
    
26.     Sheets.Add AFTER:=Sheets(Sheets.Count)     '新增工作表
    
27.     Err.Clear                                  '清除錯誤值
    
28.     Resume                                     '重回錯誤的地方
    
29. End Sub

複製代碼