Microsoft
Software
Hardware
Network
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.Applic
ation")
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.Au
toFit
.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
create xml script using coldfusion
publishing websites in TMG 2010
Microsoft access 2010 pegs the CPU
GFI 2010 Limits exchange 2003 incoming email 2 mb! ARGH!
How do I delete some lines in a text file?
ESXi compatible hardware
Provide Current mm as @AsOfMonth and current yyyy as @AsOfYear
HTML - SQL - Carrying Form Variables from Page to Page
Foxpro and using Excel 2010 as an object
Sum if from access data base