Pytanie : Dojazdowy Błąd Kod 2302

Error

Microsoft Dostęp Cant oprócz the wydajność dane kartoteka ty mieć selected

Code

" DoCmd.OutputTo acOutputTable, "Dane Prymka", acFormatXLS, strFile, Fałszywy "

This pracować doskonale rano i teraz swój the swój error.

Can i oferta jakaś pomoc?

Thanks, Seamus

The folować kod być:

Private Okręt podwodny Command5_Click ()
Dim strFile Jako String
strFile = "F:\MissingDataOutput.xls "
'DoCmd.OutputTo acOutputForm, Me.Variance, acFormatXLS, strFile, False
DoCmd.OutputTo acOutputTable, "Dane Prymka", acFormatXLS, strFile, False

Dim oXL Jako Object
Dim oWB Jako Object
Dim oWS Jako Object
Dim FormulaRow Jako Long

Set oXL = CreateObject ("Excel.Application")
Set oWB = oXL.Workbooks.Open (strFile)
Set oWS = oWB.Sheets (1)
With oWS
FormulaRow =. Komórka (. Rows.Count, "B"). Końcówka (- 4162). Rząd + 2 'xlUp
. Cells.Font.Size = 10
. Rząd (1).Font.Bold = True
.UsedRange.EntireColumn.AutoFit
.range ("B: h") .NumberFormat = "0.00%; [Rewolucjonistka] 0.00% "
.range ("B: h") .NumberFormat = "#, ##0.00; [Rewolucjonistka] #, ##0.00 "
.range ("c: e"). Styl = "Procent "
Końcówka With
oXL.Visible = True

Set oWS = Nothing
Set oWB = Nothing
Set oXL = Nothing
End Sub

Odpowiedź : Dojazdowy Błąd Kod 2302

Sprawdzać przodować w the Zadanie kierownik.