Mindyj

　暱稱: Mindy

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

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

10^#

發表於 2013-6-8 07:15 | 只看該作者

回復 luhpro
...
不過現在延伸出另一個問題，要怎麼樣才能讓任何檔案都轉為html的方式貼到excel上面呢?
Mindyj 發表於 2013-6-6 07:27

看不懂你的意思.

轉為html的方式貼到excel?
在 Excel 本身的角度上,
它上面的每個儲存格都可以有自己的格式,
但印象中似乎並沒有所謂的html格式,
還是說你想要把 Excel 當瀏覽器用嗎?

若是那或許你可以先新增一個表單,
再插入一個WebBrowser物件來實現.
(至於怎麼實現我也不會,可能要請其他人回答了)

TOP

Mindyj

　暱稱: Mindy

中學生 Rank: 2

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

9^#

發表於 2013-6-6 07:27 | 只看該作者

回復 8# luhpro

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

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

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

8^#

發表於 2013-6-5 21:32 | 只看該作者

請問版主、如果選擇的檔案型態不限制、並將貼上欄位固定在A1該怎麼修改呢?
我試過將檔案類型改為all，可是 ...
Mindyj 發表於 2013-6-3 11:20

你的 02. 行程式要改成 :
fs = Application.GetOpenFilename("All Files (*.*), *.*")
即可.

在 Windows 系統中 *.all 並不是 "檔案型態不限制" 的意思,
而是如 :
1.all
efaew.all
cfg.all
這類副檔名為 all 的檔案,
若想列出 "檔案型態不限制" 的檔案,
應該要用 *.* 來作為篩選條件的文字表示.

TOP

Mindyj

　暱稱: Mindy

中學生 Rank: 2

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

7^#

發表於 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

TOP

Mindyj

　暱稱: Mindy

中學生 Rank: 2

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

6^#

發表於 2013-4-24 15:11 | 只看該作者

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2013-4-24 15:01 | 只看該作者

回復 4# Mindyj

Sub import()
Dim A As Range
fs = Application.GetOpenFilename("Text Files (*.txt), *.txt")
Set A = Application.InputBox("選擇文字檔要放置的位置", , "$A$1", , , , , 8)
Open fs For Input As #1
Do While Not EOF(1) ' 執行迴圈直到檔尾為止。
Line Input #1, TextLine
A.Offset(i, 0) = TextLine
i = i + 1
Loop
Close #1
End Sub

複製代碼

學海無涯_不恥下問

TOP

Mindyj

　暱稱: Mindy

中學生 Rank: 2

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

4^#

發表於 2013-4-24 14:08 | 只看該作者

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2013-4-24 10:43 | 只看該作者

回復 2# Mindyj