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

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

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

[發問] 文字檔開啟

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

1^# 跳轉到 »

發表於 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: 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兔年全勤獎章

2^#

發表於 2013-5-11 13:07 | 顯示全部帖子

回復 5# koplkjnm
配合 1# 檔案名稱為 y(i)-->y(1),y(2),y(3),... 這為陣列
如 y = Array("abc", "acc", "qqq", "aaa", "ccc")
y(1)="abc"
y(2)="acc"
y(3)="qqq"

4# 可改

Sub Ex()
Dim A As Variant, i As Integer, x As Integer
x = InputBox("檔案數量")
For i = 1 To x
Range("A" & i).Select
'************************
'If I = 1 Then
'Range("A1").Select
'Else
'Range("A2").Select
'End If
'*****************************
Next
End Sub '

複製代碼

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

超級版主 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-13 06:18 | 顯示全部帖子

回復 7# koplkjnm

Option Explicit
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
'***********************
Range("A" & i).Select
'當=1 為 Range("A1").Select
'當=2 為 Range("A2").Select 是這樣嗎? ..............
Next
End Sub

複製代碼

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

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

4^#

發表於 2013-5-14 07:55 | 顯示全部帖子

回復 9# koplkjnm
如果我將它改成像藍字的部分可以嗎?
程式試了有問題嗎?

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

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

5^#

發表於 2013-5-15 06:22 | 顯示全部帖子

回復 11# koplkjnm
附檔看看

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

靜思自在 : 人生最大的成就是從失敗中站起來。

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