共2 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]Excel合并后删除源文件时提示文件正在使用
1楼
洮沙 发表于：2023/9/4 12:12:00老师，用以下代码合并Excel数据后，删除源文件提示正在使用，该如何解决？谢谢！
此主题相关图片如下：微信截图_20230904121018.png
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim ifo As New FileInfo(dlg.FileName)
If ifo.Extension <> ".xls" And ifo.Extension <> ".xlsx" Then
MessageBox.Show("选择的是非Excel格式文件，请重新选择！", "提示")
Return
End If
Dim sheetname As String
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
sheetname = Wb.WorkSheets(1).Name & "$"
App.Quit
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.Format = "excel" '指定格式
mg.SourceTableName = sheetname '指定要合并的表
mg.DataTableName = "员工花名册" '指定接收数据的表
mg.Merge() '开始合并
End If
此主题相关图片如下：微信截图_20230904121018.png2楼
有点蓝 发表于：2023/9/4 13:32:00不要使用vba，使用XLS.Book
……
Dim sheetname As String
Dim Book As New XLS.Book(dlg.FileName)
sheetname = Book.Sheets(0).Name & "$"
Dim mg As New Merger
mg.SourcePath = dlg.FileName
……
共2 条记录, 每页显示 10 条, 页签:
[1]