Personal Mind of ASEP

kemaren2 gw bikin gimana caranya tranfer data yang udah gw tampilin di flexgrid ke dalam excel, setelah gw acak planet-source-code baru dapat deh 😀 , programnya sih cukup sederhana,

Langkah pertama masukin dulu Ms. Excel Object Library di preference nya vb yang ada di menu Project -> preferences trus masukin deh kode-kode kaya ginih :

Isikan ini di bagian deklarasi

Dim msExcel As Excel.Application
Dim msExcelWorkBook As Workbook
Dim msExcelWorkSheet As Worksheet
Dim msExcelRange As Range

Trus Masukan kode ini di bagian tombol untuk eksekusi perintah (Command Button)

Private Sub CmdExc_Click()
On Error GoTo heLL
Dim j, i
Set msExcel = CreateObject(“Excel.Application”)
msExcel.Visible = True
Set msExcelWorkBook = msExcel.Workbooks.Add
Set msExcelWorkSheet = msExcelWorkBook.Worksheets(1)
If Val(msExcel.Application.Version) >= 8 Then
Set msExcelWorkSheet = msExcel.ActiveSheet
Else
Set msExcelWorkSheet = msExcel
End If

i = 1
j = 1

For i = 0 To MSFlexGrid1.Rows – 1
MSFlexGrid1.Row = i
For j = 0 To MSFlexGrid1.Cols – 1
MSFlexGrid1.Col = j
msExcelWorkSheet.Cells(i + 1, j + 1) = MSFlexGrid1.Text
Next
Next
MsgBox “Transfer Data Berhasil”, vbInformation
Exit Sub
heLL:
If Err.Number > 0 Then
MsgBox “Ada kesalahan dalam transfer ke EXCEL harap di ulang kembali, OK !!”, vbCritical
Exit Sub
End If

End Sub

udah deh tampilan yang ada di flexgrid akan pindah di excel :), dan biasanya error akan muncul ketika proses pemindahan data dari grid ke excel belum selesai kita sudah eksekusi perintah lainnya

If only you could see the tears in
The world you left behind
If only you could heal my heart
Just one more time
Even when I close my eyes
There’s an image of your face
And once again I come to realize
You’re a loss I can’t replace

(Chourus)

Soledad
It’s a keeping for the lonely
Since the day that you were gone
Why did you leave me

Soledad

In my heart you were the only
And your memory lives on
Why did you leave me

Soledad

Walking down the streets of Nothingville
Where our love was young and free
I cant believe just what an empty place
It has come to be
I would give my life away
If it could only be the same
Cuz I can’t still the voice inside of me
That is calling out your name

(Chourus)

Time will never change the things
You told me
And after all were meant to be
Love will bring us back to you and me
If only you could see

(Repeat chourus till end)

kemaren gw sama beberapa rekan kantor pergi ke daerah gunung salak trus ke puncak dalam rangka ngelakuin survey buad acara tahunan kantor gw yaitu jambore yang bakalan di adain tanggan 15-26 februari 2006.

Gw beraangkat sekitar jam 9.30 dari kantor barengan ma pa joko(driver) , Mba Tari (Kabag Perpus) trus Mang Mamat (GA) trus Mba Nurul(Kabag Keu), dan perjalanan langsung menuju ke Pondok Ciparay yang ada di kawasan wisata gunung salak. Tetapi karena kondisi villa trus fasilitasnya ngga sesuai sama yang di pengenin, jadinya perjalan dilanjutin menuju puncak.

Sesampainya di puncak gw ma rekan kantor ngerasa kebingungan tempat mana yang kira2 cocok dan akhirnya nyampe di daerah cimacan cianjur gw dan masuk ke lingkungan vila inkarla(klo nga salah sih :D)

Disana cukup lama juga ngeliad-liad kondisi villanya trus fasilitasnya juga termasuk harganya juga.

Abis dari inkarla, sambil jalan balik menuju depok, kita-kita iseng2 juga nyari villa2 daerah puncak yah cuman sekedar ngebandingin aje sehhh. dan sekitar jam 8-an malem baru nyampe lagih di kantor deh

ko hari ini gw ngerasa kalo badan gw terasa lemes banget, trus kepala gw nyut2an, trus mata gw pengennnya dimeremin mulu

HUaaahhhhhhhhhhhhh…………..

semangaaaaaddddddddddddd

hiksss….rencana gw gagal….

manusia emang hanya bisa berencana dan yang menentukan hanyalan Alloh swt.

pada temen2, maafin gw yahh, karena gw udah nga nepatin janji gw….gw udah berusaha cuman yang menentukan itu semua bukanlah gw….