Hai Lukman,
Salah satu cara adalah dengan membuat text file sendiri dengan iofile
seperti contoh yang ada disini
<https://app.box.com/s/7urcxbqc33vu7sk8m9t5qnmmf7hi1ja1>, dengan yang
dijadikan berupa udf penulisan text file ada disini
<https://app.box.com/s/f3f2af2x7cyb9pi7a9kh>.
btw,
Jika datanya relatif lebih simpel dan menggunakan delimiter koma, fitur
save as yang bisa menyimpan sebagai csv file bisa dimanfaatkan.
Contoh :
Data yang diambil adalah kolom A,B,E, dan H, ada di sheet data bernama
'myData' dalam workbook myApp
File txt tujuan akan disimpan di folder yang sama dengan myApp dengan
format 'myText_YYYYMMDD_HHnnss.txt'
dim sFileTxt as string
dim wbkApp as workbook, wbkTxt as workbook
application.displayalerts=false
set wbkapp=thisworkbook
sfiletxt=wbkapp.path & "\myText_" & format(now,"YYYYMMDD\_HHnnss") & ".txt"
'buat workbook baru yang akan disave as txt
set wbktxt=workbooks.add
wbkapp.activate
'copas values
wbkapp.sheets("myData").range("a:b,e:e,h:h").copy
wbktxt.sheets(1).range("a1").pastespecial xlpastevalues 'kuatirnya di
myData kolom A,B,E,H ada formulanya
'save as txt sebagai csv file lalu tutup
wbktxt.sheets(1).saveas sfiletxt,xlcsv
wbktxt.close false
application.displayalerts=true
Wassalam,
Kid
2015-06-11 20:21 GMT+10:00 lkm jktind lkmjkt...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Tanya
>
> Saya mengunakan OS win 7 64 Bit
>
> Excel versi 2010 64 bit.
>
> dioleh dengan VBA.
>
> sumber data di sheet1 .
>
> hasil data di sheet 2.
>
>
> wb2.SaveAs ("F:\Bikin_OHLC\hasil\OHLC-" & .Text(tgl, "yyyy-mm-dd") &
> ".txt")
>
> hasil nya jadi error .
>
> bila dengan cara manual bisa . (copy dulu file excel nya --- kemudian di
> paste di notepad--->
> baru di save === bisa )
>
>
> Salam
>
>
> Lukman
>
>
>
>
>
