XERO的Quote和Invoice导入DEC (dhlexpresscommerce) | 改进 新增参数自适应 代码自动生成

需求:

在 Excel 中插入了一行参数设定

之前按绝对位置读取的语句就不对了，生成的内容也会是错乱的

所以要在VBA编程中使用VLOOKUP函数

参考：

WorksheetFunction.VLookup(Object, Object, Object, Object) Method
https://docs.microsoft.com/zh-cn/dotnet/api/microsoft.office.interop.excel.worksheetfunction.vlookup

使用 A1 表示法引用单元格和区域
https://docs.microsoft.com/zh-cn/office/vba/excel/concepts/cells-and-ranges/refer-to-cells-and-ranges-by-using-a1-notation

实施：

修改前

input_Code = Worksheets(2).Range("B16").Value

修改后

input_Code = WorksheetFunction.VLookup("Code", Worksheets(2).Range("A:B"), 2, False)

进一步的，我想到可以自动生成这一大段的代码

当然生成的代码只能写在excel表格里，需要手动复制再粘贴到代码编辑器里。

参考

WorksheetFunction.Substitute(String, String, String, Object) Method
https://docs.microsoft.com/en-us/dotnet/api/microsoft.office.interop.excel.worksheetfunction.substitute

字符串表达式中的引号
https://docs.microsoft.com/zh-cn/office/vba/access/concepts/criteria-expressions/include-quotation-marks-in-string-expressions

实施：

Sub buttun2_Click()

    strQuote = Chr(34)

    load_param_code = ""

    i = 1

    Do While i < 30

        param_name = Worksheets(2).Cells(i, 1).Value

        If param_name <> "" Then

            param_str = WorksheetFunction.Substitute(param_name, " ", "_")

            tmp_param_code = "input_" & param_str & " = WorksheetFunction.VLookup(" & strQuote & param_name & strQuote & ", Worksheets(2).Range(" & strQuote & "A:B" & strQuote & "), 2, False)"

            load_param_code = load_param_code & tmp_param_code & Chr(10)

        End If

                       

        i = i + 1

    Loop

    

    Worksheets(2).Cells(i, 1).Value = load_param_code

End Sub

效果：

Github: 

https://github.com/crazypeace/XERO-Quote-or-Invoice-to-DEC-csv