vbExcel
Dim vbExcel As Excel.Application
Dim wsheet As Worksheet
Dim i As Long
Set vbExcel = CreateObject("Excel.Application")
strPath = "C:/Documents and Settings/Administrator.ICBCOA-F9B65DD3/桌面/所有用户.xls"
vbExcel.Workbooks.Open (strPath)
Set wsheet = vbExcel.Worksheets(1)
While wsheet.Cells(i + 2, 1).Value <> ""
strS1 = wsheet.Cells(i + 2, 1).Value
strS2 = wsheet.Cells(i + 2, 3).Value
i = i + 1
Wend
Set wsheet = Nothing
vbExcel.Workbooks.Close
Set vbExcel = Nothing本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！