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

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

12^#

發表於 2011-8-1 17:02 | 只看該作者

感謝版大的幫忙和建議，我自己會先自行試試看，有問題再請教，謝謝

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兔年全勤獎章

11^#

發表於 2011-7-29 19:14 | 只看該作者

回復 10# morris0914
讀取4.log時可以全部讀取的
你8樓 Q: 用版大給的程式是在全是數字時ok，但前幾列有文字時就會出現問題
所以引用類似有特定譬如說 20-30行之間你再看看

帖子: 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

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

8^#

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

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

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

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