vb 操作EXCE第一次运行可以,第二次运行出错

2012-08-12 03:07:06 211 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

利用WPS JS宏打造高效Excel表格数据合并神器本文详细介绍了如何利用WPS JS宏打造一个高效的Excel数据合并工具。通过编写简洁的JavaScript代码，实现一键批量合并多个Excel表格数据，自动对齐表头并生成新文件，极大提升数据处理效率，尤其适合处理多部门、多来源的报表汇总工作。阅读详情

Private Sub Command1_Click()
Dim ex As excel.Application
Dim wb As excel.Workbook
Dim sh As Object

CommonDialog1.ShowOpen
Set ex = CreateObject("Excel.Application")
Set wb = ex.Workbooks.Open(CommonDialog1.FileName)
Dim a As Integer
Dim k As Integer
a = 1
For k = 1 To 3
a = a + 1
wb.Sheets(1).Select
wb.Sheets(1).Copy Before:=Sheets(a) Next k '这行出错

Set sh = Nothing
wb.Close savechanges:=True
ex.Quit
Set wb = Nothing
Set ex = Nothing

MsgBox "ok"

End Sub

有办法解结吗?

...全文