kdsea123的个人资料 - RAT

kdsea123 kdsea123

关注数: 59 粉丝数: 6 发帖数: 89 关注贴吧数: 23

VBA 查找日期字段下 ”合计“行对应”备注“字段下的值错误如图：查找日期字段下 ”合计“行对应”备注“字段下的值输出到E2单元格。字段下如果填入：YYYY-MM-D 的日期，则无法查出。代码如下： Sub OutputValueAAAA() [e2] = "" Dim ws As Worksheet Dim conn As Object Dim rs As Object Dim strSql As String '设置要操作的工作表 Set ws = ThisWorkbook.ActiveSheet '创建连接对象 Set conn = CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES;""" '创建记录集对象 Set rs = CreateObject("ADODB.Recordset") '设置SQL语句 strSql = "SELECT * FROM [源$] WHERE [日期] = '合计' OR (NOT ([日期] Like '####-##-##' OR [日期] Like '####-##-#')) OR IsNull([日期]) ORDER BY [日期] DESC" '执行查询物品名称 in('车衣','扶手箱')" rs.Open strSql, conn '将查询结果输出到E2单元格 If Not rs.EOF Then ws.Range("E2").Value = rs.Fields("备注").Value End If '关闭记录集和连接 rs.Close conn.Close '释放对象变量 Set rs = Nothing Set conn = Nothing End Sub 代码中的 strSql = "SELECT * FROM [源$] WHERE [日期] = 无法排除”yyyy-mm-d“ 求正解

汇总工作薄出错请老师指点下，谢谢

汇总工作薄报错

EXCEL 求公式不用数据透视表，求一个公式。注意二边日期不同。多谢了！

取得subName 如题，请教老师如何取得subName？做判断用。

如何提取以下消费记录中的数字 a1单元格的字符是：7-16 烟15元，67.6吃饭，礼品300元，超市46元。以上消费记录有的带元，有为不带,并且带小数 7-16是日期不能提取。代码应依次提取到b1,c1,d1..... 请教老师指导，谢谢！

请教正则字符转换为日期请教老师如何通过正则把3.7（3.12 11.25等格式）转换为3月7日 3.7字符串在前10个字符里边，前10个字符无其他数字。但3.7不能确定在所说的前10个字符的首位。多谢了。

Vba 正则请教老师如何通过正则把3.7 转换为3月7日 3.7字符串在前10个字符里边，前10个字符无其他数字。但3.7不能确定在所说的前10个字符的首位。多谢了。

Excel vba 语句求助 Cells(k, je) = Application.RoundDown(Sum(Range(Cells(4, je), Cells(k - 1, je))), -2) 请教老师，这个句子为什么报错啊？去掉RounDowun,可以执行。

vba 复制文件 Sub 复制文件() copyFromFile = "\\LKJ\Users\Public\SQL\购销合同.xlsx" copyToFile = "E:\合同" End Sub 为什么没有效果？

招聘会计人员因工作需要招聘会计2-3人，工资待遇面议。工作内容：磅单，发票、合同整理，货款结算，运费结算，往来账等。要求：高中以上文化，工作细心，工作主动积极，年龄40岁以下。工作地点：郓城郭屯矿附近（下半年后转城区办公）联系电话：155 5405 1666 郭经理

昆山事件的感动几天来我一直在关注昆山反杀事件，一直关注事态的变化，对于最终结果深感欣慰。在这里我要说的是，通过这次事件，我深切地感受到，整个社会对正气的向往，对黑恶势力的痛恶，对英雄人物的赞赏。说键盘侠也好，说我们对法律的一知半解也好，但90%以上的网民，在讨伐黑恶势力上口径非常一致，这就是社会良知，我们国家，我们整个社会需要这种精神！我们需要更多的不畏强暴的英雄人物。我们的法律不断进步。文明是彬彬有礼，但不是懦弱和退让。愿我们的社会不断进步，出门映入我们眼帘的是灿烂的阳光、优美的风景，不会碰到带刀的凶徒！

1 下一页