Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
strDestination = App.Path & "\temp.xls"
Set xlbook = xlApp.Workbooks.Open(strDestination)
Set xlsheet = xlbook.Worksheets(1)
for x=1 to 65535
for y=1 to 255
if xlsheet.cells(x,y)="定值" then
msgbox x
msgbox y
xlbook.Close
xlApp.Quit '退出EXCEL
exit sub
end if
next y
next x
arrow
arrow
    全站熱搜

    fuzzy2007 發表在 痞客邦 留言(0) 人氣()