Vraag : Hoe te om een ladingsbar toe te voegen

Hallo, heeft

I de onderstaande code die een spreadsheet in een lijst van de Toegang invoert. Alvorens het, brengt het sommige veranderingen aan en schrapt sommige rijen. Dit kan 30 oneven seconden vergen. Terwijl het gebeurt onbewust is de gebruiker van wat happening.

Is daar codeert ik kan in mijn onderstaande code opnemen om het laoding te tonen/vordert bar is?

Thanks,
Seamus

1:

Private SubCommand0_Click ()


If IsNull (Me.txtFileName) of Len (Me.txtFileName & "") = 0 Then
MsgBox „te selecteren gelieve uitblinken dossier "
Me.cm dSelect.SetFocus
Uitgang Sub
End als 'plaats het eind als here


Dim xlApp als Voorwerp, xlWbSource als Voorwerp, xlWsSource als Object
Dim het meest xlWbDest als Voorwerp, het meest xlWsDest als Object
Dim LastR zo Lang, xlFile zoals String

Dim WbSourcePath als String
Dim WbDestPath als String
xlFile = Me.txt FileName
WbSourcePath = xlFile
WbDestPath = Weggegaan (xlFile, xlFile InStr (,“ .xls ") - 1) & „_Updated.xls"

Const WsSourceName als Koord = „BatchOutput“ 'update
Const WsDestName als Koord = „Zeer belangrijke Gebieden“ „update
Const xlUp als lang = -4162

Set xlApp = CreateObject („Excel.Application“)
Set xlWbSource = xlApp.Workbooks.Open (WbSourcePath)
Set xlWsSource = het meest xlWbDest xlWbSource.Worksheets (WsSourceName)
Set = het meest xlWsDest xlApp.Workbooks.Add
Set = xlWbDest.Worksheets (1)
xlWsDest.Name = WsDestName

With xlWsSource
LastR =. Cellen (. Rows.Count, „a“). Eind (xlUp). Row
. Waaier („c1: c“ & LastR). Het meest xlWsDest exemplaar. [a1]
. Waaier („g1: g“ & LastR). Het meest xlWsDest exemplaar. [b1]
. Waaier („j1: j“ & LastR). Het meest xlWsDest exemplaar. [c1]
. Waaier („k1: k“ & LastR). Het meest xlWsDest exemplaar. [d1]
. Waaier („l1: l“ & LastR). Het meest xlWsDest exemplaar. [e1]
. Waaier („m1: m“ & LastR). Het meest xlWsDest exemplaar. [f1]
. Waaier („n1: n“ & LastR). Het meest xlWsDest exemplaar. [g1]
. Waaier („o1: o“ & LastR). Het meest xlWsDest exemplaar. [h1]
. Waaier („ad1: advertentie“ & LastR). Het meest xlWsDest exemplaar. [i1]
. Waaier („ae1: VE“ & LastR). Het meest xlWsDest exemplaar. [j1]
. Waaier („af1: af“ & LastR). Het meest xlWsDest exemplaar. [k1]
. Waaier („ag1: ag“ & LastR). Het meest xlWsDest exemplaar. [l1]
. Waaier („ah1: ah“ & LastR). Het meest xlWsDest exemplaar. [m1]
. Waaier („ay1: ay“ & LastR). Het meest xlWsDest exemplaar. [n1]
. Waaier („az1: az“ & LastR). Het meest xlWsDest exemplaar. [o1]
. Waaier („ba1: bedelaars“ & LastR). Het meest xlWsDest exemplaar. [p1]
. Waaier („bb1: BB“ & LastR). Het meest xlWsDest exemplaar. [q1]
. Waaier („bc1: BC“ & LastR). Het meest xlWsDest exemplaar. [r1]
. Waaier („bf1: BF“ & LastR). Het meest xlWsDest exemplaar. [S1]
. Waaier („bg1: BG“ & LastR). Het meest xlWsDest exemplaar. [t1]
. Waaier („bh1: BH“ & LastR). Het meest xlWsDest exemplaar. [u1]
. Waaier („bi1: bi“ & LastR). Het meest xlWsDest exemplaar. [v1]
. Waaier („bj1: BJ“ & LastR). Het meest xlWsDest exemplaar. [w1]
. Waaier („ca1: ca“ & LastR). Het meest xlWsDest exemplaar. [x1]
. Waaier („cb1: cb“ & LastR). Het meest xlWsDest exemplaar. [y1]
. Waaier („cc1: CC“ & LastR). Het meest xlWsDest exemplaar. [z1]
. Waaier („cd1: CD“ & LastR). Het meest xlWsDest exemplaar. [aa1]
. Waaier („ce1: Ce“ & LastR). Het meest xlWsDest exemplaar. [ab1]
End With

xlWbSource.Close False

If xlApp.Version < 12 Then
xlWbDest.SaveAs WbDestPath
Else
xlWbDest.SaveAs WbDestPath, 56
End If
xlWbDest.Close False

Set xlWsSource = Nothing
Set xlWbSource = het meest xlWsDest Nothing
Set = Nothing
Set het meest xlWbDest = Nothing
xlApp.Quit
Set xlApp = Nothing


DoCmd.TransferSpreadsheet (acImport), acSpreadsheetTypeExcel9, „de Invoer McLagan“, van cmdQuit_Click ()
DoCmd.Quit
End Sub

Private van WbDestPath

MsgBox „McLagan Gegevens ingevoerde "

End Sub

Private Sub Schemerige strStartDir

als Schemerige strFilter van String

als/> Schemerige lngFlags String

    “ Laat begin het dossier van onze huidige directory

strStartDir = CurrentDb.Name
strStartDir = links doorbladert (strStartDir, Len (strStartDir) - Len (Dir (strStartDir)))


strFilter = ahtAddFilterItem (strFilter, _
„Excel Dossiers (*.xls)“, „*.xls“)
Me.txt FileName = ahtCommonFileOpenSave (InitialDir: =strStartDir, _
Filter: =strFilter, FilterIndex: =3, Vlaggen: =lngFlags, _
DialogTitle: = De " SubCommand1_Click ()


On Fout Uitgezochte van het Dossier“)


End Sub

Private GoTo Err_Command1_Click


DoCmd.Close

Exit_Command1_Click:
Uitgang Sub

Err_Command1_Click:
MsgBox Err.Description
hervat Exit_Command1_Click

End Sub

Antwoord : Hoe te om een ladingsbar toe te voegen

Dit soort tekortkoming is bestaand in SharePoint. Neem een blik bij SharePoint ADVERTENTIE Sync, die dit als hierboven voorgestelde SUNILREPALE oplost.