如上
网友回答
Dim xlsName As String = My.Application.Info.DirectoryPath & "\tt.xls"
'用 Add方法 创建新的工作簿和工作表对象。
xlApp = New Microsoft.Office.Interop.Excel.Application
'xlBook = xlApp.Workbooks.Open(xlsName)
xlBook = xlApp.Workbooks.Add
xlSheet = xlBook.Worksheets(1)
xlSheet.Name = "work"
For i = 0 To 5
For j = 0 To 7
xlSheet.Cells._Default(i + 1, j + 1).Value = i & "" & j
Next j
Next i
'xlSheet.Cells(3, 1).Formula = "=R5C5 + R3C3"'RnCk,n为行值 k为列值可直接编辑
'xlSheet.Cells(3, 2).value = "=R5C5 + R3C3"
'xlSheet.Cells._Default(3, 4).Value = "=R5C5 + R3C3"
'保存工作表
'xlSheet.StandardWidth = 2
'xlSheet.SaveAs (App.path & "\" & formatdatetime(DateTimePicker1, "yyyy年mm月值班表") & formatdatetime(Now(), "hhmmss") & ".xls")
xlBook.Saved = True '保存时不提示
xlBook.SaveCopyAs(xlsName) '直接覆盖不提示
'xlBook.SaveAs(xlsName)'覆盖时提示
'MsgBox(xlsName)
xlBook.Close()
'用 Quit 方法关闭 Microsoft Excel
xlApp.Quit()