[發問] 如何在工作表中直接匯入文字檔

帖子: 19
主題: 4
精華: 0
積分: 62
點名: 0
作業系統: winxp
軟體版本: winxp
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2011-7-27
最後登錄: 2015-5-20

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-7-27 17:39 | 只看該作者

[發問] 如何在工作表中直接匯入文字檔

本帖最後由 GBKEE 於 2011-7-27 19:33 編輯

1.在B1輸入路徑
2.只要在D9~58中輪入檔案檔案名稱後按Import Data按鈕，看D9~D58有幾個檔案就會開幾個工作表並匯入文字檔
以上困擾小弟我很久，檔案如附件

excel.rar (13.79 KB)

樓主熱帖

Simon

GBKEE

超級版主 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-7-27 20:38 | 只看該作者

回復 1# morris0914
試試看

Sub Ex()
Dim FilePath As String, Rng As Range, FS As Object, Ar
FilePath = Sheets("Menu").Range("B1") '檔案資料夾"
FilePath = FilePath & IIf(Right(1, 1) = "\", "", "\") '檢查資料夾尾端有無"\"
Set Rng = Sheets("Menu").Range("D9") '第1個檔案名稱
Do
Set FS = CreateObject("Scripting.FileSystemObject").GetFile(FilePath & Rng) '取的檔案物件
'FileSystemObject 提供對電腦檔案系統的存取的物件
Set FS = FS.OpenAsTextStream(1, -2) 'TextStream 物件->加快對檔案的順序存取。
Ar = Split(FS.READALL, Chr(10)) '讀取資料存入陣列 Ar
FS.Close ' 將檔案關閉。
With ActiveWorkbook '作用中的活頁簿
.Sheets.Add(, .Sheets(.Sheets.Count)).Name = Rng '新增工作表且命名為檔案名稱
.Sheets(Rng.Value).[A1].Resize(UBound(Ar) + 1, 1) = Ar '讀取的資料放入新增工作表
End With
Set Rng = Rng.Offset(1) '下一個檔案名稱
Loop Until Rng = "" '沒有檔案名稱離開迴圈
End Sub

複製代碼

帖子: 19
主題: 4
精華: 0
積分: 62
點名: 0
作業系統: winxp
軟體版本: winxp
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2011-7-27
最後登錄: 2015-5-20

3^#

發表於 2011-7-28 10:41 | 只看該作者

回復 2# GBKEE

感謝大大的幫忙，困擾我好幾天的程式解決了
再請問一下，匯入的文字檔的資料有空格或是有逗號的要如何分開，讓每個資料放在一個欄位~~

Simon

ky2599y

帖子: 54
主題: 7
精華: 0
積分: 74
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2011-7-13
最後登錄: 2016-12-16

4^#

發表於 2011-7-28 13:47 | 只看該作者

資料→資料剖析→依空格或逗號
即可將資料切開

Kenny

ky2599y

帖子: 54
主題: 7
精華: 0
積分: 74
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2011-7-13
最後登錄: 2016-12-16

5^#

發表於 2011-7-28 13:49 | 只看該作者

資料→資料剖析→依空格或逗號
即可將資料切開
ky2599y 發表於 2011-7-28 13:47

若匯入資料太多，就把資料剖析路成巨集

Kenny

帖子: 19
主題: 4
精華: 0
積分: 62
點名: 0
作業系統: winxp
軟體版本: winxp
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2011-7-27
最後登錄: 2015-5-20

6^#

發表於 2011-7-28 14:47 | 只看該作者

回復 5# ky2599y

感謝提醒，我已改為巨集如下:

      Range("A1:A255").Select
      Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
      Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
      :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
      TrailingMinusNumbers:=True

但有個問題是如何資料判斷，自動增加Array
另一個問題是如何讓程式排列整齊，如下:
TextQualifier=xlDoubleQuote
ConsecutiveDelimiter=False
Tab=True

Simon

ky2599y

帖子: 54
主題: 7
精華: 0
積分: 74
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2011-7-13
最後登錄: 2016-12-16

7^#

發表於 2011-7-28 16:26 | 只看該作者

你將原始資料增加或減少試試看，應該會自動判斷的

Kenny

帖子: 19
主題: 4
精華: 0
積分: 62
點名: 0
作業系統: winxp
軟體版本: winxp
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2011-7-27
最後登錄: 2015-5-20

8^#

發表於 2011-7-28 17:13 | 只看該作者

excel.rar (192.08 KB) 回復 7# ky2599y
還有幾個問題請教一下
1.附件4.log及5.log如何匯入工作表，我使用版大給的程式是在全是數字時ok，但前幾列有文字時就會出現問題
2.文字檔匯入工作表後如何遇到資料有空格或是有逗號的要如何分開，讓每個資料放在一個欄位，並讓程式判斷資料有需幾欄資料就會產生幾欄Array放置資料

Simon

GBKEE

超級版主 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兔年全勤獎章

9^#

發表於 2011-7-28 20:35 | 只看該作者

本帖最後由 GBKEE 於 2011-7-28 20:40 編輯

回復 8# morris0914
匯入的文字檔的資料有空格或是有逗號的要如何分開
有點類似有特定譬如說 20-30行之間自行修改看看
在每一行中
A = Split(Ar(i), " ") '這是分隔空格的陣列
A = Split(Ar(i), ",") '這是分隔逗號的陣列
Cells(ii, 1).Resize(, UBound(A) + 1) = A

帖子: 19
主題: 4
精華: 0
積分: 62
點名: 0
作業系統: winxp
軟體版本: winxp
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2011-7-27
最後登錄: 2015-5-20

10^#

發表於 2011-7-29 17:16 | 只看該作者

回復 9# GBKEE

板大，不知是不是下例程式造成讀取4.log時只重複讀取第一列，而無法將4.log全部資料匯入工作表中
Set FS = CreateObject("Scripting.FileSystemObject").GetFile(FilePath & Rng)

Simon