打开workbook和Sheet
Set wbSource = Workbooks.Open(ThisWorkbook.Path & "/study_vba1.xlsx")
Set sheet1Source = wbSource.Sheets(1)
Set sheet2Source = wbSource.Sheets(2)
为单元格赋值
sheet1Source.Range("D1").Value = "123"
关闭workbook
wbSource.Close
循环
Dim dayOfMonth As Integer
dayOfMonth = 31
For dayNo = 1 To dayOfMonth Step 1
' do sth
Next dayNo
网友评论