从数据库读取数据生成EXCEL文件方法比较.docVIP

全部显示 1,Application.CommandBars(Worksheet Menu Bar).Enabled = false 2,cells(activecell.row,b).value 活动单元格所在行B列单元格中的值 3,Sub CheckSheet() 如果当前工作薄中没有名为kk的工作表的话,就增加一张名为kk的工作表,并将其排在工作表从左至右顺序排列的最左边的位置,即排在第一的位置 Dim shtSheet As Worksheet For Each shtSheet In Sheets If shtSheet.Name = KK Then Exit Sub Next shtSheet Set shtSheet = Sheets.Add(Before:=Sheets(1)) shtSheet.Name = KK End Sub 4,Sheet1.ListBox1.List = Array(一月, 二月, 三月, 四月) 一次性增加项目 5,Sheet2.Rows(1).Value = Sheet1.Rows(1).Value 将一个表中的一行全部拷贝到另一个表中 6,Sub pro_cell() 将此代码放入sheet1,则me=sheet1,主要是认识me Me.Unprotect Cells.Lock