vb读写excel有没有简单一点的方法？

Dim bolPopen As String
bolPopen = funOpenExcelFile(xlsApp, xlsBook, xlsSheet, App.Path & "\餐饮基金.xls", "当前日期", "", True)
Text6.Text = funReadCellText(xlsSheet, 1, 1) '提取当前年月
Dim bolPend As Boolean
bolPend = funCloseExcelFile(xlsApp, xlsBook, xlsSheet, True)

这个其实也是在网上找到的方法，但是觉得运行起来效果不好看，每次都要真正打打开Excel，执行命令，然后关闭。
有没有其他读写excel的方法，可以让他在后台运行，不显示出来？

Dim xlapp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表
Dim xlrange As Excel.Range
Private Sub Command1_Click()
Set xlapp = CreateObject("excel.application") '第一层
Set xlbook = xlapp.Workbooks.Open("d:\123.xlsx")
xlapp.Visible = True
x=workbooks("d:\123.xlsx").sheets(1).range("a1")'这里就把A1的值读取出来了！
End Sub

这个要得不？

代码没有问题，这个地方 m_x = excelapp.cells(5, 9) 这一行改成 m_x = excelapp.cells(2, 6) m_y = excelapp.cells(5, 10) 这一行去掉 上面的dim m_y也可以删了