第一遍打印无错误,第二遍则出错,发生在:sheet1.Range("A1:K29").Select,代码如下。
Dim xlapp As Excel.Application
Dim sheet1 As Worksheet
Dim xlbook As Workbook
Set xlapp = New Excel.Application
Set xlapp = CreateObject("excel.application")
xlapp.Visible = False
Set xlbook = xlapp.Workbooks.Open(App.Path & "\ddgl.xls")
Set sheet1 = xlbook.Worksheets(1)
sheet1.Range("A1:K29").Select
Selection.ClearContents
这里填加信息
ActiveCell.Replace What:="TRUE", Replacement:="¡Å", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="TRUE", Replacement:="¡Å", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="FALSE", Replacement:="¡Á", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("E23").Select
xlbook.Save
sheet1.PrintOut
xlapp.Quit