Option ExplicitDim x(1 To 4, 1 To 5) As IntegerPrivate Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim ex As Object
Dim exwbook As Object
Dim exsheet As Object
Set ex = CreateObject("Excel.Application")
Set exwbook = Nothing
Set exsheet = Nothing
Set exwbook = ex.Workbooks().Add
Set exsheet = exwbook.Worksheets("sheet1")
ex.Range("c4:g7").Value = x
ex.Range("c3").Value = "表 格"
ex.Range("d3").Value = " 春 天 "
ex.Range("e3").Value = " 夏 天 "
ex.Range("f3").Value = " 秋 天 "
ex.Range("g3").Value = " 冬 天 "
'保存输入到a1.xls
exwbook.SaveAs "c:\abc.xls"
'退出excel
ex.QuitEnd Sub这个是第1个问题改变相应的range()值就可以了