標題: createTextFile如何存成相同時間格式? [打印本頁]

---

作者: PKKO    時間: 2013-8-27 14:24     標題: createTextFile如何存成相同時間格式?

各位大大
我在論壇上學到如何將檔案存成LF換行的檔案
但是...時間格式卻跟原本不一樣
                                     D1儲存格↓    E1儲存格↓
(原本)=>                12/12/2012        11:23:57
(存檔完畢之後)=>2012/7/24        0.742708333
問題如下↓
1.原本的D1日期格式相反
2.原本的E1時間變成原始碼
因為存檔完畢是LF換行的檔案，我無法再進行更改格式....
有人有辦法嗎?例如：用CH(X)之類的?還是有甚麼方法呢= =

下方是我的巨集內容

Set filesys = CreateObject("Scripting.FileSystemObject")
   
   Set a = filesys.createTextFile("C:\Documents and Settings\bobchiou\桌面" & "\_10X\" & Filename & "_8_2.tpl", True)

    rec = 1

    OO = ThisWorkbook.Sheets("Sheet1").Range("J3")


    Do While I <= OO

    AB = ThisWorkbook.Sheets("Sheet1").Cells(rec, 1).Value
    CD = ThisWorkbook.Sheets("Sheet1").Cells(rec, 2).Value
    EF = ThisWorkbook.Sheets("Sheet1").Cells(rec, 3).Value
    GH = ThisWorkbook.Sheets("Sheet1").Cells(rec, 4).Value
    IJ = ThisWorkbook.Sheets("Sheet1").Cells(rec, 5).Value
    KL = ThisWorkbook.Sheets("Sheet1").Cells(rec, 6).Value
    MN = ThisWorkbook.Sheets("Sheet1").Cells(rec, 7).Value
   
   
      rec = rec + 1
      I = rec
      
    If I <= 11 Then
    a.write AB & Chr(9) & CD & Chr(9) & EF & Chr(9) & GH & Chr(9) & IJ & Chr(9) & KL & Chr(9) & MN & Chr(10)
    ElseIf I > 11 Then
    a.write AB & Chr(10)
    End If
                  
    Loop

   
        a.Close

---

作者: Hsieh    時間: 2013-8-28 08:53

本帖最後由 Hsieh 於 2013-8-28 08:54 編輯

回復 1# PKKO

用儲存格的Text屬性，不要用Value屬性
如:
AB = ThisWorkbook.Sheets("Sheet1").Cells(rec, 1).Value
改成
AB = ThisWorkbook.Sheets("Sheet1").Cells(rec, 1).Text

---

作者: PKKO    時間: 2013-8-29 23:37

回復 2# Hsieh


    感恩
大大實在厲害
明天上班試試看

---

作者: PKKO    時間: 2013-8-30 13:11

回復 2# Hsieh


    已經OK囉~感謝大大

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)