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

createTextFile如何存成相同時間格式?

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

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

樓主熱帖

PKKO

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 276
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

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

學海無涯_不恥下問

TOP

PKKO