Вопрос : Достигните Кодего ошибки 2302

Cant доступа Error

Microsoft за исключением архива данных об объеме продукции вы имеете selected

Code

" DoCmd.OutputTo acOutputTable, «пропуская штепсельная вилка данных», acFormatXLS, strFile, ложное "

This работало совершенно это утро и теперь свой давать вышеуказанному error.

Can любому предложение любая помощь?

Thanks, Кодий Seamus

The полное является следующим:
Dim

Private Sub Command5_Click () strFile как String
strFile = acOutputTable, «пропуская штепсельная вилка данных», acFormatXLS, strFile, oXL False

Dim как oWB Object
Dim как oWS Object
Dim как Object
Dim FormulaRow как oWB oXL
Set Long
=
Set CreateObject acOutputForm
'DoCmd.OutputTo «F:\MissingDataOutput.xls ", Me.Variance, acFormatXLS, strFile, False
DoCmd.OutputTo («Excel.Application») = oWS
Set oXL.Workbooks.Open (strFile) = oWB.Sheets (oWS
FormulaRow 1)
With =. Клетки (. Rows.Count, «b»). Конец (- 4162). Рядок + 2 'xlUp
. Cells.Font.Size = 10
. Рядки (1).Font.Bold = True
.UsedRange.EntireColumn.AutoFit
.range («b: h») .NumberFormat = «0.00%; [Красный цвет] 0.00% "
.range («b: h») .NumberFormat = «#, ##0.00; [Красный цвет] #, ##0.00 "
.range («c: e»). Тип = конец With
«процентов "/>oXL.Visible = oWS True

Set = oWB Nothing
Set = oXL Nothing
Set = Nothing
End Sub
class=

Ответ : Достигните Кодего ошибки 2302

Проверите первенствуйте в менеджере задачи.