on the problematic computers, go into the vbe and with this workbook as the
active project (highlighted in the project explorer) go to Tools=References
and see if you have any references marked as MISSING. If so, if they are
not being used, you need to remove them. If they are being used, you need
to fix them using the browse button.

--
Regards,
Tom Ogilvy

"jordanctc" wrote in message
...

The following code was working on Friday but today on several computers
the VBA code has a big problem with the format function. I am
getting:

Microsoft Visual Basic

Compile Error

Wrong number of arguements or invalid property assignment.


With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password=" """;User
ID=Admin;Data Source=I:\Accounting\Inventory Files\" & intYear &
"\Inventory " & Format(datDate, "m-dd-yyyy") & " wi" _
, _
"th Discounts.xls;Mode=Share Deny Write;Extended
Properties=""HDR=YES;"";Jet OLEDB:System database="""";Jet
OLEDB:Registry Path="""";Je" _
, _
"t OLEDB:Database Password="""";Jet OLEDB:Engine Type=35;Jet
OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet "
_
, _
"OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database
Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt
Dat" _
, _
"abase=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet
OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False" _
), Destination:=Range("A1"))
CommandType = xlCmdTable
CommandText = Array("'Accounting EOM Inventory Report$'")
Name = "Inventory " & Format(datDate, "m-dd-yyyy") & " with
Discounts"
FieldNames = True
RowNumbers = False
FillAdjacentFormulas = False
PreserveFormatting = True
RefreshOnFileOpen = False
BackgroundQuery = True
RefreshStyle = xlInsertDeleteCells
SavePassword = False
SaveData = True
AdjustColumnWidth = True
RefreshPeriod = 0
PreserveColumnInfo = True
SourceDataFile = _
"I:\Accounting\Inventory Files\" & intYear & "\Inventory " &
Format(datDate, "m-dd-yyyy") & " with Discounts.xls"
Refresh BackgroundQuery:=False
End With


Any help is appreciated,
Jordan


--
jordanctc
------------------------------------------------------------------------
jordanctc's Profile:
http://www.excelforum.com/member.php...fo&userid=6761
View this thread: http://www.excelforum.com/showthread...hreadid=266175