在EXCEL的VB编辑器中如何编写“刷新数据”脚本

来源：百度知道 编辑：UC知道 时间：2024/06/01 20:08:50
做了一个EXCEL数据表，数据由SQL导入。如果要刷新的话需要点击“刷新数据”，现在想在空白区域做一个按钮，按按钮就可以刷新数据了。（真是觉得老板要求多此一举）。怎么写啊，谢谢
就是添加一个按钮，按这个按钮可以自动刷新就可以了
但是刷新的代码不会写

因为说得不够具体，下面就以一个例子来说明，你可根据实际进行修改：

例子：从"加班工时数据"文件夹下有份<自愿加班工时登记表.XLS>,要求使用SQL技术将表里的数据导入所有数据(不含表头)到<智能工时统计系统.xls>里的"自愿加班"表格里.

Private Sub CommandButton1_Click()
Sheets("自愿加班").Activate
Set xx = CreateObject("adodb.connection")
With xx
.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "/" & "加班工时数据/" & "自愿加班工时登记表.XLS"
Sql = "select * from [sheet1$a3:h65536] "
[A4].CopyFromRecordset .Execute(Sql)
End With
xx.Close
Set xx = Nothing
End Sub

记得把备注栏单元格取消合并

没看懂你到底要说的是个什么儿