小弟只会读写ACCESS
不知道如何用VB读写EXCEL
并建立PAGE ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容

引用项目 Microsoft Excel .... object Library

Dim MyXL   As Object '用于存放Microsoft Excel 引用的变数。
Dim Ap     As Excel.Application
Dim Sheet   As Excel.Sheets

'不带第一个引数来呼叫 Getobject 函数将
'传回对该应用程式的执行个体的引用。
'如果该应用程式并未执行，则会产生错误。
  Set MyXL = GetObject(, "Excel.Application")

  Set MyXL = GetObject(flstExcel.Path & "\" & flstExcel.FileName)
  Set Ap = MyXL.Application
  Set Sheet = MyXL.Sheets
  MyXL.Application.Visible = True
  MyXL.Parent.Windows(1).Visible = True