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

把Excel 資料匯出為純文字並填入固定值

zero1019

中學生 Rank: 2

帖子: 14
主題: 6
精華: 0
積分: 64
點名: 0
作業系統: Windows
軟體版本: office 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-11-3
最後登錄: 2017-5-30

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-2-2 22:29 | 只看該作者

把Excel 資料匯出為純文字並填入固定值

請問  我有一張excel表

表類股票代碼年份數字A       數字B
A01 6271          96          55.6       0.27

股票代號前面補4個0
年分          後面補3個0
數字A    前面補4個0(也就是小數點前要有8碼),取到小數第三位,且小數點不要->000055600
數字B    同前 --> 000000270

最後結果-->A010000627196000000055600000000270

我想要再固定的格子塞入固定的值並產出成txt檔~
請問VBA要怎麼才能做到

我會產出TXT檔~~但我卡再塞入固定值

或是不用VBA也可以  有甚麼函數可以達到這種功效嘛??

請各位大師幫忙~謝謝

DATA.zip (7.1 KB)

樓主熱帖

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2015-2-3 16:33 | 只看該作者

本帖最後由 stillfish00 於 2015-2-3 16:37 編輯

回復 1# zero1019
如果要補零的都是數字可以用format函數就好，如果還包含字母，可以自己寫...

Function FillStrZero(strIn As String, digit As Integer, Optional fromLeft As Boolean = True) As String
If Len(strIn) > digit Then Err.Raise vbObjectError + 9999, , "String length should not larger than " & digit & "digit."
FillStrZero = IIf(fromLeft, String(digit - Len(strIn), "0") & strIn, strIn & String(digit - Len(strIn), "0"))
End Function

複製代碼

test

Sub Test()
MsgBox [A2] & FillStrZero([B2], 8) & FillStrZero([C2], 5, False) & FillStrZero(Round([D2] * 1000), 9) & FillStrZero(Round([E2] * 1000), 9)
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

電暖爐