Fråga : Hur man tillfogar ladda bomma för

Hi

I har det nedanfört att kodifiera som importer ett räkneark in i en ta fram bordlägger. För den gör, den gör några ändringar och tar bort något ror. Detta kan ta udda 30 understöder. Stunden som det händer användaren, är omedveten av vad är happening.

Is där kodifierar mig kan införlivat in i mitt nedanfört kodifiera för att visa en laoding/framsteg bommar för?

Thanks, för class=" codeSnippet " för
Seamus

1 för >

för <-/pre>

If IsNull (Me.txtFileName) eller Len för >
Private (Me.txtFileName & "") = 0 Then
MsgBox ”behar valt överträffa sparar "
Me.cm dSelect.SetFocus
går ut Sub
End, om 'förlägga avsluta om xlApp för here


Dim som anmärker, xlWbSource som anmärker, xlWsSource som mest xlWbDest Object
Dim som anmärker, mest xlWsDest som Object
Dim LastR så Long, xlFile som String

Dim WbSourcePath som String
Dim WbDestPath som String
xlFile = Me.txt FileName
WbSourcePath = xlFile
WbDestPath = lämnat (xlFile, xlFile InStr (,” .xls ") - 1) & ”_Updated.xls"

Const WsSourceName som stränger = ”BatchOutput” 'som stränger = ”nyckel- sätter in” ”xlUp för update
Const som Long = xlApp för
Set för -4162
= xlWbSource för CreateObject update
Const WsDestName (”Excel.Application”)
Set = xlWsSource för
Set för xlApp.Workbooks.Open (WbSourcePath) = mest xlWbDest
Set för xlWbSource.Worksheets (WsSourceName) = mest xlWsDest xlApp.Workbooks.Add
Set = 1)
xlWsDest.Name = xlWsSource
LastR för WsDestName

With =. Celler (. Rows.Count, ”a”). Avsluta (xlUp). Row
. Spänna (”c1: c” & LastR). Kopiera mest xlWsDest.
. Spänna (”g1: G” & LastR). Kopiera mest xlWsDest.
. Spänna (”j1: j” & LastR). Kopiera mest xlWsDest.
. Spänna (”k1: K” & LastR). Kopiera mest xlWsDest.
. Spänna (”l1: l” & LastR). Kopiera mest xlWsDest.
. Spänna (”m1: M” & LastR). Kopiera mest xlWsDest.
. Spänna (”n1: n” & LastR). Kopiera mest xlWsDest.
. Spänna (”o1: nolla” & LastR). Kopiera mest xlWsDest.
. Spänna (”ad1: annons” & LastR). Kopiera mest xlWsDest.
. Spänna (”ae1: ae” & LastR). Kopiera mest xlWsDest.
. Spänna (”af1: af” & LastR). Kopiera mest xlWsDest.
. Spänna (”ag1: ag” & LastR). Kopiera mest xlWsDest.
. Spänna (”ah1: ah” & LastR). Kopiera mest xlWsDest.
. Spänna (”ay1: ay” & LastR). Kopiera mest xlWsDest.
. Spänna (”az1: az” & LastR). Kopiera mest xlWsDest.
. Spänna (”ba1: ba” & LastR). Kopiera mest xlWsDest.
. Spänna (”bb1: bb” & LastR). Kopiera mest xlWsDest.
. Spänna (”bc1: bc” & LastR). Kopiera mest xlWsDest.
. Spänna (”bf1: bf” & LastR). Kopiera mest xlWsDest.
. Spänna (”bg1: bg” & LastR). Kopiera mest xlWsDest.
. Spänna (”bh1: bh” & LastR). Kopiera mest xlWsDest.
. Spänna (”bi1: bi” & LastR). Kopiera mest xlWsDest.
. Spänna (”bj1: bj” & LastR). Kopiera mest xlWsDest.
. Spänna (”ca1: ca” & LastR). Kopiera mest xlWsDest.
. Spänna (”cb1: cb” & LastR). Kopiera mest xlWsDest.
. Spänna (”cc1: cc” & LastR). Kopiera mest xlWsDest.
. Spänna (”cd1: cd” & LastR). Kopiera mest xlWsDest.
. Spänna (”ce1: ce” & LastR). Kopiera mest xlWsDest.
If för
xlWbSource.Close False
för
End With
xlApp.Version < 12 Then
xlWbDest.SaveAs WbDestPath
Else
xlWbDest.SaveAs WbDestPath, xlWsSource för
Set för 56
End If
xlWbDest.Close False
= Nothing
Set xlWbSource = mest xlWsDest Nothing
Set = mest xlWbDest Nothing
Set = Nothing
xlApp.Quit
Set xlApp = Nothing


DoCmd.TransferSpreadsheet (acImport), acSpreadsheetTypeExcel9, ”den McLagan importen”, data för WbDestPath

MsgBox ”McLagan importerade " strStartDir för

för cmdSelect_Click för
DoCmd.Quit
End Sub

Private för cmdQuit_Click för

End Sub

Private under() under() dunkel som dunkel strFilter för String

som String
dunkla lngFlags som Long

    ” Låter start sparabläddrandet från vår strStartDir för
för strömdirectory
= strStartDir för CurrentDb.Name
= lämnat (strStartDir, Len (strStartDir) - Len (Dir (strStartDir)))strFilter för
för

= FileName för
Me.txt för ahtAddFilterItem (strFilter, _
”Excel sparar (*.xls)”, ”*.xls”), = ahtCommonFileOpenSave (InitialDir: =strStartDir, _
för filtrerar: =strFilter FilterIndex: =3 sjunker: =lngFlags _
DialogTitle: = " valt spara”) felet GoTo Err_Command1_Click


DoCmd.Close

Exit_Command1_Click för


On för

End Sub

Private det underCommand1_Click för
():
går ut Sub

Err_Command1_Click: Meritförteckning Exit_Command1_Click

End Sub


för
MsgBox Err.Description
" klar "

Svar : Hur man tillfogar ladda bomma för

Denna sort av ofullkomligheten är dagens i SharePoint. Ta en look på SharePoint ANNONSsynkronisering, som löser denna som SUNILREPALE möjlig över.