你把那第一段改成这样呀？'获取标题Dim Cols as integerfor Cols = 1 to DataGridView1..ColumnCount MyExcel.Cells(1,Cols)=DataGridView1.Columns(Cols-1).HeaderTextnext
使用ole控件，这里是ole的介绍：
我可以写个实例给你 有企鹅么
