VB对excel文件的一些基本操作代码

Question

'***************************************创建一个excel文件
Private Sub Command1_Click()
Dim xapp As Excel.Application  '声明一个excel文件对象
Dim xbook As Excel.Workbook    '声明一个excel对象的工作薄
Dim xsheet As Excel.Worksheet  '声明一个excel对象的过做表Set xapp = New Excel.Application  '建立对象xapp.Workbooks.Add            '准备新建一个excel表格xapp.ActiveWorkbook.SaveAs "e:\fdssssss.xls"DoEventsxapp.Workbooks.Close  '关闭文件
Set xapp = Nothing
Set xbook = Nothing
Set xsheet = Nothing 
 MsgBox "完成！"  
End Sub
'********************************************在exel文件中写入数据Private Sub Command1_Click()Dim i, f As IntegerDim xpp As Excel.Application  '声明一个excel对象变量Dim xbook As Excel.Workbook    '声明一个excel工作薄对象变量Dim xsheet As Excel.Worksheet  '声明一个excel工作表对象变量Rem 开始创建excel进程，并打开excel文件If Dir("e:\1.xls") = "" Then
MsgBox "excel文档为空！"
Exit Sub
End IfSet xapp = CreateObject("excel.application") '创建一个excel对象Set xbook = xapp.Workbooks.Open("e:\1.xls") '打开excel文档xapp.Visible = False '将excel窗口隐藏
Set xsheet = xbook.Worksheets("sheet1") '设置活动工作表For i = 1 To 500
For f = 1 To 20xsheet.Cells(i, f) = i     '写入数据Next f
Next ixapp.Quit  '结束excel进程Set xapp = Nothing
Set xbook = Nothing
Set xsheet = Nothing
MsgBox "写入完成！"
End Sub
'***********************************在exce文件中读取数据Private Sub Command1_Click()
Dim xapp As Excel.Application
Dim xbook As Excel.Workbook
Dim xsheet As Excel.WorksheetDim s As StringIf Dir("e:\1.xls") = "" Then
MsgBox "文档不存在！"
Exit Sub
End If
Set xapp = CreateObject("excel.application")Set xbook = xapp.Workbooks.Open("e:\1.xls")xapp.Visible = False '将excel文档进行隐藏Set xsheet = xbook.Worksheets("sheet1")
s = xsheet.Cells(1, 2).ValuePrint sxapp.Quit  '退出excel 进程Set xapp = Nothing
Set xbook = Nothing
Set xsheet = Nothing
MsgBox "工作完成！"End Sub