Excel ( Merger / Unmerger)

Persiapan :
- Microsoft Office 2003
- 2 command button (Name: Merger , Name: Unmerger)
- 1 textbox ( Name: TCell , Text : A1:B1:C1 )




masukkan souce ini ke dalam form :

'keterangan
'menambahkan micosoft excell object
'caranya :
'buka Project-->References--> beri tanda centang pada microsoft excel

Dim xls As New Excel.Application
Dim xlsw As Excel.Workbook
Dim xlsws As Excel.Worksheet

Private Sub Command1_Click()
Set xlsw = xls.Workbooks.Open(App.Path & "\New Microsoft Excel Worksheet.xls")

'Menampilkan Aplikasi EXCEL
xls.Visible = True

'memilih sheet yang digunakan
xlsw.Sheets("Sheet1").Select

'Merger Cell
xlsw.Application.Range(TCell.text).Merge
xlsw.Save
'xlsw.Close False
'xls.Quit
Set xlsw = Nothing
Set xls = Nothing
End Sub

Private Sub Command2_Click()
Set xlsw = xls.Workbooks.Open(App.Path & "\New Microsoft Excel Worksheet.xls")

'Menampilkan Aplikasi EXCEL
xls.Visible = True

'memilih sheet yang digunakan
xlsw.Sheets("Sheet1").Select

'UnMerger Cell
xlsw.Application.Range(TCell.text).UnMerge
'xlsw.Close False
'xls.Quit
Set xlsw = Nothing
Set xls = Nothing
End Sub