createTextFile如何存成相同時間格式?
- 帖子
- 549
- 主題
- 152
- 精華
- 0
- 積分
- 691
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-8-10
- 最後登錄
- 2022-9-7
 
|
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
|
|
|
|
|
- 帖子
- 549
- 主題
- 152
- 精華
- 0
- 積分
- 691
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-8-10
- 最後登錄
- 2022-9-7
|
4#
發表於 2013-8-30 13:11
| 只看該作者
|
|
PKKO
|
|
|
|
|
- 帖子
- 549
- 主題
- 152
- 精華
- 0
- 積分
- 691
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-8-10
- 最後登錄
- 2022-9-7
|
3#
發表於 2013-8-29 23:37
| 只看該作者
回復 2# Hsieh
感恩
大大實在厲害
明天上班試試看 |
|
|
PKKO
|
|
|
|
|
發表於 2013-8-28 08:53
| 