小弟只會讀寫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