Código VBA não atualizando consulta externa

1

Eu tenho um pequeno arquivo do Excel com o VBA. Usamos o agendador de tarefas no Windows para abrir esse pequeno arquivo que, em seguida, executa uma macro para abrir, atualizar e salvar vários relatórios que foram automatizados. O arquivo funciona bem no Windows 2000 e no Excel 2003, mas estamos convertendo para o Windows 7 e o Excel 2010. O agendador de tarefas abre o arquivo e o arquivo abre o relatório apropriado. Parece que ele é atualizado e, em seguida, exclui o relatório anterior e salva o novo relatório em um determinado local. Mas quando abro o relatório atualizado, os dados da consulta externa não foram alterados. Eu posso executar o relatório manualmente, batendo em Atualizar tudo, e os dados são atualizados. Também não encontrei nenhum erro no VBA. Aqui está o código:

Private Sub Workbook_Open()
    Dim wrkNewBook As Workbook
    Dim wrkOldBook As Workbook
    Dim iCount As Integer
    Dim sFileName As String
    Dim sReportName As String
    Dim iSheetCount As Integer
    Dim sWrapperName As String

    sWrapperName = ActiveWorkbook.Name

    sFileName = CStr(Application.Workbooks(sWrapperName).Sheets(1).Range("FileName").Value)
    iSheetCount = CLng("0" & Application.Workbooks(sWrapperName).Sheets(1).Range("NumberOfWorkSheets").Value)

    Set wrkOldBook = Application.Workbooks.Open(sFileName)
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ActiveWorkbook.RefreshAll
    Application.Calculate

    If iSheetCount > wrkOldBook.Sheets.Count Then
        iSheetCount = wrkOldBook.Sheets.Count
    End If

    While (wrkOldBook.Sheets.Count > iSheetCount)
        wrkOldBook.Sheets(wrkOldBook.Sheets.Count).Delete
    Wend

    Application.ScreenUpdating = True
    Application.Calculate

    wrkOldBook.SaveAs "W:\SHAREU\Finance\POLR 500 Reports\" & wrkOldBook.Name
    wrkOldBook.SaveAs "E:\PUB\EEP\Finance\Cost Reports\" & wrkOldBook.Name
    wrkOldBook.Close False
    Application.DisplayAlerts = True

    Application.Quit
End Sub

Existe algo que eu preciso mudar para que funcione no Excel 2010?

    
por AJ Auj 17.08.2012 / 14:48

0 respostas