Hai Lukman,
xlcsv (comma separated value) adalah file format yang ditunjukkan ke Excel
saat save file sebagai data yang disimpan dengan delimiter koma. Andaikan
melakukan save as melalui menu File, maka akan tampak filetype yang bisa
dipilih berbagai macam, mulai dari xlsx sampai xla atau ods. xlcsv adalah
save dengan filetype csv.
Data multi kolom akan tersimpan dengan delimiter comma. Andaikan ada
karakter koma disebuah field, maka field tersebut akan ditulis dengan
diapit quotes (") seperti menyimpan suatu nilai berbunyi 'a,b,c' akan
ditulis sebagai "a,b,c" (dengan quotes). Jika teks berbunyi 'a,b,c'
disimpan disebuah cells. Jika teks 'a' disimpan di cell a1, 'b' di b1, 'c'
di c1, maka hasil xlcsv akan berupa text file berisi a,b,c (tanpa quotes).
Wassalam,
Kid
2015-06-14 17:26 GMT+10:00 lkm jktind [email protected] [belajar-excel] <
[email protected]>:
>
>
> 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
>>>>>
>>>>>
>>>>>
>>>>>
>>>>
>>>
>>
>
>
