调用Excel的怪事

koutx

用:
dim acadApp As Object, acadDoc As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(path)
Set xlSheet = xlBook.Worksheets("Sheet1")
在WinXP、Excel2003下，不管是.mdb或是转成.mde都能使Excel窗体置于最前；
但是在Win7、Excel2007下，.mdb时可以；可转成.mde后Excel总是置后，不得不点屏幕下方任务栏的Excel来将其调到最前面。
有没有办法解决呢？

todaynew

加一句试试：
xlBook.Application.WindowState = xlMaximized

koutx

todaynew：不行啊，显示：
运行时错误"1004"
不能设置类Application的WindowState属性

todaynew

不会吧？我试了一下可以。你看看实例中A到E的代码。



Private Sub A到E_Click()
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim i As Long
xlApp.Application.Visible = True
Set xlBook = xlApp.Workbooks.Open(CurrentProject.Path & "\学生成绩表.xls")
xlBook.Application.WindowState = xlMaximized
xlBook.Application.Sheets(1).Select
xlBook.Application.Cells(2, 2).Value = "乡村小学"
xlBook.Application.Cells(2, 5).Value = DLast("日期", "成绩表")
xlBook.Application.Cells(3, 2).Value = Me.班级.Value
xlBook.Application.Cells(3, 5).Value = DLast("科目", "成绩表")
For i = 1 To Me.成绩窗体.Form.RecordsetClone.RecordCount
    Me.成绩窗体.Form.SelTop = i
    xlBook.Application.Cells(i + 4, 1).Value = Me.成绩窗体.Controls("学号").Value
    xlBook.Application.Cells(i + 4, 2).Value = Me.成绩窗体.Controls("姓名").Value
    xlBook.Application.Cells(i + 4, 3).Value = Me.成绩窗体.Controls("性别").Value
    xlBook.Application.Cells(i + 4, 4).Value = Me.成绩窗体.Controls("成绩").Value
Next
xlBook.Save
Set xlApp = Nothing
Set xlBook = Nothing
End Sub

koutx

在WinXP加Office2003下可以(即使不加这一句)，但是在Win7加Office2007下不行。
不但是调用Excel，在WinXP下调用CAD2004也可以，但在Win7下调用CAD2010也出同样的现象，都跑任务栏下去了。
真不知什么原因。

todaynew

在WinXP加Office2003下可以(即使不加这一句)，但是在Win7加Office2007下不行。
不但是调用Excel，在WinXP下调用CAD2004也可以，但在Win7下调用CAD2010也出同样的现象，都跑任务栏下去了。
真不知什么原因。
koutx 发表于 2010-5-18 18:30

我是在win7下测试的，不知道你的系统是不是有问题。

koutx

下去整理一简单样库发上来，有劳帮看一下（）。

koutx

todaynew，发上来一个简单例子，一个是mdb、一个是转为了mde，mdb的可以，mde的就不行了。
注：Excel表是在WinXP下的Excel2003作的，测试是在Win7的Excel2007环境下。
请帮忙给看一下什么原因，问题不大可真烦人。多谢
晕，附件忘了没上

koutx

晕，刚才附什忘了没上，现追补上

koutx

别沉了