Cuestión : Cómo agregar una barra de cargamento

Hola, el

I tiene el código below que importa una hoja de balance en una tabla del acceso. Antes de que lo haga, realiza algunos cambios y suprime algunas filas. Esto puede tardar 30 segundos impares. ¿Mientras que está sucediendo el usuario es inconsciente de cuál es happening.

Is allí me cifra puede incorporado en mi código below exhibir una barra el laoding/del progreso?

Thanks, class= " lineNumbers " >

1 del >
Seamus


el 


If IsNull (Me.txtFileName) o Len " de >
Private Command0_Click del class= " de 
 MsgBox “selecciona por favor el archivo " salida Sub
End del sobresalir del 
 Me.cm dSelect.SetFocus
 si 'lugar el extremo si el xlApp del here


Dim como objeto, xlWbSource como objeto, xlWsSource como Object
Dim más xlWbDest como objeto, más xlWsDest como Object
Dim LastR tan de largo, xlFile como el 
Dim WbSourcePath de String
 como String
Dim WbDestPath como String
xlFile = Me.txt FileName
WbSourcePath = xlFile
WbDestPath = se fue (xlFile, InStr (xlFile,” .xls ") - 1) y “_Updated.xls "

Const WsSourceName como secuencia = WsDestName de “BatchOutput” 'como secuencia = “campos dominantes” “xlUp del update
Const como de largo = xlApp del 
Set de -4162
 = xlWbSource del 
Set de CreateObject update
Const (“Excel.Application”) = xlWsSource del 
Set de xlApp.Workbooks.Open (WbSourcePath) = 
Set de xlWbSource.Worksheets (WsSourceName) más xlWbDest = xlApp.Workbooks.Add
Set más xlWsDest = xlWbDest.Worksheets (1)
xlWsDest.Name = xlWsSource
 LastR del 
With de WsDestName
 =. Células (. Rows.Count, “a”). Extremo (xlUp). Row
. Gama (“c1: c” y LastR). Copiar la más xlWsDest. 
. Gama (“g1: g” y LastR). Copiar la más xlWsDest. 
. Gama (“j1: j” y LastR). Copiar la más xlWsDest. 
. Gama (“k1: k” y LastR). Copiar la más xlWsDest. 
. Gama (“l1: l” y LastR). Copiar la más xlWsDest. 
. Gama (“m1: m” y LastR). Copiar la más xlWsDest. 
. Gama (“n1: n” y LastR). Copiar la más xlWsDest. 
. Gama (“o1: o” y LastR). Copiar la más xlWsDest. 
. Gama (“ad1: anuncio” y LastR). Copiar la más xlWsDest. 
. Gama (“ae1: AE” y LastR). Copiar la más xlWsDest. 
. Gama (“af1: af” y LastR). Copiar la más xlWsDest. 
. Gama (“ag1: AG” y LastR). Copiar la más xlWsDest. 
. Gama (“ah1: ah” y LastR). Copiar la más xlWsDest. 
. Gama (“ay1: ay” y LastR). Copiar la más xlWsDest. 
. Gama (“az1: az” y LastR). Copiar la más xlWsDest. 
. Gama (“ba1: vagos” y LastR). Copiar la más xlWsDest. 
. Gama (“bb1: bb” y LastR). Copiar la más xlWsDest. 
. Gama (“bc1: a.C.” y LastR). Copiar la más xlWsDest. 
. Gama (“bf1: FB” y LastR). Copiar la más xlWsDest. 
. Gama (“bg1: BG” y LastR). Copiar la más xlWsDest. 
. Gama (“bh1: BH” y LastR). Copiar la más xlWsDest. 
. Gama (“bi1: BI” y LastR). Copiar la más xlWsDest. 
. Gama (“bj1: BJ” y LastR). Copiar la más xlWsDest. 
. Gama (“ca1: Ca” y LastR). Copiar la más xlWsDest. 
. Gama (“cb1: Cb” y LastR). Copiar la más xlWsDest. 
. Gama (“cc1: cc” y LastR). Copiar la más xlWsDest. 
. Gama (“cd1: Cd” y LastR). Copiar la más xlWsDest. 
. Gama (“ce1: ce” y LastR). Copiar la más xlWsDest. el 
If del 
xlWbSource.Close False
 del 
End With
 xlApp.Version < 12 Then
 xlWbDest.SaveAs WbDestPath
Else
 xlWbDest.SaveAs WbDestPath, xlWsSource del 
Set de 56
End If
xlWbDest.Close False
 = xlWbSource de Nothing
Set = Nothing
Set más xlWsDest = Nothing
Set más xlWbDest = xlApp de Nothing
xlApp.Quit
Set = el 

DoCmd.TransferSpreadsheet (acImport), acSpreadsheetTypeExcel9 de Nothing
, “importación de McLagan”, los datos del 
MsgBox “McLagan de WbDestPath
 importó " el strStartDir dévil secundario secundario del 

 del cmdSelect_Click del 
 DoCmd.Quit
End Sub

Private del cmdQuit_Click del 

End Sub

Private () () como strFilter dévil del 
 de String
 como lngFlags déviles de String
 como 
 de Long
    ” Deja comienzo el archivo hojear de nuestro strStartDir actual del 
 del directory
 = del strStartDir de CurrentDb.Name
 = se fue (strStartDir, Len (strStartDir) - Len (Dir (el strStartDir)))strFilter del 
 del 

 = nombre de fichero del 
 Me.txt del ahtAddFilterItem (el strFilter, _
 “Excel archiva (*.xls)”, “*.xls”) = ahtCommonFileOpenSave (InitialDir: =strStartDir, filtro del _
 del : =strFilter, FilterIndex: =3, banderas: =lngFlags, _
 DialogTitle: = del " error secundario selecto Err_Command1_Click


 DoCmd.Close

Exit_Command1_Click del 


On del 

End Sub

Private Command1_Click del 
 archivo”) (): Salida Sub

Err_Command1_Click del 
: Curriculum vitae Exit_Command1_Click

End Sub


 del 
 MsgBox Err.Description


class= del 

Respuesta : Cómo agregar una barra de cargamento

Esta clase de defecto es existente en SharePoint. Hechar una ojeada la sinc. del ANUNCIO de SharePoint, que soluciona esto como SUNILREPALE sugerido arriba.