绑定 Microsoft Excel 对象

模块 BindExcel 后期绑定 Microsoft Excel 对象,调用方法如下:

Dim sProg As String
sProg = “Excel”
Dim oExcel As Object
Call BindExcel(True)

Public Sub BindExcel(ByVal bVisible As Boolean)
If Not oExcel Is Nothing Then Exit Sub
On Error Resume Next
Set oExcel = GetObject(, sProg & “.Application”)
If Err.Number <> 0 Then ‘没有打开
Err.Clear
Set oExcel = CreateObject(sProg & “.application”)
If Err.Number <> 0 Then ‘没有正确安装
Err.Clear
Exit Sub
End If
oExcel.Visible = bVisible
End If
On Error GoTo 0
End Sub

鲍姑

  罗浮山是蓬莱仙岛中的一个小岛。据说,浮山随着风浪从东海漂浮到南海,最后停在罗山旁,两山合而为一,因此命名为罗浮山。罗浮山素有仙境的美誉,山上有一个冲虚道观,道观中有葛仙祠。与大殿内其他神像龛不同,葛仙祠中还供奉着一位女子的塑像。在中国历史上鲜有女性得到如此受尊重的地位,这个人是谁?她与葛洪有着怎样的关系呢?

  鹣鲽情深

  这位端庄秀美、神态安然的女子,就是东晋名医葛洪的发妻鲍姑。

  鲍姑(约309—363),名潜光,上党(今山西长治)人。她出生于一个官吏及道士之家,其父鲍靓(亦名静),字太玄,曾师从真人阴长生学习炼丹术,道学水平较高,且兼通天文地理、河图洛书。鲍靓曾多次被朝廷征召,官至黄门侍郎,后来出任南海太守。鲍姑从小深受父亲的影响,对道教、炼丹、医学都有着浓厚的兴趣。

  鲍靓在南海期间,结识了同样笃信道教的葛洪。他十分看重葛洪的才识和品性,便将鲍姑许配与他。葛洪是东晋时期著名的道教思想家、医学家、博物学家和炼丹术家。鲍姑与葛洪志同道合,夫唱妇随,这对神仙眷侣在罗浮山隐居清修,过着恬淡悠闲的逍遥日子。他们常常一起在山上辨药、采药,共同研习医术,为百姓治病,在中国古代医学史上留下了一段“医界伉俪,鹣鲽情深”的佳话。

  作为一名封建时代的女性,鲍姑并没有局限于厅室之间,广东南海、番禺、广州、惠阳、博罗等地的崇山峻岭、溪涧湖畔之间都留下了她采药的身影。清代王言在《西华仙箓》中记载:“萍花溪相传洪崖先生炼丹地,尝有老姥采萍其间,莫测所自来,问之曰:吾鲍姑也。忽不见。”其中,“萍”指的是中药浮萍,具有宣散风热、透疹、利尿的功效,临床多用于麻疹不透、风疹瘙痒、水肿尿少之症。通过这段文字的描述,我们仿佛看到了鲍姑头戴斗笠,身背药篓,爬上云雾缭绕的高山,步入人迹罕至的萍花溪畔采药的景象。古代医门大都是男性的世界,鲍姑以自己的实际行动证明了“女性医者”的伟大与神圣。

  鲍仙姑与艾灸

  鲍姑医术精湛,尤擅灸法。所谓灸法是中国古代先民首创的一种物理疗法。鲍姑为了治疗当地患者的赘瘤和赘疣等难治疾病,认真总结了前人的治疗经验,就地取材,以当地盛产的红脚艾作灸材,制成艾绒条,取一点用火点燃,熏于人身,赘疣便全部脱落,这一事迹至今仍可见于地方县志、碑记文献中。如《南海县志》记载,鲍姑用“约冈天产值艾,以灸人身赘瘤,一灼即消除无有。历年久,而所惠多”。

  也许是受到妻子的影响,葛洪对灸法也非常重视。他认为对于百姓而言,艾草易得,灸法易学,这种简单、方便、廉价、有效的治疗方法应该大力推广。葛洪在《肘后备急方》中记载了109个针灸医方,其中有90余条是灸方,尤其对施灸部位、灸用壮数、注意事项等论述十分详细,使针灸医学的内容得到充实和完善。这些很可能得益于鲍姑在灸法上的经验总结。葛洪和鲍姑还改进了传统艾灸的方式,首创隔物灸疗,包括隔盐灸、隔蒜灸、川椒灸等,减少艾灸给患者带来的直接创伤。这些灸法奠定了艾灸学的雏形,一直影响至今。

  医迹颂传

  由于鲍姑的事迹广泛流传,民间更是把她列入神仙行列,称她为“鲍仙姑”“女仙”,她所用之艾也被称为“神艾”。相传鲍姑升仙后,常常化身为凡人到世间游历,行踪不定,如遇有缘之人即施以援手,事了则翩然遁去。

  据野史小说《太平广记》记载,唐德宗贞元年间,有一个叫崔炜的人,早年家境不错,但因他不善于治理家业,又性情豁达,很崇尚豪士侠客,没过几年,他家的财产全都用光,只好经常住在寺庙里。当时正是七月十五日中元节,广东百姓都在庙里陈设珍肴异馔,在开元寺中也有许多人唱戏,崔炜也去看热闹。在熙熙攘攘的人群中,他看到一位要饭的老妇人跌倒后不慎打破了别人的酒瓮,因为无钱赔偿而正遭受着殴打。崔炜看到后,非常同情她,就脱下自己的衣服抵偿酒瓮钱。事毕,老妇人竟没有感谢他便悄然离去。

  几天后,崔炜在路上又遇到老妇人,她说:“谢谢你为我解围,我擅长用灸法治疗赘疣,现在给你一些越岗山产的艾叶。以后如果遇到患有赘疣者,你只需要点燃一根,灸一炷后,不仅赘疣会消失,而且还能美容皮肤。”崔炜高兴地接受了。数日之后,崔炜游玩海光寺,遇到了一个耳部患有赘疣的老和尚。崔炜便用老妇人传授的方法为他治疗,果然效果显著。后来崔炜用艾草先后灸治了富商、神龙,一路上遇仙历险,最终成家立业,衣食无忧。

  他在机缘巧合中得知,那位送艾草的老妇人正是鲍姑,乃东晋鲍靓之女,葛洪之妻,一生在岭南一带行医救人。崔炜闻言,遂生求道之心,于是散尽万贯家财,携妻室至罗浮山寻访鲍仙姑去了。这段奇幻绝伦的传说背后,充分体现了鲍姑灸术的流传广泛及疗效显著,以及后人竞相追求的情景。   鲍姑是我国医学史上第一位女灸学家。她用医术惠泽苍生,行医济世名震岭南,丰富和发展了我国的针灸学体系,值得赞赏传颂。

绑定 AutoCAD 对象

模块 BindAutoCAD 后期绑定 AutoCAD 对象,调用方法如下:

Dim oAutoCAD As Object
Call BindAutoCAD(True)

Public Sub BindAutoCAD(ByVal bVisible As Boolean)
If Not oAutoCAD Is Nothing Then Exit Sub
On Error Resume Next
Set oAutoCAD = GetObject(, “Autocad.Application”)
If Err.Number <> 0 Then ‘没有打开
Err.Clear
Set oAutoCAD = CreateObject(“Autocad.application”)
If Err.Number <> 0 Then ‘没有正确安装
Err.Clear
Exit Sub
End If
oAutoCAD.Visible = bVisible
End If
If Err.Number <> 0 Then Err.Clear
On Error GoTo 0
End Sub

崔杼弑君—— 齐太史秉笔直书

齐太史不畏强权、不怕牺牲,前仆后继,直笔写史的精神,成为后世史官的典范。

中国历史上有籍可考的最早一起屠杀史官的事件,发生在春秋战国鲁襄公二十五年(公元前548年)。齐国重臣崔杼的妻子棠姜,容貌美丽,被国君庄公姜光看上,两人眉来眼去,勾搭成奸。姜光常常趁崔杼外出时跑到他家与棠姜宣淫,并把崔杼的帽子赏给别人。崔杼发现后,愤怒异常,设计捉奸。他谎称有病,不能上朝议政,淫欲如火的姜光觉得这是找棠姜寻欢的好机会,哪知崔杼早有准备,他到了崔杼府上,见棠姜不出来,还以为不知他圣驾光临,便抱着柱子唱歌,企图勾引她前来承欢。不料此时大门忽然关闭,埋伏在暗处的武士一齐冲出,姜光见势不妙,慌忙跳墙逃走,被武士一箭射中屁股,从墙上一头栽了下来,武士们遂上前将这个淫棍乱刀砍死。

庄公姜光虽然因与大臣的妻子通奸而被杀,但他毕竟是一国之君,于是齐国的太史对这一大案做了记录曰:“崔杼弑其君。”崔杼一怒之下,把太史杀了。太史的弟弟接着照写,崔杼照杀不误。但他过于相信刀斧的威力,太史的二弟仍然接着照写。远在外地的南史氏听说崔杼连杀两位史官,也毫不畏惧地拿着简册赶往都城,准备照写。崔杼见如此杀下去,不但不能掩盖自己弑君的事实,反而罪过更大,只好罢休。南史氏听说崔杼不再杀人,才放心地返回住地。

齐太史不畏强权、不怕牺牲,前仆后继,直笔写史的精神,成为后世史官的典范。

文天祥《正气歌》列述正气12例,开篇第一例便是:“在齐太史简,在晋董狐笔。”董狐是晋国太史,也以直笔写史而名传后世。但崔杼为隐恶而乱杀史官,却给后世史家造成精神上的威胁。可以想像,崔杼如果将手中的屠刀一直挥将下去,写史的人再多,终有斩尽杀绝的时候,而历史的真相,也将被彻底掩盖。于是春秋时期的一些史家开始采取口传史事的办法,或是多用“曲笔”以避祸。

司马迁评论《春秋》、《左传》说:“约其辞文,去其烦重,以制义法,王道备,人事浃。七十子之徒口受其传指,为有所刺讥褒讳挹损之文辞不可以书见也。鲁君子左丘明惧弟子人人异端,各安其意,失其真,故因孔子史记具论其语,成《左氏春秋》。”(《史记?十二诸侯年表序》)班固也对当时的史籍做出如下评论:“有所褒讳贬损,不可书见,口授弟子,弟子退而异言。丘明恐弟子各安其意,以失其真,故论本事而作传,明夫子不以空言说经也。《春秋》所贬损大人当世君臣,有威权势力,其事实皆形于传,是以隐其书而不宣,所以免时难也。及末世口说流行,故有《公羊传》、《谷梁》、《邹》、《夹》之传。”(《汉书?艺文志?六艺略论》)

由此可见,即使是头号圣人孔丘先生所作的《春秋》,对于有“威权势力”者的所作所为,只能用口头传授的方式,由师傅传给弟子,再由弟子往下传。靠这种口头传授的方式,势必使史事失实或传出几种说法,结果为后世的史家、学者带来很大的麻烦。

曲沃代翼

  唐叔虞去世后,他的儿子燮(一作燮父)继位,改国号为晋,其后历传武侯宁族(或作曼期、曼旗)、成侯服人、厉侯福、靖侯宜臼、嫠侯司徒、献侯籍。
  公元前812年(晋献侯十二年)晋献侯死,次年,其子费王(又作弗生、沸王)继位,是为穆侯。前805年,晋穆侯与周宣王共伐周边少数民族条戎和奔戎(约在今山西夏县一带),结果打了败仗。晋穆侯不忘此耻,将这一年生下的一个儿子起名为仇,并立为太子。前 802年(晋穆侯十年),晋穆侯在千亩(今山西安泽北90里)之战中获胜,又把这年生的一个儿子起名为成师,取“出师成功”之意。前785年(晋穆侯二十七年),晋穆侯死,其弟殇叔篡位自立,太子仇被迫逃亡在外。过了4年,前781年(殇叔四年),太子仇率领党徒卷土重来,袭杀殇叔,夺回君位,这是晋国历史上见诸记载的第一次君位篡夺事件。前780年(文侯仇元年),太子仇登位,是为晋文侯。
  前771年,周幽王无道,被犬戎杀死在骊山之下,太子宜臼在晋文侯、郑武公、秦襄公的保护下东逃成周洛邑(今河南洛阳市王城区),并定都于此。前770年,宜臼在洛邑即位为王,是为周平王。由于周朝的都城从西面关中的宗周丰镐迁到函谷关以东的成周洛邑,所以历史上就把在西面丰镐的周朝称为西周,把东面洛邑的周朝称为东周。周平王对晋文侯帮他东迁并继位立国一事,非常感激,就特别发了一道文书表彰晋文侯,这篇文书收在《尚书》里,称作《文侯之命》。因此,周王室一直把晋国看作靠山,两者保持着一种特别亲密的关系。
  晋文侯在位35年,于前746年(晋文侯三十五年)去世,太子伯继位,是为晋昭侯。
  前745年(晋昭侯元年),晋昭侯封其叔父成师于曲沃(今山西曲沃县西南5里凤城村),史称曲沃桓叔,由靖侯之庶孙、桓叔的叔祖栾宾辅佐。曲沃的面积比晋国的都城翼 (今山西翼城东南15里南梁乡北故城村)还大,这就犯了一个大忌讳,即周代规定以周王的国都为标准,大诸侯国的都城不能超过周王国都的三分之一,中等诸侯国不超过五分之一,小诸侯国不超过九分之一。对此,晋国大夫师服当时就指出,建立国家应该本大而末小,即君主的力量、地盘应大于臣下,才能够获得巩固的地位。但晋昭侯分封桓叔的都邑比晋都还大,这就破坏了等级制度,肯定会危害其自身的统治地位。事情果如师服所料。
  曲沃桓叔此时已经58岁了,有相当丰富的政治经验,而且“好德”,很得民心,“晋国之众皆附焉”。对此,当时一些有眼光的人物就预料到“晋之乱其在曲沃矣。末大于本而得民心,不乱何待”!果然,曲沃势力不断地向在翼的晋君发动进攻,培植晋国内部反对晋君的势力,企图夺取晋国政权,取而代之。
  前739年(晋昭侯七年),晋国大臣潘父弑昭侯而迎纳曲沃桓叔,桓叔想趁机人翼夺权,但晋国国人起兵抗击桓叔,桓叔失败,只好退回曲沃。晋国人立昭侯之子平为晋君,是为孝侯,并且诛杀了潘父。
  前731年(晋孝侯八年),73岁的曲沃桓叔抱憾死去,其子鲜继立,是为曲沃庄伯。双方斗争还在继续。前724年(孝侯十五年),曲沃庄伯又派人到晋都翼弑了孝侯,晋人进行反击,庄伯只好再退回曲沃。晋人复立孝侯之弟郄(xT希)为君,是为鄂侯。
  前718年(鄂侯六年)春,曲沃庄伯联合郑国、邢国伐翼,周桓王还派周大夫尹氏和剐氏出兵相助,晋鄂侯逃奔随(今山西介休市东南)。但后来曲沃庄伯又背叛了周桓王,于是周桓王反过来支持晋,派虢公带兵讨伐曲沃庄伯,庄伯再次失败,逃回曲沃。桓王立别侯之子光为君,是为晋哀侯。
  前716年(晋哀侯二年),曲沃庄伯死,其子称继立,是为曲沃武公。前710年(哀侯八年),晋哀侯侵其南面的陉廷(今翼城东南75里,旧有荧庭城)之田。前709年,陉廷与刚沃武公联合伐晋,逐晋哀侯于汾隰(今襄汾曲沃之间)。夜间,晋哀侯所乘车的骖马被树木挂住。曲沃武公俘虏晋哀侯。
  曲沃武公杀了晋哀侯,但由于辅佐晋哀侯的栾共叔(名成)是曲沃桓叔的师傅栾宾之子,所以曲沃武公想劝说栾共叔投降,就对栾共叔说,你只要不为晋哀侯去死,我可以带你去见周天子,使你成为上卿,执掌晋国的政权。栾共叔拒绝说:我栾成听说过“民生于三,事之如一”,也就是“父生之,师教之,君食之”。没有父亲不能得生,没有君长的衣食俸禄不能活下去,没有师傅的教导不知道自己的亲属家族,所以对他们应该一样的尊敬忠诚,为了他们,自己甚至可以豁出性命。对待生我者(父母)应以死相报,对待给我恩惠的(君主)应竭尽全力,这是做人的道德。我怎敢为了个人私利(当上卿)丢掉做人的道德,你这样劝我又怎能要求别人做你的忠臣呢?而且你也知道我栾成只服从我的君主,这是做臣之道,难道你不清楚我如果不死而向曲沃投降,是怀有二心的行为吗?对于君主有二心的臣子,你又何必用呢?于是奋力拼杀而死。栾共叔的忠君言辞和行为在晋国是有代表性的,晋国后来之所以成为春秋时期力量最强、称霸时间最久的霸主,与晋国臣子强烈的为国尽忠的精神有极大的关系。
  曲沃武公杀了晋哀侯,但晋国人并不接纳他,而是立了晋哀侯之子小子为君,是为小子侯。前705年曲沃武公诱召晋小子侯并杀之。周桓王使虢仲率兵伐曲沃武公,武公抵挡不住,又退回曲沃。周立晋哀侯弟缗(滑)为晋侯。
  前679年(晋侯缗二十八年),齐桓公开始成为霸主。这一年,曲沃武公又伐晋侯缗,并灭之。为了防止周王室再次出兵干涉,功败垂成,曲沃武公用抢掠来的珍宝器物贿赂周(僖)王,周董王得到了丰厚的贿赂,也就承认既成事实,任命曲沃武公为晋君,列为诸侯,武公尽并晋地,正式成为晋国国君。
  曲沃武公仍以晋国国都翼为都,以晋国国号为国号,只是把曲沃武公改称为晋武公。算下来,从曲沃桓叔初封曲沃,至武公灭晋,并代晋为诸侯,前后经过祖孙三代,长达67年,时间不可谓不长,斗争不可谓不曲折残酷。
  曲沃代翼,是春秋时代绵延时间最长、弑君最多的诸侯国公室家族内部为争夺权位而进行的流血斗争。