想实现这样的效果，不知用VB怎么控制EXCEL

想实现这样的效果，不知用VB如何控制EXCEL?
想实现这样的效果，不知用VB如何控制EXCEL: 
VB控制仪器以便采集数据
同时用VB打开一个新建EXCEL文件 
通过面板上的一个测试按键，点击一次采集一次数据，并写到指定列 如A列 
然后再点击测试按键，再采集数据，然后写入挨着的B列 
如此反复多次

在逻辑控制应该如何去写呢？
还没有头绪


因为我还希望使用VB控制其他的仪器，直接用VBA感觉不好，excel只作为数据采集收集的文件
VB编辑一个控制界面

Dim objExl As Excel.Application

Private Sub Command1_Click()
test1
End Sub

Public Sub test1()
'Dim objExl As Excel.Application
Dim i As Integer
Dim m As Integer
Me.MousePointer = 1 '改变鼠标样式
  Set objExl = New Excel.Application '初始化对象变量
  objExl.SheetsInNewWorkbook = 1 '将新建的工作薄数量设为1
  objExl.Workbooks.Add '增加一个工作薄
  objExl.Sheets(objExl.Sheets.count).Name = "sheet1" '修改工作薄名称
  objExl.Visible = True '使EXCEL可见
  objExl.Application.WindowState = xlMaximized 'EXCEL的显示方式为最大化
  objExl.ActiveWindow.WindowState = xlMaximized '工作薄显示方式为最大化
  objExl.Cells.EntireColumn.AutoFit
  objExl.ActiveWorkbook.SaveAs filename:=App.Path & "\" & "VB测试数据记录" & ".xls"
  'objExl.Quit
   
   
  Set objExl = Nothing '清除对象
  Me.MousePointer = 0 '修改鼠标
Exit Sub
End Sub

Private Sub Command3_Click()
'Dim objExl As Excel.Application
'Me.MousePointer = 1 '改变鼠标样式
  Set objExl = New Excel.Application '初始化对象变量
  objExl.SheetsInNewWorkbook = 1
  
  objExl.Workbooks.Open filename:=App.Path & "\" & "VB测试数据记录.xls"
  
  
objExl.Application.WindowState = xlMaximized 'EXCEL的显示方式为最大化
  
objExl.Visible = True
Dim i, j As Integer
objExl.Sheets("sheet1").Select '选中工作薄<book1>
  For i = 1 To 50 '循环写入数据
  For j = 1 To 5
  If i = 1 Then
  objExl.Selection.NumberFormatLocal = "@" '设置格式为文本
  objExl.Cells(i, j) = " E " & i & j
  Else
  objExl.Cells(i, j) = i & j
  End If
  Next
  Next
End Sub

上面的代码还不完善，在语法上如何表示：
在新建一个excel工作薄后
后面的点击操作都在本工作薄里面进行呢？

看了一些VB控制excel的语法 但没看出用哪个指令实现这样的效果？

目前的情况是，我点击Command1_Click在指定文件夹路径下新建了一个excel文件
关闭这个excel文件
然后点击Command3_Click，可以打开此路径下的新建文件，并把循环数据写入（这个循环只是为了测试代码用），模拟数据写入过程
但是想连线点就不行，不知道在语法上应该如何表述这样的过程？

[解决办法]
http://download.csdn.net/detail/veron_04/2341786