如何將超過65536筆以上的資料放入活頁簿,請家族高手賜教 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何將超過65536筆以上的資料放入活頁簿,請家族高手賜教

返回列表下一主題上一主題發帖

[發問] 如何將超過65536筆以上的資料放入活頁簿,請家族高手賜教

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2011-10-11 15:06 | 顯示全部帖子

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-10-11 16:45 | 顯示全部帖子

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2011-10-12 15:22 | 顯示全部帖子

回復 8# pupai

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

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-10-13 17:37 | 顯示全部帖子

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

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

複製代碼

靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。

返回列表下一主題上一主題