vbs怎么给excel写入数据，并显示数据。

Set oexcel=CreateObject("excel.application")

Set obook=oexcel.Workbooks.Open("c:\test\excel.xls")

Set osheet=obook.Sheets("sheet1")

'显示第一个工作表A1单元格数据

msgbox osheet.cells(1,1)

Set obook=Nothing

Set osheet=Nothing

oexcel.Quit

你可以使用VBA宏来添加和删除Excel工作簿中的工作表（Sheet）。

以下是添加工作表的示例VBA代码：

vbnetCopy code

Sub AddSheet()

Dim NewSheet As Worksheet

Set NewSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))

NewSheet.Name = "New Sheet"

End Sub

这将在当前工作簿中添加一个名为“New Sheet”的新工作表。

以下是删除工作表的示例VBA代码：

vbnetCopy code

Sub DeleteSheet()

Dim SheetToDelete As Worksheet

Set SheetToDelete = ThisWorkbook.Sheets("Sheet2")

Application.DisplayAlerts = False '禁用删除工作表的警告

SheetToDelete.Delete

Application.DisplayAlerts = True '启用删除工作表的警告

End Sub

这将删除名为“Sheet2”的工作表。在删除工作表时，要记得在执行删除 *** 作前禁用删除工作表的警告，并在删除 *** 作完成后启用删除工作表的警告。这是为了防止意外删除工作表时出现的警告d窗。

---