mayuezxl 发表于 2006-8-7 19:05:00

<P>Dim XlappBook As Excel.Workbook<BR>Dim xlapp As Excel.Application</P>
<P><BR>&nbsp;Set xlapp = CreateObject("Excel.Application")&nbsp;<BR>&nbsp;Set XlappBook = xlapp.Workbooks.Open("d:\book3.xls")<BR>&nbsp;&nbsp; xlapp.Visible = True '==========设置EXCEL可见<BR>&nbsp;&nbsp; XlappBook.Worksheets("sheet1").Range("A2").Value = 123<BR>&nbsp;&nbsp; XlappBook.save '============保存文件的修改</P>
<P>&nbsp;</P>
页: 1 [2]
查看完整版本: 程序运行出现的问题