VBA操作工作薄.docVIP

excel VBA 工作薄 示例03-01：创建工作簿(Add方法)[示例03-01-01]Sub CreateNewWorkbook1()MsgBox 将创建一个新工作簿.Workbooks.AddEnd Sub[示例03-01-02]Sub CreateNewWorkbook2()Dim wb As WorkbookDim ws As WorksheetDim i As LongMsgBox 将创建一个新工作簿,并预设工作表格式.Set wb = Workbooks.AddSet ws = wb.Sheets(1)ws.Name = 产品汇总表ws.Cells(1, 1) = 序号ws.Cells(1, 2) = 产品名称ws.Cells(1, 3) = 产品数量For i = 2 To 10??? ws.Cells(i, 1) = i - 1Next iEnd Sub --------------------------------------------------------------------------------示例03-02：添加并保存新工作簿Sub AddSaveAsNewWorkbook()Dim Wk As WorkbookSet Wk = Workbooks.AddApplication.Displ