主题：[求助]工资表打印

程序：

Dim attafile,datafile As String

attafile = "Attachments\工资表A4横.xls"

datafile = "D:\catch2\工资表.xls"

 

Dim Book As New XLS.Book(attafile)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

 

Dim file1 As String = datafile

Book.Build() '生成细节区

Book.Save(file1) '保存工作簿

 

Dim Proc As New Process

Proc.File = file1

Proc.Start()

模板：工资表A4横.Xls  （附件）