求大佬们帮忙

joaohalder · 发表于 2021-3-8 11:09

怎么用vba从一个excel表中读取同一列的日期和时间到另一个excel表中的两个字段
3IVMJ24%DI@TDGM0U(MUURS.png

$QY]OM{]BW$CQ%($$H_F}_4X.png$

A1233515 · 发表于 2021-3-8 11:12

上传压缩后的Excel文件，说明需求，模拟结果

joaohalder · 发表于 2021-3-8 12:47

110.7z (48.9 KB, 下载次数: 3)

joaohalder · 发表于 2021-3-8 12:47

A1233515 发表于 2021-3-8 11:12
上传压缩后的Excel文件，说明需求，模拟结果

附件已上传

liulang0808 · 发表于 2021-3-8 13:00

x = CDate(Left([k2], 10))
y = CDate(Mid([k2], 11))
对K2单元格提取日期跟时间，具体增加for循环就可以全表提取了，至于往其他列怎么对应，楼主按照逻辑来吧

joaohalder · 发表于 2021-3-8 13:32

liulang0808 发表于 2021-3-8 13:00
x = CDate(Left([k2], 10))
y = CDate(Mid([k2], 11))
对K2单元格提取日期跟时间，具体增加for循 ...

程序里直接用k2不会报错吗？

liulang0808 · 发表于 2021-3-8 13:38

joaohalder 发表于 2021-3-8 13:32
程序里直接用k2不会报错吗？

具体看怎么去用了

joaohalder · 发表于 2021-3-8 13:46

liulang0808 发表于 2021-3-8 13:38
具体看怎么去用了

Sheets("考勤汇总表").Cells(k, 22).Value = CDate(Left([rst2("打卡日期")], 10))
我这样写报错说类型不匹配，value不能直接=函数吗

liulang0808 · 发表于 2021-3-8 19:59

joaohalder 发表于 2021-3-8 13:46
Sheets("考勤汇总表").Cells(k, 22).Value = CDate(Left([rst2("打卡日期")], 10))
我这样写报错说类型 ...

[rst2("打卡日期")] 这个地方没有看懂的

		自动登录	找回密码
密码			免费注册

[求助] 求大佬们帮忙