特急！！！关于EXCEL（解决马上给分）

Question

Private Sub Command1_Click()
Dim x(1 To 4, 1 To 5) As Integer
        Dim ex   As Object
        Dim exBook   As Object
        Dim exsheet   As Object
        Set ex = CreateObject("Excel.Application")
        Set exBook = ex.Workbooks().Add
        Set exsheet = exBook.Worksheets("sheet1")'大片赋值
        ex.Range("c4:g7").Value = x

Answer 1

to :xxlroad(土八路) 
谢谢你的建议，可是我一执行Set ex = CreateObject("Excel.Application")
就死机呀

Answer 2

有道理
      '  关闭工作表。
      exBook.Close
      '用  Quit  方法关闭  Microsoft  Excel
      ex.Quit
      '释放对象
      Set ex = Nothing
      Set exBook = Nothing
      Set exsheet = NothingEnd Sub

Answer 3

后面忘记贴了
    '保存
ChDir "C:\Win98\Desktop"
ActiveWorkbook.SaveAs filename:="C:\Win98\Desktop\aaa.xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
      '  关闭工作表。
      exBook.Close
      '用  Quit  方法关闭  Microsoft  Excel
      ex.Quit
      '释放对象
      Set ex = Nothing
      Set exBook = Nothing
      Set exsheet = NothingEnd Sub

Answer 4

你的 Excel 有问题没有？

Answer 5

我是OFFICE20000，我一开始也怀疑是EXCEL的问题，可是重新安装OFFICE，
还是这个毛病

Answer 6

死机的问题解决，谢谢各位。
to:xxlroad(土八路) 
ex.Range("c4:g7").Value = x
能不能给我解释一下RANGE的用法。
比如说，我一次要添加一行数据，每行20条，我已经定义了一个数组
DIM DAT（1 TO 1 ，1 TO 20） AS STRING
下面怎么添加？

Answer 7

xlbook.Close
xlapp.Quit
Set xlsheet = Nothing
Set xlbook = Nothing
Set xlapp = Nothing执行上述语句后，EXCEL还是没有关闭。

Answer 8

你试用下Excel97,你引用的是Excel8.0的话就应该用97

Answer 9

ex.Range("c1:c20").Value = DAT