'스프레드에서 엑셀 부르기
'spd :스프레드 id 변수
'excel_path : 파일이름및 경로변수
Sub mnuOpen_Click(spd,excel_path)
  dim listcount,handle
  dim List()
  dim sheet
dim v, x, y, z
spd.ScriptEnhanced=true
v=spd.IsExcelFile(excel_path)

' returns number of sheets as ListCount
w=spd.ScriptGetExcelSheetList(excel_path, Null, listcount, 0, handle, true)
  ReDim List(listcount)
  x=spd.ScriptGetExcelSheetList(excel_path, List, listcount, 0, handle, true)
sheet=List(0)
y=spd.ImportExcelSheet(cint(handle), sheet)
End Sub

+ Recent posts