Showing posts with label excel. Show all posts
Showing posts with label excel. Show all posts

Monday, September 23, 2013

Internal Cash Flow dengan Vb.net dan excel

Laporan pengeluaran dan pemasukan keluarga kadang ada yg di catat semua, detail dengan dalih agar lebih terkontrol. Saya pribadi sebenarnya tidakmelakukan itu, tapi istri saya melakukannya. Satu waktu ada seorang teman minta dibuatkan programnya. Agar tidak manual hihhi

Sebenarnya program ini simple saja, hanya laporan di excel hanya dengan menggunakan GUI dari aplikasi buatan dengan VB.net. Dengan tampilan seperti berikut:



hanya mencatat pemasukan dan pengeluaran, dengan adanya summary jumlah yang masuk dan keluar, sehingga lebih terlihat dan mudah di kontrol, baik harian, bulanan, atau tahunan..
Bisa di buat reportnya yang akan menghasilkan laporan dengan file excel..

jika mau coba dan pakai source nya ada di:
Source
Sedangkan untuk yang sudah jadi berupa installer ada di:
Installer
note: saat diinstall harap di arahkan agar di install di folder:
C:\Internal Cash-Flow
Agar program bisa berjalan. jika mau edit dan atau di tambahkan bisa download saja sourcenya..
Didalamnya menggunakan koneksi dengan excel seperti yang pernah saya post di blog ini sebelumnya..


Sunday, September 16, 2012

simple tutorial how to : VB.net and excel connection Part 2

Lanjutan Part 1
Copy dan Paste Range

Copy Paste dalam satu sheet yang sama

Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
    Dim xlApp As New Excel.Application
    Dim xlWorkBook As Excel.Workbook
    Dim xlWorkSheet As Excel.Worksheet
    Dim xlSourceRange, xlDestRange As Excel.Range

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        xlWorkBook = xlApp.Workbooks.Open("C:\vb dan excel\percobaan.xlsx") 
       xlApp.Visible = True

       xlWorkSheet = xlWorkBook.Sheets("Sheet1")

        '~~> sumber yg mau di copy
        xlSourceRange = xlWorkSheet.Range("A1:B10")

        '~~> tujuan atau mau dipaste
        xlDestRange = xlWorkSheet.Range("D1")

        '~~> Copy paste range
        xlSourceRange.Copy(xlDestRange)
    End Sub   
End Class


Copy Paste dalam satu workbook yang sama beda worksheet

simple tutorial how to : VB.net dan excel connection Part 1

Setting agar VB.Net bisa terkoneksi dengan excel
Pada project "Add reference" , masuk tabulasi "COM" lalu pilih Microsoft Excel Object Library
Masukan kode berikut sebelum Public (paling atas)


Imports Excel = Microsoft.Office.Interop.Excel

Membuat file excel baru
Berikut contohnya, dipasang pada button 1


Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
'~~> mendefine object excel
Dim xlApp As New Excel.Application
Dim xlWorkBook As Excel.Workbook

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'~~> membuat WorkBook (file excel) baru
xlWorkBook = xlApp.Workbooks.Add

'~~> memumculkan file excel 
xlApp.Visible = True
End Sub
End Class


Membuka file excel