文字檔開啟 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 文字檔開啟

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

[發問] 文字檔開啟

小學生 Rank: 1

帖子: 9
主題: 3
精華: 0
積分: 17
點名: 0
作業系統: 7
軟體版本: 2007
閱讀權限: 10
性別: 男
來自: taiwan
註冊時間: 2013-4-27
最後登錄: 2014-6-20

5^# 跳轉到 »

發表於 2013-5-11 00:16 | 只看該作者

GBKEE大
抱歉請問這段用意是什麼麻煩你了謝謝
txt_name = Array("abc", "acc", "qqq", "aaa", "ccc")

小學生 Rank: 1

帖子: 9
主題: 3
精華: 0
積分: 17
點名: 0
作業系統: 7
軟體版本: 2007
閱讀權限: 10
性別: 男
來自: taiwan
註冊時間: 2013-4-27
最後登錄: 2014-6-20

4^#

發表於 2013-5-11 00:11 | 只看該作者

抱歉我可能沒說清楚
下方的語法是可以連續開啟在同一個資料夾內的文字檔 1.txt ,2.txt ,...
那假使我的文字檔名為y(1).txt, y(2).txt, ...
那請問我要如何修改
感謝

Sub 文字檔案()
Dim txt_name, i, x, oldname
oldname = ThisWorkbook.Name
Range("A1").Select
x = InputBox("檔案數量")

For i = 1 To x
  txt_name = 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
If i = 1 Then
Range("A1").Select
Else
   Range("A2").Select
End If

Next

End Sub

超級版主 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兔年全勤獎章

3^#

發表於 2013-5-8 08:34 | 只看該作者

回復 1# koplkjnm
是這樣嗎?

Option Explicit
Sub 開啟檔案()
' Name是VBA 的關鍵字請不要變數名稱
Dim i, x As Integer, txt_name
oldname = ThisWorkbook.name & "\"
Range("A1").Select
txt_name = Array("abc", "acc", "qqq", "aaa", "ccc")
Do
x = Application.InputBox("數量不可 > " & UBound(txt_name) + 1, Type:=1)
Loop Until x <= UBound(txt_name) + 1 Or x = 0
If x > 0 Then
For i = 1 To x
Workbooks.Open txt_name & txt_name(i) & ".txt"
Next
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

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

高中生 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

2^#

發表於 2013-5-8 08:09 | 只看該作者

請問我想要用巨集開啟多個文字檔
檔案名稱為 y(i)-->y(1),y(2),y(3),...
那下碼怎麼修改

Sub 開啟檔案 ...
koplkjnm 發表於 2013-5-8 00:21

1. 有 For 沒 Next....
2.開起後？
3.文件檔案名稱？
4.檔案放置資料夾何在？

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

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

  少看=只看不做也枉然

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。

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