Excel
本命雪狮
野生偏门程序猿,VBA+Python+PBI,QQ114152850
展开
-
【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 · 793 阅读 · 0 评论 -
【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 · 1493 阅读 · 0 评论 -
【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 · 674 阅读 · 0 评论 -
【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 · 1295 阅读 · 0 评论