Office2010是不自带日历控件的，如何执行通过Office2003或Office2007编写的VB日历控件？

1、下载附件，解压后按说明执行相关操作；

2、进行VBA编辑器，附加日历控件；

3、关闭Excel文件后重新打开即可。

晚天扯破了云裳，
美丽的姑娘，你告诉我，
织女将织些锦霞来补去。
夜半天星崩颓了一角，
美丽的姑娘，你告诉我，
那地上阴森的丛林下，
鬼火将飞蓬蓬的升上来补去。
假使我扯破我的网呢，
那网内是放着我一切美丽的梦，
日的梦，夜的梦，
太阳正当午时的梦；
美丽的姑娘，你告诉我，
我将采撷些什么来补呢?

我常抱怨日子过得不称心。我知道这么想没有什么可指责之处，人朝高处走，水往低处流嘛。但是怎么算过得好？应该和谁比？我不能说不模糊。前些日子我出了一趟远门，对这个问题好像有了一点感悟。
我从北京出发到云南元谋县，进入川滇边界，车窗外目之所及，都是荒山野岭。火车在沙窝站只停两分钟，窗外一群约十二三岁破衣烂衫的男孩和女孩，都背着背篓拚命朝车上挤，身上那巨大的背篓妨碍着他们。
我所在的车厢里挤上来一个女孩，很瘦，背篓里是满满一篓核桃。她好不容易地把背篓放下来，然后满巴掌擦着脸上的汗水，把散乱的头发抹到后面，露出俊俏的脸蛋儿，却带着菜色。半袖的土布小褂前后都是补丁，破裤子裤脚一长一短， 也满是补丁，显然是山里的一个穷苦女娃。

在ACCESS中用VBA更改EXCEL单格元格的格式可用以下代码：
Private Sub test5()                                                        'EXCEL单元格格式设置
Dim excelapplication As Object
Dim str As String
str = Application.CurrentProject.Path & "\book1.xls"
Set excelapplication = GetObject(str)                                      '获取指定的EXCEL文件
With excelapplication.sheets(1)
    .Range(.Cells(1, 1), .Cells(3, 4)).Borders.LineStyle = xlContinuous    '设置单元格的边框
    .Range(.Cells(1, 1), .Cells(3, 4)).Borders.ColorIndex = xlAutomatic    '设置单元格边框的颜色，可用1~56间的数字设置不同的颜色
    .Range(.Cells(1, 1), .Cells(3, 4)).NumberFormat = "0.00%"              '设置单元格的值以百分比的形式显示
    .Range(.Cells(1, 1), .Cells(3, 4)).interior.ColorIndex = 24            '设置单元格的颜色
    .Range(.Cells(1, 1), .Cells(3, 4)).Font.Bold = True                    '字体加粗
End With
End Sub