需求: 朋友的公司使用XERO创建订单,要通过DHL的DEC (dhlexpresscommerce)系统发货。 XERO的Quote和Invoice长这样 DEC的csv文件模板长这样 https://dhlexpresscommerce.com/ClientBin/dhl_csv_template.csv XERO的Quote没有导出csv格式的功能;INVOICE有导出csv的功能,但是导出来的文件里面没有收件人的地址信息,反而有寄件人的信息。 那只能从页面上手工复制这些信息了。用Excel做转换。 参考: 通过索引号引用工作表 https://docs.microsoft.com/zh-cn/office/vba/excel/concepts/workbooks-and-worksheets/refer-to-sheets-by-index-number 使用 A1 表示法引用单元格和区域 https://docs.microsoft.com/zh-cn/office/vba/excel/concepts/cells-and-ranges/refer-to-cells-and-ranges-by-using-a1-notation 使用索引编号来引用单元格 https://docs.microsoft.com/zh-cn/office/vba/excel/concepts/cells-and-ranges/refer-to-cells-by-using-index-numbers 使用 Do...Loop 语句 https://docs.microsoft.com/zh-cn/office/vba/language/concepts/getting-started/using-doloop-statements 实施: Sub button1_Click() 'Load param input_To_Name = Worksheets(2).Range("B1").Value input_Destination_Email = Worksheets(2).Range("B2").Value input_Destination_Phone =...