將整理好的資料排程滙出成TXT 檔 export txt file format from MARCO

如何將整理好的資料排程滙出成TXT 檔

步驟1:
Edit Module  ( Ctrl+M )  , 增加下列語法
/*===============================
Sub exp()

Dim strNow, strDD, strMM, strYYYY, strFulldate
strYYYY = DatePart("yyyy",Now())
strMM = Right("0" & DatePart("m",Now()),2)
strDD = Right("0" & DatePart("d",Now()),2)
fulldate = strYYYY & strMM & strDD

set obj = ActiveDocument.GetSheetObject("CH06")

obj.Export "C:\ProgramData\QlikTech\Documents\DataName"&fulldate&".txt","|" 
ActiveDocument.Save
Application.Quit
End Sub

/*===============================
說明:  CH06 是你要滙出資料表的ObjectID 
obj.Export 後為檔名而 "|" 為輸出時的欄位間隔符號

步驟2:

           加入一個OnPostReload 的Trigger ;

            下列圖中我有先指定只要前一天的資料條件，再執行Marco

以上存好後再用command 的方式執行就會自動出現滙出的TXT 檔案囉.