如何在VC++中表达以下VB代码？

            

            Dim xlapp As Object

            Dim xlbook As Object

            Dim xlsheet As Object

            xlapp = CreateObject("Excel.Application") '创建EXCEL对象 

            xlbook = xlapp.Workbooks.Open(Application.StartupPath + "\database\empty.xls") '创建新文件

            xlapp.Visible = False '设置EXCEL对象可见（或不可见） 

            xlsheet = xlbook.Worksheets("Sheet1") '设置活动工作表 '选中所要读取的范围 

            xlbook.Worksheets("Sheet1").range("A1:H158").value =           AxSpreadsheet1.Sheets("sheet1").range("A1:H158").value   '读取到外部表

#pragma endregion

	private: System::Void openToolStripMenuItem_Click(System::Object^  sender, System::EventArgs^  e) {

				 ********

			 }