帖子: 77
主題: 11
精華: 0
積分: 118
點名: 0
作業系統: winXP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-12-24
最後登錄: 2011-3-2

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-1-17 14:20 | 只看該作者

[發問]請問輸出成.TXT檔時可以指定在TXT檔中的位置嗎?

請問格為大大：
EXCEL輸出成.TXT檔時，可以指定每一欄的資料開頭從哪一個位置開始嗎?

因為輸出報表需求，所有資料列中，每一欄的資料開頭的位置必須一致
因資料長短不一，又夾雜中、英文與數字
所以不管我用Len、LenB去算同一蘭的最大長度，其餘補空白的方式皆無法圓滿
所以想請問各位大大能否直接指定起始位置?
或還有其他解決方式?

感恩

樓主熱帖

ASUS

asus103

中學生 Rank: 2

帖子: 77
主題: 11
精華: 0
積分: 118
點名: 0
作業系統: winXP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-12-24
最後登錄: 2011-3-2

14^#

發表於 2011-1-19 17:18 | 只看該作者

回復 13# Hsieh
感謝Hsieh大大
我大概有七、八成懂了
我會試著用這些概念來寫一個函數，已徹底了解其用法
感謝您
這真是個豐收的一天

ASUS

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

13^#

發表於 2011-1-19 17:05 | 只看該作者

回復 12# asus103

For Each A in [A1:D1]
所以變數A依序為A1,B1,C1,D1
ad變數是變數A到A所在欄位資料尾範圍的位址字串
當A=[A1]時，ad="$A$1:$A$11"
當A=[B1]時，ad="$B$1:$B$11"
以此類推

Evaluate就是計算括號內字串敘述
因為LEN函數同時為工作表函數與VBA函數，所以使用worksheetfunction無法正確引用，會出錯，故採用Evaluate
至於是為何能達到陣列計算效果，端賴括號內字串敘述，非Evaluate所致，Evaluate方法會依照描述運算，所以此例是因為ad字串是代表一個範圍，所以會有陣列效果產生

Evaluate在說明中已經明白指出，此方法是把名稱轉換成物件或者值
所謂名稱就是字串敘述
重點是字串敘述而不是Evaluate的解釋，Evaluate就像是個函數名稱
那麼它的功用就是把字串敘述轉成運算，如此而已。
若還不明白，我就不知該如何解釋了。請對Evaluate有更深認識的前輩幫忙解釋吧

學海無涯_不恥下問

TOP

asus103

中學生 Rank: 2

帖子: 77
主題: 11
精華: 0
積分: 118
點名: 0
作業系統: winXP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-12-24
最後登錄: 2011-3-2

12^#

發表於 2011-1-19 16:30 | 只看該作者

本帖最後由 asus103 於 2011-1-19 16:52 編輯

回復 11# Hsieh
感謝Hsieh大大的解說
我可以繼續請教嗎?

1.For Each A In [A1:D1]
  ad = Range(A, Cells(Cells.Rows.Count, A.Column).End(xlUp)).Address
  ad不是A1:D11嗎?為何每一次移動一欄而不是一個儲存格
ans:我使用第一列作迴圈，所以ad字串是傳回該列資料範圍的位址
不好意思，我還是不懂是如何告訴VBA是列作迴圈的
2.Ar(s) = Evaluate("MAX(LENb(" & ad & "))")
上式之所以是陣列公式是因為" & ad & "還是 Evaluate
換言之，若要在VBA中使用陣列公式要注意甚麼
如果說：
陣列公式中的{}用Evaluate()取代，EXCEL的函數所需引數放入字串中並用" &    & "來帶入
這樣對嗎?
3.Evaluate的用法我還須多加琢磨，只是
"使用Evaluate方法中等同是工作表函數運算"為何不是使用application.---
其實我也試過用application.LenB()只是編譯階段就出錯了

不好意思，繼續找您麻煩
如果有其他地方有Evaluate的用法或是VBA中使用陣列公式的使用說明
煩請告知，我會再多加努力的

ASUS

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

11^#

發表於 2011-1-19 16:03 | 只看該作者

回復 10# asus103
程式碼中許多事並不明白，還請指教
1.For Each A In [A1:D1]
  ad = Range(A, Cells(Cells.Rows.Count, A.Column).End(xlUp)).Address
  ad不是A1:D11嗎?為何每一次移動一欄而不是一個儲存格
ans:我使用第一列作迴圈，所以ad字串是傳回該列資料範圍的位址

2.Ar(s) = Evaluate("MAX(LENb(" & ad & "))")
感覺上像EXCEL中陣列的用法，但實在掌握不住竅門所在，能解釋一下這個用法嗎?
ans:這是陣列用法沒錯，這等於在儲存格內填入陣列公式，假設ad變數的值等於"$A$1:$A$11"
就等同在儲存格內輸入陣列公式{=MAX(LENB($A$1:$A$11))}所得到的值一樣

3.Evaluate("LenB(""" & test & """)") 的用法也看不懂
  我把它改成 LenB( test) 後逐行執行時還OK，但最後似乎變成無線迴圈跳不出來
  Evaluate()已大大的用法似乎代表函數是嗎?但說明中只有它是"方法"的用法
4.我用lenb()在程式中得到的第2欄最大值為26，為何大大能得正確的22
ans3、4:Evaluate名稱轉換成物件或者值
所以他就是一個物件包裝方法，將字串描述轉換成敘述所得之值
這邊值得注意的是vba的LENB函數跟工作表函數LENB有所差異
使用Evaluate方法中等同是工作表函數運算
工作表函數LENB會依照每個字的位元數計算
vba的LENB函數則每個字元都視為2個位元
此差異性請參閱VBA的LENB範例說明

學海無涯_不恥下問

TOP

asus103

中學生 Rank: 2

帖子: 77
主題: 11
精華: 0
積分: 118
點名: 0
作業系統: winXP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-12-24
最後登錄: 2011-3-2

10^#

發表於 2011-1-19 14:55 | 只看該作者

回復 8# Hsieh
Hsieh大大您好：
您的程式碼真是神乎其技阿
感恩

程式碼中許多事並不明白，還請指教
1.For Each A In [A1:D1]
  ad = Range(A, Cells(Cells.Rows.Count, A.Column).End(xlUp)).Address
  ad不是A1:D11嗎?為何每一次移動一欄而不是一個儲存格
2.Ar(s) = Evaluate("MAX(LENb(" & ad & "))")
感覺上像EXCEL中陣列的用法，但實在掌握不住竅門所在，能解釋一下這個用法嗎?
3.Evaluate("LenB(""" & test & """)") 的用法也看不懂
  我把它改成 LenB( test) 後逐行執行時還OK，但最後似乎變成無線迴圈跳不出來
  Evaluate()已大大的用法似乎代表函數是嗎?但說明中只有它是"方法"的用法
4.我用lenb()在程式中得到的第2欄最大值為26，為何大大能得正確的22

是我程度太差了，這麼多看不懂的地方
還請大大多加提點
感謝再感謝

ASUS

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

9^#

發表於 2011-1-19 13:40 | 只看該作者

回復 8# Hsieh

大大真是厲害~

學習才能提升自己

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

8^#

發表於 2011-1-19 13:16 | 只看該作者

回復 6# asus103