Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim excelObj As Object = GetObject(, Excel.Application) If excelObj.Workbooks.Count = 0 Then 注意，如果是新建未保存的工...

添加引用-Com-Microsoft Excel 9.0 Object Library 1 打开Excel： dim myexcel as new Excel.Application() myexcel.visible=true 2 添加新的工作簿： myexcel.Workbooks.add() 3 设定第二个工作表为活动工作表： myexcel.works...