乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 在<em>VB</em>操作<em>Excel</em>时,怎么遍历工作

在<em>VB</em>操作<em>Excel</em>时,怎么遍历工作

作者:乔山办公网日期:

返回目录:excel表格制作


Sub Traversal()
Dim rg As Range
For Each rg In Range("A1:Q10") '遍历A1:Q10
rg.Value = 100 '将值设为100
Next
End Sub
祝你成功!

不好意思只看标题了
Sub Traversal()
For Each c In ActiveSheet.Comments '遍历批注
c.Parent.Interior.ColorIndex = 3 '设为红色
Next
End Sub


Private Sub Command1_Click()
Dim XlApp As New Excel.Application
Dim XLWorkBook As New Excel.Workbook
Set XLWorkBook = XlApp.Workbooks.Open(App.Path & "\1.xls")
For i = 1 To XLWorkBook.Worksheets.Count
List1.AddItem XLWorkBook.Sheets(i).Name
Next i
XlApp.Quit
End Sub

1、用VB 打开EXCEL 文件 
2、遍sheets和cells

Dim xlApp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Private Sub Command1_Click()
Set xlApp = New Excel.Application
xlApp.Visible = True
Set xlbook = xlApp.Workbooks.Open("d:\hao\1.xls")

For i = 1 To xlbook.Worksheets.Count
Set xlsheet = xlbook.Worksheets(i)
aa=xlsheet.Cells(1, 1)

Next

End Sub

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网