excel
毛旭强 2004-11-20 08:21:54 Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add
Set oSheet = oBook.Worksheets(1)
oSheet.Cells(1, 5) = "fdsfs"
oBook.SaveAs "d:\1.xls", xlWorkbookNormal
oExcel.Quit
Set oSheet = Nothing
Set oBook = Nothing
Set oExcel = Nothing
如果已经存在1.xls了,如何不要提示已存在这个文件了啊