vb操作excel处理数据

建一个command1,
Private Sub Command1_Click()
Dim VBExcel As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
dim i as integer
Set VBExcel = New Excel.Application
Set xlBook = VBExcel.Workbooks.Open("此处写你的EXL文件名的绝对地址")
Set xlSheet = xlBook.Worksheets("sheet1")
xlSheet.Activate
for i=1 to 100
xlSheet.cells(i,2)=xlSheet.cells(i,1)*5 +1.3
next i
xlBook.save
xlBook.close

end sub

建一个按钮CommandButton1。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 100
Cells(i, 2).Value = Cells(i, 1).Value * 5 + 1.3
Next
End Sub

Sub Macro1()
Application.Goto Reference:="R1C2:R100C2"
Selection.FormulaR1C1 = "=RC[-1]*5+1.3"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _