Function IsFileExists(ByVal strFileName As String) As Boolean ) <> Empty Then IsFileExists = True Else IsFileExists = False End If End Function Sub setname() Dim I As Integer Dim J As Integer Dim pspname As String Dim pspnumber As String Dim tstname
调用word的com组件将400条数据导入word表格中耗时10分钟简直不能忍受,使用NPOI组件耗时4秒钟.但是NPOI中替换书签内容的功能不知道是不支持还是没找到. 辅助类 Excel表格数据与DataTable互转: using System; using System.Collections.Generic; using System.Linq; using System.Text; using NPOI.SS.UserModel; using NPOI.XSSF.UserModel;