- 帖子
- 9
- 主題
- 3
- 精華
- 0
- 積分
- 17
- 點名
- 0
- 作業系統
- 7
- 軟體版本
- 2007
- 閱讀權限
- 10
- 性別
- 男
- 來自
- taiwan
- 註冊時間
- 2013-4-27
- 最後登錄
- 2014-6-20
|
9#
發表於 2013-5-14 00:51
| 只看該作者
回復 8# GBKEE
GBKEE大 你好
下面紅字的地方應該沒有錯
可是這樣的話感覺上它還是會搜尋檔案名為1.txt, 2.txt,...作開啟的動作
沒辦法開啟檔案名為y(1), y(2),...
如果我將它改成像藍字的部分可以嗎?
或者是哪裡要再補充或修改的
麻煩你了 感謝
Option Explicit
Sub 文字檔案()
Dim txt_name, i, x, oldname
Dim y As Variant
oldname = ThisWorkbook.Name
Range("A1").Select
x = InputBox("檔案數量")
For i = 1 To x
txt_name = i & ".txt" '<--改成 txt_name =y( i) & ".txt"
Workbooks.OpenText Filename:=ThisWorkbook.Path & "\" & txt_name, Origin:=950 _
, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, 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), Array(8, 1), Array(9, 1), _
Array(10, 1)), TrailingMinusNumbers:=True
Windows(txt_name).Activate
Range("A" & i).Select
'當=1 為 Range("A1").Select
'當=2 為 Range("A2").Select 是這樣嗎? ..............
Next
End Sub |
|