VFP 愛用者社區

[Terry1211]

小弟利用Automation匯出Excel，發現指定的Sheet常常沒有產生到我指定的數目，
要依Sheet放置不同部門資料時，會因此找不到Sheet（一開始就沒有到指定的數目），
想請問板上前輩，是否有方法可以強制Excel產生指定Sheet的數目，或是有方法判斷Excel內目前有幾個Sheet ~~

[richshih]

x=Oexcel.worksheets.Count
if x>1
For I=1 To x
Dimension sheetname[i]
sheetname[i]=Oexcel.worksheets(I).Name
Endfor
endif

[小賴]

設定新活頁簿有5個Sheet
oExcel = CREATEOBJECT("Excel.Application")
oExcel.Application.SheetsInNewWorkbook = 5
oExcel.Workbooks.Add