作者:乔山办公网日期:
返回目录: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