vb 多按钮 读写excel

还是有问题请教大家
下面是我已经写的程序，可以选择任意硬盘中excel文件然后显示其中的数据。

我现在的问题是怎么再添加一个按钮，点击了该按钮后就能删除那个excel文件中第6行第3列的数据



Private Sub Command1_Click()
Dim sFile As String
With CommonDialog1
.DialogTitle = "open"
.CancelError = False
.Filter = "EXCEL文件(*.xls)|*.xls|所有文件 (*.*)|*.*"
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName
End With

Dim mx As Integer

Dim yx

Dim excelApp As Excel.Application
Set excelApp = New Excel.Application
excelApp.Workbooks.Open FileName:=sFile
'xlApp.Visible = True
excelApp.Worksheets(2).Activate
mx = excelApp.Cells(9, 5)
Text1.Text = mx
excelApp.Workbooks.Close
excelApp.Quit
Set excelApp = Nothing

End Sub

---

可以将第一个按钮里的代码写成自定义函数.
清数据:
excelApp.sheets(2).cells(6,3).clearcontents

---

excelApp.Worksheets(2).Range("C6").Delete

---

谢谢ls的
那如果要删除该行第六列之后的所有内容该怎么写循环呢？

---

引用

VB code
Dim xlRange As Excel.Range
Set xlRange = excelApp.sheets(2).Cells(3, 6)
excelApp.sheets(2).Range(xlRange, xlRange.End(xlToRight)).ClearContents
Set xlRange = Nothing '一定要在 excelApp 之前显式释放，否则……

我试了