主题：关于PDF 格式文件

此主题相关图片如下：截图29.jpg



此主题相关图片如下：截图30.jpg

  Dim App1 As New MSExcel.Application

    Book1.Build() '生成细节区

    Book1.Save(fl1) '保存工作簿

    Dim Wb1 As MSExcel.WorkBook = App1.WorkBooks.Open(fl1)

    Dim Ws1 As MSExcel.WorkSheet = Wb1.WorkSheets(1)

    Dim Rg1 As MSExcel.Range = Ws1.Cells

    Rg1.EntireRow.AutoFit  '自动调整行高

    App1.Visible = True