Private Sub Command1_Click()
Dim Xlapp As Object
Dim Xlwb As Object
Dim Xlsh As Object
Set Xlapp = CreateObject("excel.application")
Xlapp.Visible = True'显示excel
Set Xlwb = Xlapp.workbooks.Add
'set xlwb=xlapp.workbooks.open("d:\123.xls") '打开已经存在的表用这个
Set Xlsh = Xlwb.worksheets(1)
Xl...