標題: [發問] 將excel中的日期匯出成指定格式的txt檔案 [打印本頁]

---

作者: ach594    時間: 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檔的目標格式 [attach]19543[/attach]
麻煩大家了 謝謝

---

作者: stillfish00    時間: 2014-11-19 16:16

回復 1# ach594
AA = Format(Cells(a, 1).value, "yyyy/mm/dd hh:mm")

---

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