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

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

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

例子：从"加班工时数据"文件夹下有份<自愿加班工时登记表.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

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

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