帖子: 5
主題: 4
精華: 0
積分: 14
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 10
性別: 男
註冊時間: 2011-11-29
最後登錄: 2012-7-6

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-7-5 14:36 | 只看該作者

txt文字檔匯入excel VBA?

我有一個txt的文字檔，我已建立一個Button(讀檔)的icon，如何將文字檔中的資料匯入excel?
txt檔內容:
14:49:48 14:49:54 6 9 8 1 下行
14:54:50 14:55:12 22 13 6 7 下行
14:54:53 14:55:29 36 11 5 6 下行
14:54:52 14:55:43 51 11 4 7 下行
14:54:54 14:55:57 63 11 3 8 下行
14:54:57 14:56:15 78 11 1 10 下行
14:56:51 14:57:00 9 4 8 4 上行
14:56:50 14:57:15 25 4 10 6 上行
14:59:34 14:59:55 21 13 1 12 下行
14:49:41 14:49:57 16 11 12 1 上行
14:51:05 14:51:12 7 7 8 1 上行
都是以"空格"來區分，我知道複製資料貼到excel再用資料剖析的空格來分辨:，如何點Button就將14:49:48匯入A1，14:49:54匯入B1，6匯入C1...以此類推。

樓主熱帖

boyao

中學生 Rank: 2

帖子: 57
主題: 10
精華: 0
積分: 104
點名: 0
作業系統: WINXP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-7-5
最後登錄: 2017-2-18

2013蛇年全勤獎章

2^#

發表於 2012-7-5 16:01 | 只看該作者

直接用excel去開啟文字檔
開啟後就會有資料剖析ㄉ選擇頁面出現了

Sub Macro1()
Workbooks.OpenText Filename:="C:新增文字文件.txt" _
      , Origin:=950, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
      xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
      Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
      Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), _
      TrailingMinusNumbers:=True
End Sub

boyao

TOP

lamihsuen

小學生 Rank: 1

帖子: 33
主題: 4
精華: 0
積分: 37
點名: 0
作業系統: w7
軟體版本: pro
閱讀權限: 10
性別: 女
來自: 台中
註冊時間: 2012-6-20
最後登錄: 2019-5-24

3^#

發表於 2012-7-6 18:44 | 只看該作者

回復 2# boyao

boyao大大: 可以解釋一下你的語法嗎? 謝謝

TOP

boyao

中學生 Rank: 2

帖子: 57
主題: 10
精華: 0
積分: 104
點名: 0
作業系統: WINXP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2012-7-5
最後登錄: 2017-2-18

2013蛇年全勤獎章

4^#

發表於 2012-7-6 22:08 | 只看該作者

開啟檔案ㄉ路徑
  Workbooks.OpenText Filename:="C:新增文字文件.txt"
資料剖析的那些打勾選項(連續空格設定為單1.其他都不勾選)
   , Origin:=950, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
      xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
      Comma:=False, Space:=True, Other:=False,
設定分類選項 1~7為第幾類.後面那個1是設定顯示.隱藏.或格式
FieldInfo:=Array(Array(1, 1),Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)),  TrailingMinusNumbers:=True

最簡單的做法...
直接開啟空白Excel.然後錄製巨集
接著開啟你所要轉換的文字檔.依照你要的資料剖析格式執行一次
再開啟程式碼.修改一下路徑就ok了

boyao

TOP

lamihsuen

小學生 Rank: 1

帖子: 33
主題: 4
精華: 0
積分: 37
點名: 0
作業系統: w7
軟體版本: pro
閱讀權限: 10
性別: 女
來自: 台中
註冊時間: 2012-6-20
最後登錄: 2019-5-24

5^#

發表於 2012-7-6 22:26 | 只看該作者

回復 4# boyao

boyao大大已經了解謝謝你的解說. 感恩

TOP

chiahuo

　暱稱: chiahuo

中學生 Rank: 2

帖子: 183
主題: 46
精華: 0
積分: 322
點名: 0
作業系統: win 7
軟體版本: office 2013
閱讀權限: 20
性別: 男
註冊時間: 2010-6-18
最後登錄: 2017-9-26

6^#

發表於 2012-11-30 11:14 | 只看該作者

請問可以把選取檔案部份，做成選取方式，以利不懂VBS的同事使用呢？

小弟是excel程式初學者，請多多指教

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

7^#

發表於 2012-11-30 11:32 | 只看該作者

回復 6# chiahuo

引用 boyao 大大的程式  Workbooks.OpenText Filename:="C:新增文字文件.txt"

方法1.用textbox 方法
   新增一個 textbox 元件，將輸入的檔案名稱、目錄設為紅色區段
例如
   dkk = textbox1.text    '此處的 textbox1.text 資料必須包含目錄 + 檔案名稱  如 C:\新增文字文件.txt
   Workbooks.OpenText Filename:= dkk

      可參考以下文章(討論區內有相似文章 )
      http://forum.twbts.com/thread-1592-1-2.html

方法2 下拉選單
      新增下拉選單元件，將目錄預設入元件內，搜尋後的檔案名稱再列出來。

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

8^#

發表於 2012-11-30 11:38 | 只看該作者

回復 6# chiahuo
Sub Macro1()
Dim fileToOpen
fileToOpen = Application.GetOpenFilename(FileFilter:="Text Files (*.txt),*.txt", Title:="請選擇檔案")
If fileToOpen <> False Then
      Workbooks.OpenText Filename:=fileToOpen _
      , origin:=950, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
      xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
      Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
      Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), _
      TrailingMinusNumbers:=True
End If
End Sub

TOP

qqchange