50、运输应用程序的VBA实现

运输应用程序的VBA实现

在当今的商业世界中，从外部数据库导入数据到Excel并进行相关分析是一项非常有价值的技能。本文将详细介绍一个运输应用程序的VBA实现，该程序从Access数据库中导入数据，构建运输模型，使用Solver求解，并生成报告。

1. 变量声明与初始化

首先，我们需要声明一些公共和模块级变量，这些变量将在整个程序中使用。特别要注意 cn 和 rs 变量的声明方式，它们使用了 New 关键字来实例化新的ADO对象，即连接对象和记录集对象。

Option Explicit
Public existingPlant() As String, existingRetailer() As String
Public nSelectedPlants As Integer, nSelectedRetailers As Integer
Public selectedPlant() As String, selectedRetailer() As String
Public plantList As String, retailerList As String
' 实例化连接和记录集对象以供后续使用
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset

2. 主运输子程序

主运输子程序 MainTransportation 是整个程序的核心，当解释工作表上的按钮被点击时，它将被执行。该