Questione : Accedere al codice di errore 2302

Cant di accesso di Error

Microsoft salvo lo schedario di dati dell'uscita avete selected

Code

" DoCmd.OutputTo acOutputTable, “la spina di dati di sig.na„, acFormatXLS, strFile, " il

This stava funzionando perfettamente questa mattina ed ora relativo dare al error.

Can chiunque l'offerta dell'assistenza? il

Thanks, codice completo di Seamus

The è:
Dim del

Private Command5_Click () strFile come String
strFile = acOutputTable, “spina di dati di sig.na„, acFormatXLS, strFile, oXL di False

Dim come oWB di Object
Dim come oWS di Object
Dim come Object
Dim FormulaRow come il oWB del oXL del
Set di Long
= del
Set di CreateObject acOutputForm del
'DoCmd.OutputTo “di F:\MissingDataOutput.xls ", Me.Variance, acFormatXLS, strFile, False
DoCmd.OutputTo (“Excel.Application„) = il oWS del
Set di oXL.Workbooks.Open (strFile) = oWB.Sheets (oWS
FormulaRow di 1)
With =. Cellule (. Rows.Count, “b„). Estremità (- 4162). Fila + 2 'xlUp
. Cells.Font.Size = 10
. File (1).Font.Bold = True
.UsedRange.EntireColumn.AutoFit
.range (“b: h„) .NumberFormat = “0.00%; [Colore rosso] 0.00% "
.range (“b: h„) .NumberFormat = “#, ##0.00; [Colore rosso] #, ##0.00 "
.range (“c: e„). Stile = estremità With
“delle percentuali "/>oXL.Visible = oWS di True

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

Risposta : Accedere al codice di errore 2302

Controllare eccellono nel responsabile di operazione.