Sub Test()Dim wb As Workbook, mPath As String, f As StringApplication.DisplayAlerts = FalseApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManualIf Workbooks.Count > 1 Then MsgBox "关闭其他工作簿后再试!": Exit SubMsgBox "选…
把当前文件夹的xlsx或xls文件合并到一个excel文件中的不同sheet中步骤如下: 把需要合并的文件放到同一个文件夹 在该文件夹中新建一个excel文件 打开新建的excel问价,把鼠标放到sheet那,右键鼠标,选择"查看代码" 在代码框输入下面的代码 Private Sub copy_csvfile_to_excel() Dim mPath$, mFile$, AK As Workbook Application.ScreenUpdating = False mPath =…
using Microsoft.Office.Interop.Excel;//转换为excel时,需要引用此命名空间 using ET;//转换为wps时,需要引用此命名空间using KSO;//转换为wps时,需要引用此命名空间当转换为excel时,需要引入Microsoft.Office.Interop.Excel.dll;当转换为wps时,需要引入Interop.ET.dll,Interop.KSO.dll; #region 查询注册表,判断本机是否安装office2003,2007和w…