- 博客(8)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 【VBA】将数组上传到数据表自定义函数
'将数组arr上传到cnt的tablename表中，dic_field_mapping中key是arr的标题，value是database中的对应标题'其中arr必须带字段，否则无法匹配上传'如果dic_field_mapping为nothing，默认数组的字段和数据库中的相同'如果tracking_id为0，则不管tracking_id的上传，如果不为0，则上传到名为tracking_id的字段'By Dawei GAO，2020-11-13Sub ArrayToDatatable(ByVal
2020-11-13 11:00:30
738
原创 【VBA】生成m到n之间的随机整数
'生成m到n之间的随机整数Function RandBetween_VBA(ByVal m As Long, ByVal n As Long) Randomize RandBetween_VBA = Int(Rnd * (n - m + 1) + m)End Function
2020-11-05 10:59:06
1188
原创 【VBA】一维数组和二维数组元素互换自定义
'针对一维数组和二维数组的元素互换位置，one_demision是true时一维数组，否则是二维数组，二维数组互换行，这里不做列的互换Sub SwapElement(ByRef arr As Variant, ByVal m As Long, ByVal n As Long, Optional ByVal one_demision As Boolean = True) Dim tmp As Variant Dim col As Long, firstcol As Long, lstcol As L
2020-11-05 10:58:08
1426
原创 【VBA】字符串连接，模仿C# string.Format
'模仿C# string.Format()'没有设置数量的判断，使用时自己判断好{n}'例：正常写作 "hello " & str,可以用此函数写作StringFormat("hello {0}",str)'By Gao Dawei,2020-10-09Function StringFormat(ByVal str As String, ParamArray arr_replace_with() As Variant) Dim item As Variant Dim n As
2020-10-20 10:53:31
297
原创 【VBA】自定义函数，将数组中的元素连接起来（可以每个元素两边分别加字符）
方便在sql拼接时使用'自定义函数，将数组中的元素连接起来（可以每个元素两边分别加字符）'By Gao Dawei,2020-10-09Function ArrayJoin(ByVal arr As Variant, Optional element_plugin_left As String = "", _ Optional element_plugin_right As String = "", Optional delimiter As String = ",
2020-10-09 12:07:39
1379
原创 【VBA】创建工作簿自定义函数
自定义创建工作簿，可以指定创建的工作簿有几个工作表（有更简单的方法，比如设置Application.SheetsInNewWorkbook = sheet_num后再设置回来）第二个自定义函数是方便以某一工作表创建后直接赋值工作簿'创建工作簿，指定有多少个工作表Function CreateWorkbook(Optional ByVal sheet_num As Integer = 1) As Workbook Dim n As Integer, count As Integer, diff
2020-10-09 10:44:55
624
原创 【VBA】数据库中的回滚数据
很多时候我们执行的SQL语句或者其他对数据库的操作都会因为各种问题报错，有时候报错的时候，已经有数据写入到数据库了，这个时候我们就需要将写入的数据给删除掉；而有时候执行删除操作后，其他的操作导致后面执行错误，我们又想还原已经删除的数据。我们希望在报错的时候能够还原到某个点，是否可以这么操作呢？在数据库中，有数据回滚的概念，可以参考下面代码：'事务回滚Sub AdoRollback() Dim cn As Object Dim rs As Object Set cn =
2020-09-27 12:31:49
608
原创 【VBA】在Excel VBA中调用Access中的过程
注意，这种方式不能打开有密码的文件Sub RunAccessMacro() Dim myAccess As Object mydata = ThisWorkbook.path & "\Database1.accdb" Set myAccess = CreateObject(mydata) myAccess.Visible = False myAccess.Run "test" Set myAccess = NothingEnd Sub...
2020-09-27 12:28:58
1166
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人