如何<em>判断是否安装excel</em>软件-判断是否安装excel,excel判断

do while 循环前将n=1，cells(n,1)后加.value

Private Sub Command1_Click()

Set objexcel = CreateObject("Excel.application")
Set objworkBook = objexcel.Workbooks.Open("d:\k.xls", 3, False)
Set ExcelSheet = objworkBook.Worksheets(1)

objexcel.Visible = ture
以下三行是想e799bee5baa6e78988e69d83335如果单元格不为空就让变量n加1。
n=1'需要指定n的初始值，否则n为空值，下面的语句将错误。
Do While ExcelSheet.cells(n, 1).value <> "" 'cells后加value属性

n = n + 1
Loop
ExcelSheet.cells(n, 1).value = Text1.Text 'cells后加value属性

objworkBook.Save
objworkBook.Close

Set objexcel = Nothing
End Sub

1、你可点“开始”→程序，看列抄表中是否有“Microsoft Office”项，其子菜单中就包含有“Microsoft Word”、“Microsoft Excel”等子程序，若有，你点其中一个看是否能打开，能说明你安装有此软件袭。
2、写字板DOC文档知不是WORD文档，它是系统自带的；而Office软件不是系统自带的，需要自己安装，不过现在有克隆版的操作系统安装盘道则自带有此软件的2003版(即电脑公司特别版的操作系统安装盘)。
请问？ VB的版本，以及EXCEL的版本！
以后提类似问题请说明版本。

on error resume next
set excelapp = createobject("excel.application")
if err then
err.clear
msgbox "excel没有道安装版"
else
msgbox "安装了权excel"
end if