Office中国论坛/Access中国论坛

标题: [求助]导出并打开EXCEL文件后如何可以激活对应的SHEET？ [打印本页]

作者: itez 时间: 2007-1-4 22:45
标题: [求助]导出并打开EXCEL文件后如何可以激活对应的SHEET？
使用以下方法从ACCESS导出数据并打开EXCEL文件后，EXCEL文件的当前SHEET是与上一次保存时的状态有关系，而并非肯定是这次导出的SHEET（如A），请问应该使用什么语句才能激活本次导出数据的SHEET？谢谢！

Dim path As String
path = CurrentProject.path & "\excel.xls"

Set oApp = CreateObject("Excel.Application")
oApp.Visible = False

Set oappwork = oApp.Workbooks.Open(path)
Set oappwork_itez = oappwork.Worksheets("A")

With Me.[NewSmall_3Subform].Form.Recordset
      .MoveFirst
      nn = .Fields.Count
      j = 8
      Do
         If .EOF Then
            Exit Do
         Else

            For i = 0 To nn - 1
                  oappwork_itez.cells(j, 5 + i) = .Fields(i)
            Next i
            j = j + 3
            .MoveNext

         End If
      Loop
      MsgBox "ok", vbOKOnly + vbInformation
      oApp.Visible = True
End With
On Error Resume Next
oApp.UserControl = True

作者: Joe5525601 时间: 2007-1-4 23:22
..............................
..............................

MsgBox "ok", vbOKOnly + vbInformation
oApp.Visible = True
End With
oappwork_itez.select
..............................
..............................

作者: itez 时间: 2007-1-5 17:31
谢谢Joe5525601的帮助!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)