按键精灵制作Excel表格导入access数据的脚本

最近接到任务要录入数据到数据库中,是将Execl表格中的数据导入到ACCESS数据文件中,对于技术人员,怎么可能会甘心复制粘贴,凑巧前段时间一直在研究按键精灵(主要是游戏太累手了),忽然眼前一亮,呵呵,几百条的数据我根本不慌。

我也是一边写逻辑,一边学习写法,跨语言学习,大家懂得。

代码:下面有讲解

这里贴上代码

// access 数据文件
Ret = Plugin.Access.Connect(".mdb后缀的文件", "123456")
MessageBox ret // 提示是否连接到数据库中

// 要打开的excel文件
//Call Plugin.Office.OpenXls("Excel文件地址,")

price1 = ""

For i = 2 To 63 Step 1
price1 = ""

纵列1        = Plugin.Office.ReadXls(1, i, 1)
纵列2        = Plugin.Office.ReadXls(1, i, 2)
纵列3        = Plugin.Office.ReadXls(1, i, 3)
纵列4        = Plugin.Office.ReadXls(1, i, 4)
纵列5        = Plugin.Office.ReadXls(1, i, 5)

//输出循环 (纵列1)

处理货币 (估价)

table = "表名"
field = "`字段1`, `字段2`, `字段3`, `字段4`, `字段5`"
value = "'" & Trim(纵列1)  & "', '" & Trim(纵列2) & "', '" & Trim(纵列3) & "', '" & Trim(纵列4) & "', '" & Trim(纵列5) & "'"

sql = " insert into " & table & " (" & field & ") values (" & value & ")"
Ret = Plugin.Access.Query( sql )

SayString sql
KeyPress "Enter", 1
SayString i
KeyPress "Enter", 1
SayString Ret
KeyPress "Enter", 3


Delay 300

Next
MessageBox "程序结束!"

/**
 * 输出循环 查看输出信息
 *
 *
 */
Function 输出循环(name)

SayString name
KeyPress "Enter", 1
Delay 300

End Function

/**
 * 货币函数
 *    函数主要功能是  千位分组,公司金额要求千位有一个逗号 然后金额有区间用 - 隔开 如果无价之宝 就用无价之宝文字代替
 *    函数中用到递归处理方式
 */
Function 处理货币(price)
    If price = "无价之宝" Then
        price1 = price
    Else
        strIs = InStr(price, "-")
        If strIs > 0 Then 
//            rstrIs = InStrRev(price, "-")
//            lfStr = Left(price, strIs-1)
//            lrStr = Right(price, rstrIs-1)
// 注释这块计算金额类型时有一定问题 截取100,000 字样时 返回00,000 所以换成下面这个方式
            L = Len(price)
            lfStr = Left(price, strIs-1)
            lrStr = Right(price, L-strIs)
    


            lfprice = 处理货币(lfStr)
            lfprice = 处理货币(lrStr)

            price1 = lfStr & "-" & lrStr
        Else 
            length = Len(price)
            If length > 3 Then 
                // 截取左边剩下的部分
                lstr = Left(price, length - 3)
                rstr = "," + Right(price, 3)

                // 返回值
                处理货币(lstr)

                price1 = price1 + rstr
            Else 
                price1 = price
            End If
        End If
    End If
End Function

讲解:

第一步:连接 *.mdb 文件

Ret = Plugin.Access.Connect("文件路径", "密码")
MessageBox Ret    这个地方提示-1表示连接上文件,这个语言真是特别正常都是1表示连接上,但这是-1才能连接

这个密码要特殊说明一下,如果文件没有密码就随便打下,因为按键精灵这个我也不是特别明白,明明没有密码,但是不输入连接不上文件。

第二步:获取Excel文件数据

Call Plugin.Office.OpenXls("文件路径")

这个是调用按键精灵的内部函数 用call这个方法调用,不懂去查官方说明。

定义 price1 全局变量

进入循环部分,循环部分是Excel表格中一共有多少行,我是从第二行开始的,第一行为描述,

Plugin.Office.ReadXls 这个功能不懂自行按键精灵官方查询

进入循环初始化price1变量,for从第二行开始 到63行结束步长为1, 步长的意思就是跟 ++,加多少就写几,处理货币,是因为货币有特殊说明,要进行千位分组,并且有的物品是文字描述,有的物品还是区间模式。下面讲解,继续文本流,函数块后续补上,然后进行表名选择,字段,值添加,最好要按照sql标准去写,然后最后在执行按键精灵时,打开一个txt文档,把相关信息打印到里面,打印sql语句,执行到第几条i, 是否插入成功Ret(这个值为-1才表示插入成功) 每次执行延时300毫秒,循环完毕程序结束。

函数块讲解:

处理货币:首先判断是否是文字信息,判断完毕,不是进入价格处理,判断是否是区间金额,以 - 表示分隔符,如果存在-进入区间判断,然后截取-前面和后面的金额,然后递归进行千位分组,因为按键精灵中不存在返回值return这种函数,所以采用全部变量形式处理。

最后在重要提示一次,不要在语句后面加分号,会报错误信息,写分号是个好习惯,但是请尊重语言的力量。

相关推荐