|
一般企业涉及到运输的都必然会同时跟多家货运公司要报价单,而由于各个货运公司的优势不同,到同一地方的价格必然也会有高有低.那么我们应该如何用SQL与VBA的方式来获取最优价格呢?
- Sub getbestprice()
- Dim conn As Object, sql As String, ton As Double, tcity As String
- Set conn = CreateObject("ADODB.Connection")
- tcity = [F2].Value
- conn.Open "Provider=microsoft.jet.oledb.4.0;Extended Properties='Excel 8.0';data source=" & ThisWorkbook.FullName
- sql = "select top 1 单价,货站 from [运价表$A:C] where 单价=(Select min(单价) From [运价表$A:C] where 城市='" & tcity & "')"
- [G2].CopyFromRecordset conn.Execute(sql)
- End Sub
复制代码
运费报价.rar
(13.54 KB, 下载次数: 43)
|
评分
-
1
查看全部评分
-
|