Dim xlApp As Excel.Application, xlBook As Workbook, xlSheet As WorksheetSet xlApp = New Excel.ApplicationSet xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open("文件名称包括路径")
Set xlSheet = xlBook.Worksheets(1)'修改表内容代码xlBook.Save
xlSheet.PrintOut
xlApp.Quit
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open("文件名称包括路径")
Set xlSheet = xlBook.Worksheets(1)'修改表内容代码xlBook.Save
xlSheet.PrintOut
xlApp.Quit
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货