Excel开发VBA学习
1.合并字符串
A1&A2
2.拆分字符串
LEFT(A2,SEARCH("-",A2)-1)
3.下拉选项
Data->Data validation->List
1.在工具栏上显示开发选项
2.新建个Module就可以在几个sheet里共享变量
Public cn As New ADODB.Connection
Public strCn As String
Public strCom As String
Public rs As New ADODB.Recordset
Public Sub Init()
Dim rs As New ADODB.Recordset
strCn = "Provider=sqloledb;Database=testdb;Uid=sa;Pwd=password;data source=dbname"
Set cn = Nothing
cn = New ADODB.Connection
cn.Open strCn
End Sub
Private Sub CommandButton1_Click()
'o = MsgBox("B1:" & Range("b1").Text & Range("b1").Value, vbOKOnly, "test")
Init
strCom = "exec testsp 2"
rs.Open strCom, cn, adOpenDynamic, adLockBatchOptimistic
Sheet1.Cells(1, 1).CopyFromRecordset rs
cn.Close
End Sub
3.添加下拉列表选项
ComboBox1.Clear
For Each testList In Sheet2.Rows 'Sheet2.Range("A1", "A6")
With ComboBox1
.AddItem testList.Value
End With
Next testList
4.在另一台电脑上,发现上面的连接数据库会发生错误
在open语句时总是提示说连接已经结束,后来将连接字符串改了下又可以
Public strConn As String, strSQL As String
Public conn As ADODB.Connection
Public Sub Init()
Set conn = New ADODB.Connection
'连接数据库的字符串
strConn = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=pwd;Initial Catalog=DBname;Data Source=DBServer;Connect Timeout=720; "
'打开数据库连接
conn.Open strConn
'该句和数据库连接字符串处的Connect Timeout=720,表示说如果语句运行时间很长,这两句可以延长vba的等待时间,没有这两句,vba往往会报查询超时。
conn.CommandTimeout = 720
End Sub
普通查询语句没问题,可是执行存储过程,稍微复杂一点的就会报错,应用程序定义或对象定义错误,后来才发现是存储过程必须加上这么一句
感谢万能的百度!
SET NOCOUNT ON
[求助] VBA调用存储过程的问题,在线等
http://club.excelhome.net/thread-1179098-1-1.html
执行带参数的存储过程也可以这么写
Dim CN As New ADODB.Connection
Dim iCmd As ADODB.Command
Const conn = "Provider = SQLOLEDB;" & _
"Data Source = DBServer;" & _
"Initial Catalog = DBName;User ID =sa;Password = pwd;"
CN.Open conn
Set iCmd = New ADODB.Command
With iCmd
.ActiveConnection = CN
.CommandTimeout = 120
.CommandType = adCmdStoredProc
.CommandText = "zConvertLunarSolar"
.Parameters.Refresh
.Parameters("@iyear") = 1966
.Parameters("@imon") = 5
.Parameters("@iday") = 3
.Parameters("@ihour") = 1
.Parameters("@imin") = 20
.Parameters("@IsLeapM") = False
.Parameters("@ToLunar") = True End With
Dim rs As New ADODB.Recordset
Set rs = iCmd.Execute
Sheet1.Cells(5, 5).CopyFromRecordset rs
5.含有VBA代码的Excel再次打开,代码居然全都不见了!坑爹啊!原来.xlsx是不支持保存含有这些宏,ActiveX的文件,需要保存为启用宏的工作簿。
另存为后,发现设计模式变为灰色,原来还要在文件里启动宏才可以正常工作!
6.VBA大多数语法跟VB.Net一样,但也有些许不同,真令人防不胜防
Split函数,str.Split(",")是错的,须写成Split(str,",")
Len函数,用法是Len(str),不是str.Length
数组类型Variant可以通过Redim来设置可变下标,获取最大和最小下标是用函数UBound(arr),LBound(arr),不是arr.Count()
Dim pos() As Variant
ReDim pos(colCnt)
另外,二维数组,比如从recordset返回的值,UBound(arr, 1)是数组最大列个数,UBound(arr, 2)才是最大行个数
GetArray = rs.GetRows
Function里面的返回值,不要写成return i , 而要写成functioinName = i
Call Sub,不能有括号,不然会报错
7.得到返回记录集的行数
Fields.Item是返回的列,RecordCount总是返回-1,查了下,说第三个参数是1或者3的时候就可以得到RecordCount
rs.Open strSQL, conn,adOpenStatic, adLockReadOnly
rs.Open strSQL, conn,adOpenKeyset, adLockReadOnly
可是后来改了还是返回-1,原来是需要设置游标参数
rs.CursorLocation = adUseClient
Public Function CopyFromSQL(ByVal strSQL As String, ByVal sheetName As String, ByVal range As String, ByVal hrow As Integer, ByVal hCol As Integer) As Integer
Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strSQL, conn, adOpenKeyset, adLockReadOnly Sheets(sheetName).range(range).ClearContents
Sheets(sheetName).range(range).Borders.LineStyle = xlNone
Sheets(sheetName).range(range).Interior.Pattern = xlNone '行名
Dim rowCnt As Integer, colCnt As Integer, iCol As Integer
rowCnt = rs.RecordCount
colCnt = rs.Fields.Count
iCol = hCol
For Each Item In rs.Fields
Sheets(sheetName).Cells(hrow, iCol) = Item.name
iCol = iCol + 1
Next Item
iCol = iCol - 1
Sheets(sheetName).range(Cells(hrow + 1, hCol), Cells(hrow + 1 + rowCnt, iCol)).CopyFromRecordset rs
Sheets(sheetName).range(Cells(hrow, hCol), Cells(hrow, iCol)).Interior.ColorIndex = 17
Sheets(sheetName).range(Cells(hrow, hCol), Cells(hrow + rowCnt, iCol)).Borders.LineStyle = xlContinuous
rs.Close
conn.Close
CopyFromSQL = rowCnt
End Function
8.如果需要按了一个按钮后,填充另一个sheet的工作表,需要先用Activate语句,不然又报万能的“应用程序定义或者对象定义错误”!
PPSheet.Activate
CopyFromSQL strSQL, PPSheet, PPRange, irow, iCol
9.有一个奇怪的现象是执行过CopyFromRecordset后,填充到excel里面的数组字段显示成了日期格式
这个现象好像是忽然出现的,莫名其妙,数据库里返回的明明是数值字段,只不过前面一个字段是日期,后面的就变成了日期格式
目前还没找到解决办法。
10.数据库的字符串加了回车号,但显示回excel的时候并不会自动给换行,只好手动replace了
Sheets(PPSheet).Cells(irow, iCol) = Replace(value, Chr(13), vbCrLf)
Public Sub ClearRange(ByVal sheetName As String, ByVal range As String)
If Len(range) > 0 Then
Sheets(sheetName).range(range).ClearContents
Sheets(sheetName).range(range).Borders.LineStyle = xlNone
Sheets(sheetName).range(range).Interior.Pattern = xlNone
End If
End Sub
Public Sub ClearCellArray(ByVal sheetName As String, ByVal pos As Variant)
For Each P In pos
Sheets(sheetName).range(P).value = ""
Next
End Sub
Public Sub ClearLine(ByVal sheetName As String)
For Each x In Sheets(sheetName).Shapes
If x.Type = msoLine Then
x.Delete
End If
Next
End Sub
Public Sub DrawForGongWei(ByVal sheetName As String, ByVal zhipos As Integer, ByVal pos As Variant)
Dim zmove As Integer, i As Integer, fromPos As String, toPos1 As String, toPos2 As String
'zhiPos = zhiId Mod 12
fromPos = pos(zhipos)
'San Fang
zmove = (zhipos + 12 + 4 * 1) Mod 12
toPos1 = pos(zmove)
DrawLine sheetName, fromPos, pos(zmove)
zmove = (zhipos + 12 + 4 * 2) Mod 12
toPos2 = pos(zmove)
DrawLine sheetName, fromPos, pos(zmove)
DrawLine sheetName, toPos1, toPos2
'Dui Gong
zmove = (zhipos + 18) Mod 12
DrawLine sheetName, fromPos, pos(zmove)
End Sub Public Function GetArrayPos(ByVal rangeStart As String, Optional offset As Integer = 2) As Variant
Dim str2 As String, str3 As String, str4 As String, str5 As String, str6 As String, str7 As String, str8 As String, str9 As String, str10 As String, str11 As String, str12 As String
Dim row As String, col As Integer
row = Sheet1.range(rangeStart).row
col = Sheet1.range(rangeStart).Column
size = Sheet1.range(rangeStart).Rows.Count
col = col - offset
str2 = Sheet1.Cells(row, col).Address(0, 0) & ":" & Sheet1.Cells(row + size - 1, col + size - 1).Address(0, 0)
col = col - offset
str3 = Sheet1.Cells(row, col).Address(0, 0) & ":" & Sheet1.Cells(row + size - 1, col + size - 1).Address(0, 0)
row = row - offset
str4 = Sheet1.Cells(row, col).Address(0, 0) & ":" & Sheet1.Cells(row + size - 1, col + size - 1).Address(0, 0)
row = row - offset
str5 = Sheet1.Cells(row, col).Address(0, 0) & ":" & Sheet1.Cells(row + size - 1, col + size - 1).Address(0, 0)
row = row - offset
str6 = Sheet1.Cells(row, col).Address(0, 0) & ":" & Sheet1.Cells(row + size - 1, col + size - 1).Address(0, 0)
col = col + offset
str7 = Sheet1.Cells(row, col).Address(0, 0) & ":" & Sheet1.Cells(row + size - 1, col + size - 1).Address(0, 0)
col = col + offset
str8 = Sheet1.Cells(row, col).Address(0, 0) & ":" & Sheet1.Cells(row + size - 1, col + size - 1).Address(0, 0)
col = col + offset
str9 = Sheet1.Cells(row, col).Address(0, 0) & ":" & Sheet1.Cells(row + size - 1, col + size - 1).Address(0, 0)
row = row + offset
str10 = Sheet1.Cells(row, col).Address(0, 0) & ":" & Sheet1.Cells(row + size - 1, col + size - 1).Address(0, 0)
row = row + offset
str11 = Sheet1.Cells(row, col).Address(0, 0) & ":" & Sheet1.Cells(row + size - 1, col + size - 1).Address(0, 0)
row = row + offset
str12 = Sheet1.Cells(row, col).Address(0, 0) & ":" & Sheet1.Cells(row + size - 1, col + size - 1).Address(0, 0) GetArrayPos = Array(rangeStart, str2, str3, str4, str5, str6, str7, str8, str9, str10, str11, str12)
End Function
Public Function GetArrayPos2(ByVal rangeStart As String, ByVal colCnt As Integer) As Variant
Dim pos() As Variant
ReDim pos(colCnt) Dim row As Integer, col As Integer, i As Integer
row = Sheet1.range(rangeStart).row
col = Sheet1.range(rangeStart).Column
rowOffset = Sheet1.range(rangeStart).Rows.Count
For i = 0 To colCnt - 1 Step 1
pos(i) = Sheet1.Cells(row, col + i).Address(0, 0) & ":" & Sheet1.Cells(row + rowOffset - 1, col + i).Address(0, 0)
Next i GetArrayPos2 = pos
End Function
Public Sub DrawLine(ByVal sheetName As String, ByVal fromPos As String, ByVal toPos As String)
Dim beginx As Integer, beginy As Integer, endx As Integer, endy As Integer
beginx = GetRangeXY(fromPos, True)
beginy = GetRangeXY(fromPos, False)
endx = GetRangeXY(toPos, True)
endy = GetRangeXY(toPos, False)
Sheets(sheetName).Shapes.AddLine beginx, beginy, endx, endy
End Sub
Public Function GetRangeXY(ByVal pos As String, ByVal isX As Boolean) As Integer
If isX Then
Dim left As Integer, width As Integer
left = range(pos).left
width = range(pos).width
GetRangeXY = left + width / 2
Else
Dim top As Integer, height As Integer
top = range(pos).top
height = range(pos).height
GetRangeXY = top + height / 2
End If
End Function
12.Open函数是必须放在ThisWorkbook里面才有效的,其它sheet里面不起作用
Private Sub Workbook_Open()
MsgBox "test"
End Sub
13.可以在Sheet1里面call Sheet2的函数,只需要在函数名前面加Sheet2就可以了
curYear = Year(Now)
Excel开发VBA学习的更多相关文章
- VBA学习资料分享-1
近年来,人工智能的概念深入人心,许多企业也正逐步或已推行办公自动化,寻求人力时间成本的降低,从而提升效益.对企业来说,要完全使用人工智能将工作流程自动化恐怕是没那么容易的,可以的话成本也不低,所以使用 ...
- 浅谈Excel开发:八 Excel 项目的安装部署
前面几篇文章讲解了Excel开发的几个比较主要的也是比较重要的方面,比如菜单系统,Excel对象模型,自定义函数,RTD函数,异步自定义函数,用户自定义任务面板等,在实际开发中我们还会遇到各种“千奇百 ...
- 浅谈Excel开发:七 Excel 自定义任务窗体
前面花了三篇文章讲解了Excel中的UDF函数,RTD函数和异步UDF函数,这些都是Excel开发中的重中之重.本文现在开始接着第二篇文章的菜单系统开始讲解Excel中可供开发的界面元素,本文要讲解的 ...
- 浅谈Excel开发:三 Excel 对象模型
前一篇文章介绍了Excel中的菜单系统,在创建完菜单和工具栏之后,就要着手进行功能的开发了.不论您采用何种方式来开发Excel应用程序,了解Excel对象模型尤其重要,这些对象是您与Excel进行交互 ...
- 浅谈Excel开发:一 Excel 开发概述
做Office相关的开发工作快一年多了,在这一年多里,在插件的开发中遇到了各种各样的问题和困难,还好同事们都很厉害,在和他们的交流讨论中学到了很多的知识.目前Office相关的开发资料是比较少 ...
- Excel开发
浅谈Excel开发:九 Excel 开发中遇到的常见问题及解决方法 Excel开发过程中有时候会遇到各种奇怪的问题,下面就列出一些本人在开发中遇到的一些比较典型的问题,并给出了解决方法,希望对大家 ...
- Excel 开发概述
浅谈Excel开发:一 Excel 开发概述 做Office相关的开发工作快一年多了,在这一年多里,在插件的开发中遇到了各种各样的问题和困难,还好同事们都很厉害,在和他们的交流讨论中学到了很多的知识. ...
- 【转载】浅谈Excel开发:一 Excel 开发概述
博客园就是好,想要什么都给总结了,多谢 原文转载:http://www.cnblogs.com/yangecnu/p/Excel-Develpment-Introduction.html 做Offic ...
- 《C#微信开发系列(Top)-微信开发完整学习路线》
年前就答应要将微信开发的学习路线整理给到大家,但是因为年后回来这段时间学校还有公司那边有很多事情需要兼顾,所以没能及时更新文章.今天特地花时间整理了下,话不多说,上图,希望对大家的学习有所帮助哈. 如 ...
随机推荐
- UNIX环境高级编程笔记 目录
每一章的重点会使用加粗字体 第一章:UNIX基础知识:UNIX体系结构:文件和目录:输入和输出:程序和进程:出错处理:信号:时间值:系统调用和库函数 第三章:文件I/O:文件描述符:文件操作函数:文件 ...
- PB在已经存在的datawindow中添加数据列的方法
打开数据窗口,点击Data按钮 进入到数据源定义画板,选择要新增的列后,不要保存文件,直接点关闭,在提示框选是就可以了 新增的列值存不到数据库中,如果需要更新数据库中的值则:需要在数据窗口画板下,点击 ...
- 怎样获取当前页面框架的数量(即iframe和frame的数量)
需要使用window.length, 或者window.frames.length; 如果页面中不包含frame和iframe元素, 则返回0; window.length === window.fr ...
- ES与关系型数据库的通俗比较
1.在Elasticsearch中,文档归属于一种类型(type),而这些类型存在于索引(index)中,我们可以画一些简单的对比图来类比传统关系型数据库: Relational DB -> D ...
- Python通用爬虫,聚焦爬虫概念理解
通用爬虫:百度.360.搜狐.谷歌.必应....... 原理: (1)抓取网页 (2)采集数据 (3)数据处理 (4)提供检索服务 百度爬虫:Baiduspider 通用爬虫如何抓取新网站? (1)主 ...
- ExcelReport.cs Excel操作类、实例源码下载
标题一.告别ASP.NET操作EXCEL的烦恼标题二.ASP.NET操作EXCEL 合并单元格 大全... cnblogs/hanzhaoxin/韩兆新的博客园ExcelReport第一篇:使用Exc ...
- Java内存模型之从JMM角度分析DCL
DCL,即Double Check Lock,中卫双重检查锁定.其实DCL很多人在单例模式中用过,LZ面试人的时候也要他们写过,但是有很多人都会写错.他们为什么会写错呢?其错误根源在哪里?有什么解决方 ...
- ReactNative使用 react-navigation 详解
react-navigation是官方主推的导航组件,致力于解决导航卡顿,数据传递,Tabbar和navigator布局,支持redux. 最新版本为3.x,大多文档介绍的是 1.x 或 2.x 的用 ...
- 50个Sql语句实战
/* 说明:以下五十个语句都按照测试数据进行过测试,最好每次只单独运行一个语句. 问题及描述:--1.学生表Student(S#,Sname,Sage,Ssex) --S# 学生编号,Sname 学生 ...
- centos 7.0 读写ntfs分区
wget -O /etc/yum.repos.d/epel.repo http://mirrors.aliyun.com/repo/epel-7.repo yum install ntfs-3g 查看 ...