摘要: 读取MS SQL Server数据表数据,并将它保存到excel工作表中Sub ReturnSQLrecord() 'sht 为excel工作表对象变量,指向某一工作表 Dim i As Integer, sht As Worksheet '定义数据链接对象 ,保存连接数据库信息 '使用ADODB,须在菜单的Tools->References中添加引用“Microsoft ActiveX Data Objects library 2.x” Dim cn As New ADODB.Connection '定义记录集对象,保存数据表 Dim... 阅读全文
posted @ 2012-07-12 23:10 NikeyL 阅读(1536) 评论(0) 推荐(1) 编辑
摘要: 显示工作簿所在目录Sub DisplayPath() Debug.Print ThisWorkbook.PathEnd Sub 阅读全文
posted @ 2012-07-12 23:10 NikeyL 阅读(195) 评论(0) 推荐(0) 编辑
摘要: 获取单元格中的内容Sub GetCellValue() Dim cell_A1 As String, cell_B1 As String cell_A1 = ActiveSheet.Range("A1").Value cell_B1 = ActiveSheet.Range("B1").Value Debug.Print cell_A1 Debug.Print cell_B1End Sub 阅读全文
posted @ 2012-07-12 23:01 NikeyL 阅读(278) 评论(0) 推荐(0) 编辑
摘要: 新增表单Sub AddNewsheet() Sheets.AddEnd SubSub AddNewSheet2() '若有同名的sheet已经存在时,使用该种方法添加表单,会报错 Sheets.Add.Name = "NewSheet2"End Sub修改表单名称Sub RenameSheet() Sheets("Sheet23").Select Sheets("Sheet23").Name = "NewName"End Sub删除表单Sub DeleteSheet() Application.Displa 阅读全文
posted @ 2012-07-12 19:21 NikeyL 阅读(756) 评论(0) 推荐(0) 编辑