返回列表 上一主題 發帖

[發問] 將excel中的日期匯出成指定格式的txt檔案

ach594

帖子
2 
主題
1 
精華
0 
積分
5 
點名
0  
作業系統
xp 
軟體版本
office2000 
閱讀權限
10 
註冊時間
2014-11-13 
最後登錄
2014-12-1 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-11-13 16:27 | 只看該作者

[發問] 將excel中的日期匯出成指定格式的txt檔案

請問我有2個excel檔案 想要匯出成 ansi 格式的txt檔
試了兩天都不能成功  因為在a欄的地方 是以"日期 時間"的格式存放
如：          2014/01/31  09:45:00 PM
我要輸出成 "2014/01/31 09:45"這樣的格式

我用錄巨集然後資料剖析把日期轉成文字 最後輸出的文字檔卻變成：
               "1/31/2014 1:45:0"
不知是那裡出了錯? 另外輸出txt檔的時候 能不能只輸出當天的資料 昨天以前的不要?

以下是我的巨集：

Sub Macro2()
'

' 快速鍵: Ctrl+Shift+Q
'
   
Dim AA, BB, CC, DD, EE, FF, GG As String
Dim a As Integer
   
  
Workbooks.Open Filename:="C:\Documents and Settings\Administrator\桌面\1.csv"
    Columns("B:B").Select
    Selection.Insert Shift:=xlToRight
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 2), Array(17, 1))

Open "c:\txtmin5\tw100.txt" For Output As #1
For a = [a65536].End(xlUp).Row - 60 To [a65536].End(xlUp).Row

    AA = Cells(a, 1)
    BB = Cells(a, 3)
    CC = Cells(a, 4)
    DD = Cells(a, 5)
    EE = Cells(a, 6)
    FF = Cells(a, 7)
   
   
        mystr = AA & " " & BB & " " & CC & " " & DD & " " & EE & " " & FF
        
    Print #1, mystr
   
Next a
   
Close #1

ActiveWindow.Close

End Sub

附檔是未處理的檔案跟要輸出txt檔的目標格式 1.rar (6.52 KB)
麻煩大家了 謝謝
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2014-11-19 16:16 | 只看該作者
回復 1# ach594
AA = Format(Cells(a, 1).value, "yyyy/mm/dd hh:mm")
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
返回列表 上一主題