Dim xlApp As New excelApplication '定义并创建EXCEL对象
Dim xlBook As New excelWorkbook '创建工作簿
xlAppDisplayAlerts = False
xlAppVisible = True '让Excel可见
Set xlBook = xlAppWorkbooksOpen(AppPath & "/doxls") '打开Excel模板
With xlBookActiveSheet
Range("b4") = Text1Text '填充第一行第一列的值
Range("i4") = Text2Text ' 填充其他行列的值,具体的填充位置得根据模板来做
Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=1234
End With
xlBookSaveAs FileName:="D:\评定表牧牛科技\" & Text1Text & Text2Text & "xlsx", FileFormat:= xlOpenXMLWorkbook, CreateBackup:=False
xlBookClose
Set xlBook = Nothing
xlAppQuit
Set xlApp = Nothing
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)