据日期提月数据

limonet · 发表于 2023-5-29 10:46

xing_chen 发表于 2023-5-29 10:30
谢谢老师！代码中有黄色，未能继续运行，估计是我附件电脑中未引用数据库，但不知道对应哪个！

是不是excel版本是07以下的。

xing_chen · 发表于 2023-5-29 10:55

limonet 发表于 2023-5-29 10:46
是不是excel版本是07以下的。

老师！我是03版的

xing_chen · 发表于 2023-5-29 10:58

ykcbf1100 发表于 2023-5-29 10:36
做了好几次了，你那二个表就是固定的，为啥要选表？二个表一起做了就完了。

老师！你说的对！实际操作中我也发现没有必要，只因发了，就想看代码怎么表示。

limonet · 发表于 2023-5-29 11:02

xing_chen 发表于 2023-5-29 10:55
老师！我是03版的

相同位置替换。
Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=’Excel 8.0;HDR=yes;IMEX=0’;Data Source=

xing_chen · 发表于 2023-5-29 11:04

盼盼198310 发表于 2023-5-29 10:41
没注意是按月查,用这个试试

谢谢老师！运行如愿！

全党 · 发表于 2023-5-29 11:11

shishi..................................

xing_chen · 发表于 2023-5-29 11:11

limonet 发表于 2023-5-29 11:02
相同位置替换。
Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=’Excel 8.0;HDR=yes;IMEX=0’; ...

谢谢老师：替换后的这1句：
Cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=¡ˉExcel 8.0;HDR=yes;IMEX=0¡ˉ;Data Source=" & ThisWorkbook.FullName
但还是不行

xing_chen · 发表于 2023-5-29 11:15

全党发表于 2023-5-29 11:11
shishi..................................

谢谢老师！运行如愿！长见识了，可以将2个条件1并输入

limonet · 发表于 2023-5-29 11:16

Cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=’Excel 8.0;HDR=yes;IMEX=0’;Data Source=" & ThisWorkbook.FullName

xing_chen · 发表于 2023-5-29 11:22

limonet 发表于 2023-5-29 11:16
Cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=’Excel 8.0;HDR=yes;IMEX=0’;Data Sour ...

谢谢老师！还是不行！我收藏了。有空换台电脑试试！

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

[求助] 据日期提月数据