Question : Access Error Code 2302

Error

Microsoft Access Cant save the output data file you've selected

Code

"DoCmd.OutputTo acOutputTable, "Missing Data Plug", acFormatXLS, strFile, False"

This was working perfectly this morning and now its giving the above error.

Can anyone offer any assistance?

Thanks, Seamus

The full code is:

Private Sub Command5_Click()
Dim strFile As String
strFile = "F:\MissingDataOutput.xls"
'DoCmd.OutputTo acOutputForm, Me.Variance, acFormatXLS, strFile, False
DoCmd.OutputTo acOutputTable, "Missing Data Plug", acFormatXLS, strFile, False

Dim oXL As Object
Dim oWB As Object
Dim oWS As Object
Dim FormulaRow As Long
 
Set oXL = CreateObject("Excel.Application")
Set oWB = oXL.Workbooks.Open(strFile)
Set oWS = oWB.Sheets(1)
With oWS
    FormulaRow = .Cells(.Rows.Count, "b").End(-4162).Row + 2 'xlUp
    .Cells.Font.Size = 10
    .Rows(1).Font.Bold = True
    .UsedRange.EntireColumn.AutoFit
    .range("b:h").NumberFormat = "0.00%;[Red]0.00%"
    .range("b:h").NumberFormat = "#,##0.00;[Red]#,##0.00"
    .range("c:e").Style = "Percent"
    End With
oXL.Visible = True

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

Answer : Access Error Code 2302

Check excel in the Task manager.
Random Solutions  
 
programming4us programming4us