Article ID: 172356
Article Last Modified on 11/23/2006
-or-
AMORDEGRC FACTDOUBLE NETWORKDAYS
AMORLINC FVSCHEDULE NOMINAL
BESSELI GCD OCT2BIN
BESSELJ GESTEP OCT2DEC
BESSELK HEX2BIN OCT2HEX
BESSELY HEX2DEC ODDFPRICE
BIN2DEC HEX2OCT ODDFYIELD
BIN2HEX IMABS ODDLPRICE
BIN2OCT IMAGINARY ODDLYIELD
COMPLEX IMARGUMENT PRICE
CONVERT IMCONJUGATE PRICEDISC
COUPDAYS IMCOS PRICEMAT
COUPDAYBS IMDIV QUOTIENT
COUPDAYSNC IMEXP RANDBETWEEN
COUPNCD IMLN RECEIVED
COUPNUM IMLOG10 SERIESSUM
COUPPCD IMLOG2 SQRTPI
CUMIPMT IMPOWER TBILLEQ
CUMPRINC IMPRODUCT TBILLPRICE
DEC2BIN IMREAL TBILLYIELD
DEC2HEX IMSIN WEEKNUM
DEC2OCT IMSQRT WORKDAY
DELTA IMSUB XIRR
DISC IMSUM XNPV
DOLLARDE INTRATE YEARFRAC
DOLLARFR ISEVEN YIELD
DURATION ISODD YIELDDISC
EDATE ISSHARED YIELDMAT
EFFECT LCM
EOMONTH MDURATION
142117 Excel: Summary of Methods to Recover Data from Corrupted Files
147216 XL: Linking to Data in a Damaged File (5.0 and Later)
Sub AddRecordToTest()
' IMPORTANT: Create a reference to "Microsoft DAO 3.5 Object
' Library" before you attempt to run this macro. To reference the
' library, click References on the Tools menu, click the check box
' for the library and click OK.
' Dimension variables for use by DAO.
Dim Db As Database
Dim Rs As Recordset
' Open the database in Test.xls.
Set Db = OpenDatabase("C:\My Documents\Test.xls", _
False, False, "Excel 8.0;")
' Open the list in Sheet1 of Test.xls. The list starts in cell A1.
' These commands select the last record in the list, add a new
' record, set the value in the first column of the list, and update
' the list.
Rs.MoveLast
Rs.AddNew
Rs.Fields(0).Value = 1
Rs.Update
' Close the list and database.
Rs.Close
Db.Close
End Sub
If you run this macro, a new record containing the value 1 is added to the
list in Sheet1 of Test.xls. However, if Test.xls contains a formula that
refers to a function included in the Analysis ToolPak, you cannot open
Test.xls after running this macro.
Additional query words: XL97 ipf atp
Keywords: kbbug kbcode kberrmsg kbprogramming KB172356