[VB6]Excel使用

1. 開啟Excel檔案

Dim xlsBook As Excel.Workbook
'開啟Excel檔案
Set xlsBook = Workbooks.Open(".xls檔案位置")

2. 取得Excel第一個Sheet名稱

Dim sheetName As String
sheetName = xlsBook.Sheets(1).Name '取得Excel第一個活頁簿的名稱
Set xlsSheet = xlsBook.Worksheets(sheetName)