|   | 
Xinet provides Web Access logs so that you can monitor how Xinet is being used over the Internet. The Logging, Web Access page presents an easy way to look at what’s happening. You can also parse the accesslog file on the server with other programs or scripts, for example, if you charge on a per-usage basis, to automatically generate invoices. Xinet TechNote 102 available at www.northplains.com/xinet provides more information about this.
myfile = Application.GetOpenFilename("TEXT")
Workbooks.OpenText _
FileName:=myfile, _
Origin:=xlMacintosh, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:= _
xlDoubleQuote, _
Tab:=True, _
FieldInfo:=Array(1, 1)
' Insert a new column for the new dates
Columns("C:C").Insert Shift:=xlToRight
' Find the last cell in use
Selection.SpecialCells(xlCellTypeLastCell).Select
' Range is set to first through last cells to use in the new column
Range("C1", ActiveCell.Offset(0, -6)).Select
' Set the formula. This value is for the 1904 date system. If the 1900
' date system is in use, change 24107 to 25569.
Selection.Formula = "=PRODUCT(RC[-1],1/86400) + 24107"
' Convert formula to values so the original values can be deleted
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
' Delete the original date column
Columns("B:B").Delete Shift:=xlToLeft
' Set the format for the new date column
Columns("B:B").NumberFormat = "m/d/yy h:mm"
End Sub