麻辣家族討論版版 » Excel程式區 » 請教版主,如何在Excel工作表上輸出為txt檔後,於欄位上增加冒號?

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

[發問] 請教版主,如何在Excel工作表上輸出為txt檔後,於欄位上增加冒號?

中學生 Rank: 2

帖子: 95
主題: 29
精華: 0
積分: 150
點名: 0
作業系統: windows2003
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: Kaoshiung
註冊時間: 2010-11-5
最後登錄: 2018-2-8

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2013-11-1 14:52 | 只看該作者

[發問] 請教版主,如何在Excel工作表上輸出為txt檔後,於欄位上增加冒號?

Dear 版主及各位大大們您好 :
小弟有一問題,在工作表內容輸出為文字檔後,想在A欄之文字後均加冒號,其餘皆依造原程式設定,不知該如何修正程式,請各位先進及版主不吝指正,感恩!

Sub TextExport()
Dim rng As Range
Dim iWks As Integer, iRow As Long, iCol As Integer
Dim sTxt As String, sPath As String
Dim ff As Integer
ff = FreeFile
sPath = ThisWorkbook.Path & "\"
For iWks = 2 To Worksheets.Count
Open sPath & Worksheets(iWks).Name & ".txt" For Output As #ff
Set rng = Worksheets(iWks).UsedRange
For iRow = 2 To rng.Rows.Count + 1
For iCol = 1 To rng.Columns.Count
If sTxt = "___" Then
sTxt = sTxt & " "
Else
sTxt = sTxt & Format(Worksheets(iWks).Cells(iRow, iCol).Value, "000") & " "
End If
Next iCol
Print #ff, sTxt
sTxt = vbNullString
Next iRow
Close #ff
Next iWks
End Sub

複製代碼

問題發問_20131101_Q.zip (14.27 KB)

樓主熱帖

收藏

中學生 Rank: 2

帖子: 45
主題: 1
精華: 0
積分: 51
點名: 0
作業系統: windows 7
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2013-4-16
最後登錄: 2013-12-30

3^#

發表於 2013-11-4 01:48 | 只看該作者

用replace不行嗎? copy空白位置, 貼下在搜尋, 冒號就是replace空白位置

大學生 Rank: 4

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

2^#

發表於 2013-11-1 15:46 | 只看該作者

回復 1# cmo140497
16行

sTxt = sTxt & Format(Worksheets(iWks).Cells(iRow, iCol).Value, "000") & IIf(iCol = 1, ":", " ")

複製代碼

靜思自在 : 不怕事多，只怕多事。

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