如何在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) {
				 ********
			 }