Book As New XLS.Book Dim Sheet As XLS.Sheet = Book.Sheets(0) Sheet.GridColor = Color.Pink '设置网格颜色 Sheet.DefaultColumnWidth = 75 '设置默认列宽 Sheet.Locked = True '禁止编辑 Book.Save("c:\reports\test.xls") '保存工作簿 Dim Proc As New Process '打开工作簿 Proc.File = "c:\reports\test.xls" Proc.Start()