Pergunta : Como adicionar uma barra de carregamento

Olá!, o

I tem o código below que importa um spreadsheet em uma tabela do acesso. Antes que faça, faz algumas mudanças e suprime de algumas fileiras. Isto pode tomar 30 segundos impares. Quando acontecer o usuário é inconsciente do que é happening.

Is lá me codifica pode incorporate em meu código below indicar uma barra laoding/progresso?

Thanks, class= " lineNumbers " >

1 do >
Seamus


o class= o 


If IsNull de >
Private Command0_Click () (Me.txtFileName) ou Len (Me.txtFileName & "") = 0 Then
 MsgBox “de 
End do 
 Me.cm dSelect.SetFocus
 da lima primar " se 'lugar a extremidade se xlApp do here


Dim como o objeto, xlWbSource como o objeto, xlWsSource como Object
Dim o mais xlWbDest como o objeto, o mais xlWsDest como Object
Dim LastR tão por muito tempo, xlFile quanto o 
Dim WbSourcePath de String
 como String
Dim WbDestPath como String
xlFile = Me.txt FileName
WbSourcePath = xlFile
WbDestPath = saido (xlFile, InStr (xlFile,” .xls ") - 1) & “_Updated.xls" 

Const WsSourceName como a corda = “de BatchOutput” 'como a corda = “campos chaves” “xlUp do update
Const como por muito tempo = xlApp do 
Set de -4162
 = de 
Set de CreateObject update
Const WsDestName (de “Excel.Application”) xlWbSource = xlWsSource do 
Set de xlApp.Workbooks.Open (WbSourcePath) = 
Set de xlWbSource.Worksheets (WsSourceName) o mais xlWbDest = xlApp.Workbooks.Add
Set o mais xlWsDest = 1) 
xlWsDest.Name = de 
With de WsDestName
 xlWsSource
 LastR =. Pilhas (. Rows.Count, “a”). Extremidade (xlUp). Row
. Escala (“c1: c” & LastR). Copiar mais xlWsDest. 
. Escala (“g1: g” & LastR). Copiar mais xlWsDest. 
. Escala (“j1: j” & LastR). Copiar mais xlWsDest. 
. Escala (“k1: k” & LastR). Copiar mais xlWsDest. 
. Escala (“l1: l” & LastR). Copiar mais xlWsDest. 
. Escala (“m1: m” & LastR). Copiar mais xlWsDest. 
. Escala (“n1: n” & LastR). Copiar mais xlWsDest. 
. Escala (“o1: o” & LastR). Copiar mais xlWsDest. 
. Escala (“ad1: anúncio” & LastR). Copiar mais xlWsDest. 
. Escala (“ae1: AE” & LastR). Copiar mais xlWsDest. 
. Escala (“af1: af” & LastR). Copiar mais xlWsDest. 
. Escala (“ag1: AG” & LastR). Copiar mais xlWsDest. 
. Escala (“ah1: ah” & LastR). Copiar mais xlWsDest. 
. Escala (“ay1: ay” & LastR). Copiar mais xlWsDest. 
. Escala (“az1: az” & LastR). Copiar mais xlWsDest. 
. Escala (“ba1: vagabundos” & LastR). Copiar mais xlWsDest. 
. Escala (“bb1: bb” & LastR). Copiar mais xlWsDest. 
. Escala (“bc1: bc” & LastR). Copiar mais xlWsDest. 
. Escala (“bf1: FB” & LastR). Copiar mais xlWsDest. 
. Escala (“bg1: BG” & LastR). Copiar mais xlWsDest. 
. Escala (“bh1: BH” & LastR). Copiar mais xlWsDest. 
. Escala (“bi1: bi” & LastR). Copiar mais xlWsDest. 
. Escala (“bj1: BJ” & LastR). Copiar mais xlWsDest. 
. Escala (“ca1: Ca” & LastR). Copiar mais xlWsDest. 
. Escala (“cb1: Cb” & LastR). Copiar mais xlWsDest. 
. Escala (“cc1: centímetro cúbico” & LastR). Copiar mais xlWsDest. 
. Escala (“cd1: Cd” & LastR). Copiar mais xlWsDest. 
. Escala (“ce1: ce” & LastR). Copiar mais xlWsDest. o 
If do 
xlWbSource.Close False
 do 
End With
 xlApp.Version < 12 Then
 xlWbDest.SaveAs WbDestPath
Else
 xlWbDest.SaveAs WbDestPath, xlWsSource do 
Set de 56
End If
xlWbDest.Close False
 = xlWbSource de Nothing
Set = Nothing
Set o mais xlWsDest = Nothing
Set o mais xlWbDest = xlApp de Nothing
xlApp.Quit
Set = 

DoCmd.TransferSpreadsheet de Nothing
 (acImport), acSpreadsheetTypeExcel9, de “importação McLagan”, dados do 
MsgBox “McLagan de WbDestPath
 importou " o strStartDir não ofuscante secundário secundário do 

 do cmdSelect_Click do 
 DoCmd.Quit
End Sub

Private do cmdQuit_Click do 

End Sub

Private () () como o strFilter não ofuscante do 
 de String
 como lngFlags não ofuscantes de String
 como o 
 de Long
    ” Deixa o começo a lima consultar de nosso strStartDir atual do 
 do directory
 = de strStartDir de CurrentDb.Name
 = saiu (strStartDir, Len (strStartDir) - Len (Dir (o strStartDir)))strFilter do 
 do 

 = nome de arquivo do 
 Me.txt do ahtAddFilterItem (o strFilter, _
 “Excel arquiva (*.xls)”, “*.xls”) = ahtCommonFileOpenSave (InitialDir: =strStartDir, filtro do _
 do : =strFilter, FilterIndex: =3, bandeiras: =lngFlags, _
 DialogTitle: = " erro secundário seleto Err_Command1_Click


 DoCmd.Close

Exit_Command1_Click do 


On do 

End Sub

Private Command1_Click do 
 da lima”) (): Saída Sub

Err_Command1_Click do 
: Resumo Exit_Command1_Click

End Sub


 do 
 MsgBox Err.Description


class= do 

Resposta : Como adicionar uma barra de carregamento

Este tipo do defeito é existente em SharePoint. Olhar a sincronização do ANÚNCIO de SharePoint, que resolve esta como SUNILREPALE sugerido acima.