Terima kasih.
Salam
Lukman
2015-06-14 15:35 GMT+07:00 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> 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 lkmjkt...@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com>:
>
>>
>>
>> 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' mr.nm...@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> 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 lkmjkt...@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> 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' mr.nm...@gmail.com [belajar-excel]
>>>> <belajar-excel@yahoogroups.com>:
>>>>
>>>>>
>>>>>
>>>>> 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
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>
>>>
>>
>
>
