05.04.2013

牛逼是少数;
装逼是普遍存在的;
傻逼到处都是。 
 
牛逼的人只有一个女人;
装逼的人女人很多;
傻逼的人的女人的男人很多。 
 
牛逼的人不在乎开车还是走路;
装逼的人出门必开宝马;
傻逼的人开吉利美人豹。 
 
牛逼的人喝的是国宴特供;
装逼的人喝的是芝华士;
傻逼的人喝的是干红兑雪碧。 
 
牛逼的人穿着板鞋去谈生意;
装逼的人穿者西服去音乐厅;
傻逼的人穿着盛装去麦当劳。 
 
牛逼的人点烟别人给点;
装逼的人点烟用火柴;
傻逼的人点烟用zippo。 
 
牛逼的人和国人只说中国白话;
装逼的人爱夹杂着文言文;
傻逼的人说话爱中英文夹杂。Too simple,sometimes naive. 
 
牛逼的人写文章有自己的风格;
装逼的人写文章爱模仿旧式口语;
傻逼的人写文章像CCTV。 
 
牛逼的人有自己的生活方式;
装逼的人模仿别人的生活方式;
傻逼的人模仿不好别人的生活方式。 
 
牛逼的人就是在游泳池里撒尿都不动声色;
装逼的人想学牛逼的人在泳池里撒尿却因为上火尿出黄色液体;
傻逼的人直接在跳台上向泳池里撒尿。 
 
牛逼的人需要相处一段时间才会觉得他牛逼;
装逼的人刚开始相处觉得很牛逼,时间长了才知道是装逼;
傻逼的人一开始就让人觉得很傻逼。 
 
牛逼的人一般都自称傻逼;
装逼的人也自称傻逼,但生怕别人不知道自己牛逼而装作牛逼;
傻逼的人逢人就称自己牛逼。 
 
牛逼的人最怕别人说自己牛逼;
装逼的人最怕别人说自己不牛逼;
傻逼的人最怕别人说自己傻逼。 
 
牛逼的人知道自己牛逼;
装逼的人以为自己牛逼;
傻逼的人不知道自己傻逼。 
 
有实力装逼是牛逼;
没有实力的装逼是傻逼。 在某种情况下:
傻逼可以进化成装逼;
装逼也可以退化成傻逼;
很多时候装逼和傻逼的界限是模糊的;
但牛逼永远是牛逼。 
以下是代码的优化版本,包括添加了判断是否存在同样的数据和导入完成后删除源文本的功能: ``` Dim filePaths(5) As String Dim i As Integer ' 设置文件路径 filePaths(0) = "C:\Users\icd\Desktop\5月场景使用清单(按日)\场景服务方案使用清单05.01.xlsx" filePaths(1) = "C:\Users\icd\Desktop\5月场景使用清单(按日)\场景服务方案使用清单05.02.xlsx" filePaths(2) = "C:\Users\icd\Desktop\5月场景使用清单(按日)\场景服务方案使用清单05.03.xlsx" filePaths(3) = "C:\Users\icd\Desktop\5月场景使用清单(按日)\场景服务方案使用清单05.04.xlsx" filePaths(4) = "C:\Users\icd\Desktop\5月场景使用清单(按日)\场景服务方案使用清单05.05.xlsx" filePaths(5) = "C:\Users\icd\Desktop\5月场景使用清单(按日)\场景服务方案使用清单05.06.xlsx" ' 遍历文件路径数组,逐个导入Excel数据 For i = 0 To UBound(filePaths) ' 判断是否存在同样的数据 Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT COUNT(*) FROM 场景使用清单 WHERE 文件路径 = '" & filePaths(i) & "'") If rs.Fields(0).Value > 0 Then MsgBox "文件 " & filePaths(i) & " 中的数据已经存在于数据库中。" Else ' 导入Excel数据 DoCmd.TransferSpreadsheet acImport, 10, "场景使用清单", filePaths(i), True, "" ' 添加文件路径到新导入的记录 CurrentDb.Execute "UPDATE 场景使用清单 SET 文件路径 = '" & filePaths(i) & "' WHERE 文件路径 IS NULL" ' 删除源文本 Kill filePaths(i) End If Next i ``` 需要注意的是,上述代码中的 `场景使用清单` 表需要自行创建,其中需要包含至少以下字段: - ID:主键,自增长 - 文件路径:文本类型,记录导入的Excel文件路径 - 其他字段:根据具体情况添加 此外,还需要添加对 DAO 库的引用。在 VBA 编辑器中,依次点击“工具”→“引用”,勾选“Microsoft DAO 3.6 Object Library”即可。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值