Excel VBA编程
发布网友
发布时间：2022-04-23 05:22
共1个回答
热心网友
时间：2023-11-01 12:40
比如说这一单元格cells(1,2)按一定格式输入时间
假设D盘Excel中一个sheet的第一列为时间列
打开工作表
ActiveWorkbook.Open
Filename:=ThisWorkbook.Path
&
"\"
&strExcelName
With
ActiveWorkbook.Sheets(“sheet”)
L=.Cells(65565,
1).End(xlup).Row
for
i
=1
to
L
cells(1,2)=cells(i,1)
Next
i
贴出记录
end
with
我建议不要这样做应该建Access数据库先导数(D盘的Excel)，
再用SQL语句查找
strsql="select
*
from
ta
where
时间='"
&
cells(1,2)
&
"'"
rs.Open
strsql,
Conn
在贴出记录
.Cells(2,
1).CopyFromRecordset
rs
这才花的查询时间少
