 加好友  发短信
等级：超级版主
帖子：112351
积分：572011
威望：0
精华：9
注册：2015/6/24 9:21:00
|
 Post By：2025/2/19 13:47:00 [显示全部帖子]
比如文本框valuechanged事件
If FileSys.FileExists("c:\某文件夹\" & e.sender.text) Then http://www.foxtable.com/webhelp/topics/0337.htm
Dim mg As New Merger
mg.SourcePath = "c:\某文件夹\" & e.sender.text
mg.Format = "excel" '指定格式
mg.SourceTableName = "订单" '指定要合并的表
mg.DataTableName = "订单" '指定接收数据的表
mg.Merge() '开始合并
Else
Messagebox.Show("文件不存在或已经被删除！","提示")
End If
|
|
