冒昧的问一个很低级的问题,用VB二次开发EXCEL,哪位高手能告诉我用什么语句调出EXCEL文件?先谢了

Question

冒昧的问一个很低级的问题,用VB二次开发EXCEL,哪位高手能告诉我用什么语句调出EXCEL文件?先谢了

Answer 1

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim PointSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = False '设置EXCEL对象不可见
Set PointSheet = xlBook.Worksheets.Item(1) '设置活动工作表

Answer 2

接着ljyu(高所)的，对Excel操作完后最好加上如下的代码，释放Excel对象，清理内存
 xlApp.Quit
    Set xlApp = Nothing  '"交还控制给Excel
    Set xlBook = Nothing
    Set xlSheet1 = Nothing
    Set xlSheet2 = Nothing
    Set xlSheet3 = Nothing

Answer 3

Dim MyExcel As Excel.Application
  On Error GoTo l
  Set MyExcel = CreateObject("excel.application")
  MyExcel.Workbooks.Open FileName:=File_Name '要打开的EXCEL文件路径
  MyExcel.Visible = False '设置EXCEL对象不可见
  MyExcel.Workbooks.Close
  MyExcel.Quit
  Set MyExcel = Nothing
l:
  MsgBox "加载EXCEL错误", vbOKOnly + vbExclamation, "提示"