- 帖子
- 95
- 主題
- 29
- 精華
- 0
- 積分
- 150
- 點名
- 0
- 作業系統
- windows2003
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Kaoshiung
- 註冊時間
- 2010-11-5
- 最後登錄
- 2018-2-8
|
[發問] 請教版主,如何在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)
|
|
發表於 2013-11-1 14:52
| 
