下拉框是指cell吗
Dim xlapp As Excel.Application
Dim wkBook As Excel.Workbook
Dim wkSheet As Excel.Worksheet
Set xlapp = CreateObject("excel.application")
Set wkBook = xlapp.Workbooks.Open("c:\book1.xls")
Set wkSheet = wkBook.Worksheets("Sheet2")
MsgBox wkSheet.Cells(1, 1)
xlapp.Quit
Dim xlapp As Excel.Application
Dim wkBook As Excel.Workbook
Dim wkSheet As Excel.Worksheet
Set xlapp = CreateObject("excel.application")
Set wkBook = xlapp.Workbooks.Open("c:\book1.xls")
Set wkSheet = wkBook.Worksheets("Sheet2")
MsgBox wkSheet.Cells(1, 1)
xlapp.Quit
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货