Вопрос : Как добавить адвокатское сословие нагрузки

Hi,

I имеет внизу Кодего которое импортирует электронная таблица в таблицу доступа. Прежде чем оно делает, оно делает некоторые изменения и уничтожает некоторые рядки. Это может принять 30 сверхсчетных секунд. Пока оно случается потребитель незнающ будет happening.

Is там кодирует меня может объединенн в мое внизу Кодего показать адвокатское сословие laoding/прогресса?

Thanks, class= " lineNumbers " >

1 >
Seamus





If IsNull (Me.txtFileName) или Len >
Private Sub Command0_Click class= 
 MsgBox «пожалуйста выбирает архив " выход Sub
End первенствовать 
 Me.cm dSelect.SetFocus
 если 'место конец, то если xlApp here


Dim как предмет, xlWbSource как предмет, xlWsSource как Object
Dim xlWbDest как предмет, xlWsDest как Object
Dim LastR как длиной, xlFile как 
Dim WbSourcePath String
 как String
Dim WbDestPath как String
xlFile = Me.txt FileName
WbSourcePath = xlFile
WbDestPath = вышло, то (xlFile, InStr (xlFile,» .xls ") - 1) & «_Updated.xls "

Const WsSourceName как шнур = «BatchOutput» 'как шнур = «ключевые поля» «xlUp update
Const как длиной = xlApp 
Set -4162
 = 
Set CreateObject update
Const WsDestName («Excel.Application») xlWbSource = xlWsSource 
Set xlApp.Workbooks.Open (WbSourcePath) = 
Set xlWbSource.Worksheets (WsSourceName) xlWbDest = xlApp.Workbooks.Add
Set xlWsDest = xlWbDest.Worksheets (1)
xlWsDest.Name = 
With WsDestName
 xlWsSource
 LastR =. Клетки (. Rows.Count, «a»). Конец (xlUp). Row
. Ряд («c1: c» & LastR). Скопируйте xlWsDest. 
. Ряд («g1: g» & LastR). Скопируйте xlWsDest. 
. Ряд («j1: j» & LastR). Скопируйте xlWsDest. 
. Ряд («k1: k» & LastR). Скопируйте xlWsDest. 
. Ряд («l1: l» & LastR). Скопируйте xlWsDest. 
. Ряд («m1: m» & LastR). Скопируйте xlWsDest. 
. Ряд («n1: n» & LastR). Скопируйте xlWsDest. 
. Ряд («o1: o» & LastR). Скопируйте xlWsDest. 
. Ряд («ad1: объявление» & LastR). Скопируйте xlWsDest. 
. Ряд («ae1: ae» & LastR). Скопируйте xlWsDest. 
. Ряд («af1: af» & LastR). Скопируйте xlWsDest. 
. Ряд («ag1: ag» & LastR). Скопируйте xlWsDest. 
. Ряд («ah1: ah» & LastR). Скопируйте xlWsDest. 
. Ряд («ay1: ay» & LastR). Скопируйте xlWsDest. 
. Ряд («az1: az» & LastR). Скопируйте xlWsDest. 
. Ряд («ba1: ba» & LastR). Скопируйте xlWsDest. 
. Ряд («bb1: bb» & LastR). Скопируйте xlWsDest. 
. Ряд («bc1: bc» & LastR). Скопируйте xlWsDest. 
. Ряд («bf1: bf» & LastR). Скопируйте xlWsDest. 
. Ряд («bg1: bg» & LastR). Скопируйте xlWsDest. 
. Ряд («bh1: bh» & LastR). Скопируйте xlWsDest. 
. Ряд («bi1: bi» & LastR). Скопируйте xlWsDest. 
. Ряд («bj1: bj» & LastR). Скопируйте xlWsDest. 
. Ряд («ca1: ca» & LastR). Скопируйте xlWsDest. 
. Ряд («cb1: cb» & LastR). Скопируйте xlWsDest. 
. Ряд («cc1: cc» & LastR). Скопируйте xlWsDest. 
. Ряд («cd1: компактный диск» & LastR). Скопируйте xlWsDest. 
. Ряд («ce1: ce» & LastR). Скопируйте xlWsDest. 
If 
xlWbSource.Close False
 
End With
 xlApp.Version < 12 Then
 xlWbDest.SaveAs WbDestPath
Else
 xlWbDest.SaveAs WbDestPath, xlWsSource 
Set 56
End If
xlWbDest.Close False
 = xlWbSource Nothing
Set = Nothing
Set xlWsDest = Nothing
Set xlWbDest = xlApp Nothing
xlApp.Quit
Set = 

DoCmd.TransferSpreadsheet Nothing
 (acImport), acSpreadsheetTypeExcel9, «ввоз McLagan», данные по 
MsgBox «McLagan WbDestPath
 импортировало " strStartDir 

 cmdSelect_Click 
 DoCmd.Quit
End Sub

Private cmdQuit_Click 

End Sub

Private Sub () Sub () тусклое как strFilter 
 String
 тусклое как lngFlags String
 тусклые как 
 Long
    » Препятствует старту архив просматривать от нашего в настоящее время strStartDir 
 directory
 = strStartDir CurrentDb.Name
 = вышл (strStartDir, Len (strStartDir) - Len (Dir (strStartDir)))strFilter 
 

 = FileName 
 Me.txt ahtAddFilterItem (strFilter, _
 «Эксел хранит (*.xls)», «*.xls») = ahtCommonFileOpenSave (InitialDir: =strStartDir, фильтр _
 : =strFilter, FilterIndex: =3, флаги: =lngFlags, _
 DialogTitle: = " отборная ошибка переход Err_Command1_Click


 DoCmd.Close

Exit_Command1_Click 


On 

End Sub

Private Sub Command1_Click 
 архива») (): Выход Sub

Err_Command1_Click 
: Резюме Exit_Command1_Click

End Sub


 
 MsgBox Err.Description


class= 

Ответ : Как добавить адвокатское сословие нагрузки

Этот вид недостатка existent в SharePoint. Взгляните на Sync ОБЪЯВЛЕНИЯ SharePoint, который разрешает это как SUNILREPALE предложенное выше.