作者:乔山办公网日期:
返回目录:office365
Set xlApp = CreateObject("Excel.Application") '创建excel应用程序,打开excel2003
Set xlBook = xlApp.Workbooks.Open(App.Path & "\文件名.xls") '打开已经存在的EXCEL工件簿文件
Set xlSheet = xlBook.Worksheets("表名") '设置活动工抄作表
for n=1 to 行数
for m=1 to 例数
msgbox xlSheet.Cells.Item(n, m)
'注意:我只是告诉你一个循环把你要的内容zd都读出来,你要拿我的程序去运行会弹死你的
next
next
你好,这个我能帮到你。怎么找你呢?
Dim SheetID As Integer
Dim XlsRow As Long
Dim TotalBit As Integer
Dim MachineID00_Msg000(i) As String
Dim i As Integer
SheetID = 3 设定表编号,即Sheet的编号。e5a48de588b6e79fa5e98193364
Set ExcelApp = CreateObject("Excel.Application") '
Set ExcelBook = ExcelApp.Workbooks.Open(App.Path + "\Pameter.dat") '路径
Set ExcelSheet = ExcelBook.Worksheets(SheetID) '
XlsRow = 2 '读取起始行
TotalBit = 16 '要读取的行数
For i = 0 To (TotalBit - 1)
MachineID00_Msg000(i) = ExcelSheet.Range("D" & XlsRow).value
XlsRow = XlsRow + 1 '循还
Next i
ExcelApp.quit
Set ExcelSheet = Nothing
Set ExcelBook = Nothing
Set ExcelApp = Nothing
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlbook = xlApp.Workbooks.Open("e:\1.xls") '打开百已经存在的EXCEL工件簿文件 e:\1.xls根据你的情况修改
xlApp.Visible = False '设置度EXCEL对象可见(或不知可见False)
Set xlsheet = xlbook.worksheets("sheet1") '设置活动工作表 sheet1是工作表 你也修改
a=xlsheet.cells(i, j) 'i,j变量读取道专i行j列的数据
'你读取完数据判断条件 要读取sheet2则
set xlsheet=xlbook.worksheets("sheet2") '这样之后再读取数据就行了属