麻辣家族討論版版 » Excel程式區 » 請問如何將選取的txt檔內容匯入指定儲存格呢?

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

請問如何將選取的txt檔內容匯入指定儲存格呢?

　暱稱: Mindy

中學生 Rank: 2

帖子: 31
主題: 6
精華: 0
積分: 59
點名: 0
作業系統: win 7
軟體版本: office 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-4-4
最後登錄: 2013-9-2

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-4-23 14:47 | 顯示全部帖子

請問如何將選取的txt檔內容匯入指定儲存格呢?

[版主管理留言]

Hsieh(2013-4-23 23:33): 請把txt檔與希望得到結果檔案附上

本帖最後由 Mindyj 於 2013-4-23 14:48 編輯

請教各位前輩，我目前爬文找到將txt檔以excel模式開啟

可是尚未找到任何可以直接讀取和複製txt檔內容貼上至指定sheet1儲存格A6，並且固定儲存格大小

可以請教各位前到該如何執行這個部份嗎? 謝謝

[attach]14754

爬文的內容如下
Dim fileToOpen
   fileToOpen = Application.GetOpenFilename(FileFilter:="Text Files (*.txt),*.txt", Title:="please select the file")
   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

Import txt.zip (16.38 KB)

import

Import txt.zip (16.38 KB)

樓主熱帖

收藏

　暱稱: Mindy

中學生 Rank: 2

帖子: 31
主題: 6
精華: 0
積分: 59
點名: 0
作業系統: win 7
軟體版本: office 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-4-4
最後登錄: 2013-9-2

2^#

發表於 2013-4-24 07:45 | 顯示全部帖子

補上txt檔與希望結果

Import.zip (20.25 KB)
回復 1# Mindyj

　暱稱: Mindy

中學生 Rank: 2

帖子: 31
主題: 6
精華: 0
積分: 59
點名: 0
作業系統: win 7
軟體版本: office 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-4-4
最後登錄: 2013-9-2

3^#

發表於 2013-4-24 14:08 | 顯示全部帖子

小女不才，不知如何更改此碼，問題如下
問題1. txt檔會隨著使用者所選擇的檔案而有所不同，所以才會使用macro進行檔案選取的動作
問題2. 使用者在選取檔案後，macro會將選取檔案之內容複製並貼上至指定sheet與指定儲存格中

　暱稱: Mindy

中學生 Rank: 2

帖子: 31
主題: 6
精華: 0
積分: 59
點名: 0
作業系統: win 7
軟體版本: office 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-4-4
最後登錄: 2013-9-2

4^#

發表於 2013-4-24 15:11 | 顯示全部帖子

感謝版主、測試成功!!!

　暱稱: Mindy

中學生 Rank: 2

帖子: 31
主題: 6
精華: 0
積分: 59
點名: 0
作業系統: win 7
軟體版本: office 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-4-4
最後登錄: 2013-9-2

5^#

發表於 2013-6-3 11:20 | 顯示全部帖子

請問版主、如果選擇的檔案型態不限制、並將貼上欄位固定在A1該怎麼修改呢?
我試過將檔案類型改為all，可是並不適用。

Dim A As Range
fs = Application.GetOpenFilename("Files (*.all), *.all")
Set A = Application.InputBox("Choose the file position", , "$A$1", , , , , 8)
Open fs For Input As #1
Do While Not EOF(1) ' Loop to the end of the file?
Line Input #1, TextLine
A.Offset(i, 0) = TextLine
i = i + 1
Loop
Close #1

複製代碼

回復 5# Hsieh

　暱稱: Mindy

中學生 Rank: 2

帖子: 31
主題: 6
精華: 0
積分: 59
點名: 0
作業系統: win 7
軟體版本: office 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-4-4
最後登錄: 2013-9-2

6^#

發表於 2013-6-6 07:27 | 顯示全部帖子

回復 8# luhpro

謝謝luhpro，我學習到實用的一課。

不過現在延伸出另一個問題，要怎麼樣才能讓任何檔案都轉為html的方式貼到excel上面呢?

靜思自在 : 要比誰更受誰．不要比誰更怕誰。

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