Questione : Come aggiungere una barra di caricamento

Ciao, il

I ha il codice sotto che importa un foglio elettronico in una tabella di accesso. Prima che faccia, fa alcuni cambiamenti e cancella alcune file. Ciò può richiedere 30 secondi dispari. Mentre sta accadendo l'utente è ignaro di che cosa è happening.

Is là lo codifica può incorporate nel mio codice sotto visualizzare una barra progresso/laoding?

Thanks, class= " lineNumbers " >

1 del >
Seamus


il 


If IsNull (Me.txtFileName) o Len di >
Private Command0_Click del class= di 
 MsgBox “seleziona prego la lima " l'uscita Sub
End di supremazia del 
 Me.cm dSelect.SetFocus
 se 'posto l'estremità se il xlApp del here


Dim come oggetto, xlWbSource come oggetto, xlWsSource come Object
Dim più xlWbDest come oggetto, più xlWsDest come Object
Dim LastR lungamente, xlFile quanto il 
Dim WbSourcePath di String
 come String
Dim WbDestPath come String
xlFile = Me.txt FileName
WbSourcePath = xlFile
WbDestPath = abbia andato (xlFile, InStr (xlFile,„ .xls ") - 1) & “_Updated.xls "

Const WsSourceName come stringa = “di BatchOutput„ 'come stringa = “campi chiave„ “xlUp del update
Const come lungamente = xlApp del 
Set di -4162
 = xlWbSource del 
Set di CreateObject update
Const WsDestName (“Excel.Application„) = xlWsSource del 
Set di xlApp.Workbooks.Open (WbSourcePath) = 
Set di xlWbSource.Worksheets (WsSourceName) più xlWbDest = xlApp.Workbooks.Add
Set più xlWsDest = xlWbDest.Worksheets (1)
xlWsDest.Name = xlWsSource
 LastR del 
With di WsDestName
 =. Cellule (. Rows.Count, “a„). Estremità (xlUp). Row
. Gamma (“c1: c„ & LastR). Copiare più xlWsDest. 
. Gamma (“g1: g„ & LastR). Copiare più xlWsDest. 
. Gamma (“j1: J„ & LastR). Copiare più xlWsDest. 
. Gamma (“k1: K„ & LastR). Copiare più xlWsDest. 
. Gamma (“l1: l„ & LastR). Copiare più xlWsDest. 
. Gamma (“m1: m.„ & LastR). Copiare più xlWsDest. 
. Gamma (“n1: n„ & LastR). Copiare più xlWsDest. 
. Gamma (“o1: o„ & LastR). Copiare più xlWsDest. 
. Gamma (“ad1: annuncio„ & LastR). Copiare più xlWsDest. 
. Gamma (“ae1: gli EA„ & LastR). Copiare più xlWsDest. 
. Gamma (“af1: af„ & LastR). Copiare più xlWsDest. 
. Gamma (“ag1: AG„ & LastR). Copiare più xlWsDest. 
. Gamma (“ah1: ah„ & LastR). Copiare più xlWsDest. 
. Gamma (“ay1: ay„ & LastR). Copiare più xlWsDest. 
. Gamma (“az1: az„ & LastR). Copiare più xlWsDest. 
. Gamma (“ba1: sedere„ & LastR). Copiare più xlWsDest. 
. Gamma (“bb1: bb„ & LastR). Copiare più xlWsDest. 
. Gamma (“bc1: bc„ & LastR). Copiare più xlWsDest. 
. Gamma (“bf1: BF„ & LastR). Copiare più xlWsDest. 
. Gamma (“bg1: la BG„ & LastR). Copiare più xlWsDest. 
. Gamma (“bh1: il BH„ & LastR). Copiare più xlWsDest. 
. Gamma (“bi1: Bi„ & LastR). Copiare più xlWsDest. 
. Gamma (“bj1: il BJ„ & LastR). Copiare più xlWsDest. 
. Gamma (“ca1: Ca„ & LastR). Copiare più xlWsDest. 
. Gamma (“cb1: Cb„ & LastR). Copiare più xlWsDest. 
. Gamma (“cc1: cc„ & LastR). Copiare più xlWsDest. 
. Gamma (“cd1: Cd„ & LastR). Copiare più xlWsDest. 
. Gamma (“ce1: Ce„ & LastR). Copiare più xlWsDest. il 
If del 
xlWbSource.Close False
 del 
End With
 xlApp.Version < 12 Then
 xlWbDest.SaveAs WbDestPath
Else
 xlWbDest.SaveAs WbDestPath, xlWsSource del 
Set di 56
End If
xlWbDest.Close False
 = xlWbSource di Nothing
Set = Nothing
Set più xlWsDest = Nothing
Set più xlWbDest = xlApp di Nothing
xlApp.Quit
Set = 

DoCmd.TransferSpreadsheet (acImport), acSpreadsheetTypeExcel9 di Nothing
, “importazione di McLagan„, dati del 
MsgBox “McLagan di WbDestPath
 ha importato " lo strStartDir fioco secondario secondario del 

 del cmdSelect_Click del 
 DoCmd.Quit
End Sub

Private del cmdQuit_Click del 

End Sub

Private () () come strFilter fioco del 
 di String
 come lngFlags fiochi di String
 come 
 di Long
    „ Lascia l'inizio la lima passare in rassegna dal nostro strStartDir corrente del 
 del directory
 = dallo strStartDir di CurrentDb.Name
 = ha andato (strStartDir, Len (strStartDir) - Len (Dir (strStartDir)))strFilter del 
 del 

 = nome di schedario del 
 Me.txt del ahtAddFilterItem (strFilter, il _
 “Excel archiva (*.xls)„, “*.xls„) = ahtCommonFileOpenSave (InitialDir: =strStartDir, filtro dal _
 del : =strFilter, FilterIndex: =3, bandierine: =lngFlags, _
 DialogTitle: = " errore secondario prescelto Err_Command1_Click


 DoCmd.Close

Exit_Command1_Click del 


On del 

End Sub

Private Command1_Click del 
 della lima„) (): Uscita Sub

Err_Command1_Click del 
: Riassunto Exit_Command1_Click

End Sub


 del 
 MsgBox Err.Description


class= del 

Risposta : Come aggiungere una barra di caricamento

Questo genere di imperfezione è esistente in SharePoint. Dare un'occhiata alla sincronizzazione dell'ANNUNCIO di SharePoint, che risolve questa come SUNILREPALE suggerito sopra.