Pak
Sebelumnya saya mengunakan di bawah ini :
wb2.SaveAs ("F:\Bikin_OHLC\hasil\OHLC-" & .Text(tgl, "yyyy-mm-dd") & ".txt")
yg saya save -- adalah workbook.
sedangakn bapak memakai dibawah ini :
sfiletxt=wbkapp.path & "\myText_" & format(now,"YYYYMMDD\_HHnnss") & ".txt"
wbktxt.sheets(1).saveas sfiletxt,xlcsv
yg bapak save --- adalah worksheet.
yg hendak saya tanyakan : xlcsv -- ini maksud nya apa ?
Salam
Lukman
2015-06-13 21:55 GMT+07:00 'Mr. Kid' [email protected] [belajar-excel] <
[email protected]>:
>
>
> 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
>>>>
>>>>
>>>>
>>>>
>>>
>>
>
>
