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

1^# 跳轉到 »

發表於 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

複製代碼

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

靜思自在 : 知識要用心體會，才能變成自己的智慧。

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