' $Id: trip.bas,v 1.3 2001/06/21 17:29:38 mdean Exp $ ' import into Microsoft Excel Attribute VB_Name = "Module1" Public Sub foo() Rem MsgBox ("Hello world!") Range("A1").Value = "A1" Range("A2").Value = "A2" Range("A3").Value = DateTime.Date$ Range("B3").Value = "=a3+1" Range("A4").Value = DateTime.Time$ End Sub Public Sub bar() MsgBox (Range("B3").Formula) End Sub Public Sub PrintFormula(file, cell, what) t = Chr$(9) Print #1, file & t & cell & t & what & t & Range(cell).Formula End Sub Public Sub PrintValue(file, cell, what) t = Chr$(9) Print #1, file & t & cell & t & what & t & Range(cell).Value End Sub Public Sub baz() Dim wb Open "\temp\trip.txt" For Output As 1 ChDir "\bbn\expenses\" ' hotel balance sheets file = Dir("*balance.xls") Do While Len(file) > 0 Set wb = Workbooks.Open(file, 0) Call PrintFormula(file, "C1", "hotel") wb.Close (0) file = Dir() Loop ' trip reports (old and new) file = Dir("* of *.xls") Do While Len(file) > 0 Set wb = Workbooks.Open(file, 0) Call PrintFormula(file, "C4", "start") Call PrintFormula(file, "E4", "end") Call PrintFormula(file, "C14", "parking") Call PrintFormula(file, "D14", "parking") Call PrintFormula(file, "E14", "parking") Call PrintFormula(file, "F14", "parking") Call PrintFormula(file, "G14", "parking") Call PrintFormula(file, "H14", "parking") Call PrintFormula(file, "I14", "parking") Call PrintFormula(file, "J14", "parking") Call PrintFormula(file, "K14", "parking") Call PrintFormula(file, "L14", "parking") Call PrintFormula(file, "M14", "parking") Call PrintFormula(file, "N14", "parking") Call PrintFormula(file, "O14", "parking") Call PrintFormula(file, "P14", "parking") Call PrintFormula(file, "C15", "car") Call PrintFormula(file, "D15", "car") Call PrintFormula(file, "E15", "car") Call PrintFormula(file, "F15", "car") Call PrintFormula(file, "G15", "car") Call PrintFormula(file, "H15", "car") Call PrintFormula(file, "I15", "car") Call PrintFormula(file, "J15", "car") Call PrintFormula(file, "K15", "car") Call PrintFormula(file, "L15", "car") Call PrintFormula(file, "M15", "car") Call PrintFormula(file, "N15", "car") Call PrintFormula(file, "O15", "car") Call PrintFormula(file, "P15", "car") Call PrintFormula(file, "C16", "airfare") Call PrintFormula(file, "D16", "airfare") Call PrintFormula(file, "E16", "airfare") Call PrintFormula(file, "F16", "airfare") Call PrintFormula(file, "G16", "airfare") Call PrintFormula(file, "H16", "airfare") Call PrintFormula(file, "I16", "airfare") Call PrintFormula(file, "J16", "airfare") Call PrintFormula(file, "K16", "airfare") Call PrintFormula(file, "L16", "airfare") Call PrintFormula(file, "M16", "airfare") Call PrintFormula(file, "N16", "airfare") Call PrintFormula(file, "O16", "airfare") Call PrintFormula(file, "P16", "airfare") Call PrintValue(file, "Q27", "total") wb.Close (0) file = Dir() Loop Close 1 End Sub