Frage : Wie man einen Ladenstab addiert

Hallo, haben

I den below Code, der einen Verteilungsbogen in eine Zugangstabelle importiert. Bevor es tut, vornimmt es etwas Änderungen as und löscht einige Reihen. Dieses kann 30 ungerade Sekunden nehmen. Während es geschieht, ist der Benutzer ahnungslos von, was happening.

Is dort kodieren mich kann incorporate in meinen below Code ist, einen Laoding/Fortschrittsstab anzeigen?

Thanks,
Seamus

1:

Private VorCommand0_Click ()


If IsNull (Me.txtFileName) oder Len (Me.txtFileName u. "") = 0 Then
MsgBox „vorwählen bitte die übertreffenakte "
Me.cm dSelect.SetFocus
Ausgang Sub
End br, wenn 'Platz das Ende, wenn here


Dim xlApp als Gegenstand, xlWbSource als Gegenstand, xlWsSource als Object
Dim, das als Gegenstand, xlWsDest ist als Object
Dim LastR so lang, xlFile wie String

Dim WbSourcePath als String
Dim WbDestPath als String
xlFile = Me.txt FileName
WbSourcePath = xlFile
WbDestPath = xlWbDest ist, verließ (xlFile, InStr (xlFile,“ .xls ") - 1) u. „_Updated.xls "

Const WsSourceName als Schnur = „BatchOutput“ 'als Schnur = „Tastenfeldas“ „update
Const xlUp als lang = -4162

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

With xlWsSource
LastR =. Zellen (. Rows.Count, „a“). Ende (xlUp). Row
. Strecke („c1: c“ u. LastR). xlWsDest kopieren.
. Strecke („g1: g“ u. LastR). xlWsDest kopieren.
. Strecke („j1: J“ u. LastR). xlWsDest kopieren.
. Strecke („k1: k“ u. LastR). xlWsDest kopieren.
. Strecke („l1: L“ u. LastR). xlWsDest kopieren.
. Strecke („m1: m“ u. LastR). xlWsDest kopieren.
. Strecke („n1: n“ u. LastR). xlWsDest kopieren.
. Strecke („o1: O“ u. LastR). xlWsDest kopieren.
. Strecke („ad1: Anzeige“ u. LastR). xlWsDest kopieren.
. Strecke („ae1: AE“ u. LastR). xlWsDest kopieren.
. Strecke („af1: af“ u. LastR). xlWsDest kopieren.
. Strecke („ag1: AG“ u. LastR). xlWsDest kopieren.
. Strecke („ah1: ah“ u. LastR). xlWsDest kopieren.
. Strecke („ay1: ay“ u. LastR). xlWsDest kopieren.
. Strecke („az1: az“ u. LastR). xlWsDest kopieren.
. Strecke („ba1: Ba“ u. LastR). xlWsDest kopieren.
. Strecke („bb1: Bb“ u. LastR). xlWsDest kopieren.
. Strecke („bc1: bc“ u. LastR). xlWsDest kopieren.
. Strecke („bf1: BF“ u. LastR). xlWsDest kopieren.
. Strecke („bg1: BG“ u. LastR). xlWsDest kopieren.
. Strecke („bh1: BH“ u. LastR). xlWsDest kopieren.
. Strecke („bi1: Bi“ u. LastR). xlWsDest kopieren.
. Strecke („bj1: BJ“ u. LastR). xlWsDest kopieren.
. Strecke („ca1: Ca“ u. LastR). xlWsDest kopieren.
. Strecke („cb1: Columbium“ u. LastR). xlWsDest kopieren.
. Strecke („cc1: cm“ u. LastR). xlWsDest kopieren.
. Strecke („cd1: Cd“ u. LastR). xlWsDest kopieren.
. Strecke („ce1: Cer“ u. LastR). xlWsDest kopieren.
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 = Nothing
Set, das = xlWbDest Nothing
Set = Nothing
xlApp.Quit
Set xlApp = Nothing


DoCmd.TransferSpreadsheet (acImport) xlWsDest ist, acSpreadsheetTypeExcel9, „McLagan Import“, WbDestPath

MsgBox „McLagan Daten importierte "

End Sub

Private VorcmdQuit_Click ()
DoCmd.Quit
End Sub

Private VorcmdSelect_Click ()

schwaches strStartDir als String

schwaches strFilter als String
schwache lngFlags als Long

    “ Lässt Anfang die Akte von unserem gegenwärtigen directory

strStartDir = CurrentDb.Name
vom strStartDir grasen = verließ (strStartDir, Len (strStartDir) - Len (Dir (strStartDir)))


strFilter = ahtAddFilterItem (strFilter, _
„Excel archiviert (*.xls)“, „*.xls“),
Me.txt Dateiname = ahtCommonFileOpenSave (InitialDir: =strStartDir, _
Filter: =strFilter, FilterIndex: =3, Markierungsfahnen: =lngFlags, _
DialogTitle: = " auserwählte Akte“)


End Sub

Private VorCommand1_Click ()


On Störung Goto- Err_Command1_Click


DoCmd.Close

Exit_Command1_Click:
Ausgang Sub

Err_Command1_Click:
MsgBox Err.Description
Zusammenfassung Exit_Command1_Click

End Sub

Antwort : Wie man einen Ladenstab addiert

Diese Art des Schwachpunkts ist in SharePoint existent. Einen Blick an SharePoint ANZEIGE Synchronisierung nehmen, die dieses als SUNILREPALE löst, das oben vorgeschlagen.