hehehehe....
gitu ya... hehehehe....
kalau begitu, xlpastevalues nya diganti menjadi
xlpastevaluesandnumberformats
tapi pastikan sumber datanya di set number format nya dengan YYYY-MM-DD
sebelum si prosedur dijalankan.
atau,
sebelum baris copy diberi baris kode pengatur number format di sumber data.
Misalnya begini :
wbkapp.sheets("myData").range("a:a").numberformat="YYYY-MM-DD"
moga-moga bisa ya...
;)
Wassalam,
Kid
2015-06-13 15:39 GMT+10:00 lkm jktind [email protected] [belajar-excel] <
[email protected]>:
>
>
> Pak Kid.
>
> wbkapp.sheets("myData").range("a:b,e:e,h:h").copy
>
> untuk columns A -- ini data tanggal ---
>
> hasilnya menjadi : 42165,AALI,22750, dst
> hasil yg di kehendaki : 2015-06-12,AALI,22750, dst
>
> yg lain sudah sesuai.
>
> Salam
>
> Lukman
>
>
>
>
>
>
>
> 2015-06-12 6:58 GMT+07:00 'Mr. Kid' [email protected] [belajar-excel] <
> [email protected]>:
>
>>
>>
>> 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 [email protected]
>> [belajar-excel] <[email protected]>:
>>
>>>
>>>
>>> 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
>>>
>>>
>>>
>>>
>>
>
>
