我可以使用 excel 来更新 table 上的数据吗?
Could I use excel to update data on a table?
财务部门计算出我们的销售预算后,我们的销售人员必须批准或更改该预算。
我们正在考虑创建一个 excel sheet 来帮助他们。
想法是从 table 中读取数据并将其显示在价差 sheet 上,然后让销售人员更改一些金额,之后 excel 必须更新 table 随着变化。
这可能吗?怎么可能是方法?
亲切的问候
应该是两个按钮:
1) 从数据库中检索数据:
Dim qt As QueryTable
sqlstring1 = "SELECT * FROM YourTable ORDER BY ProductID"
With ActiveSheet.QueryTables.Add(Connection:=getConnectionStr, Destination:=Range("A1"), sql:=sqlstring1)
Private Function getConnectionStr2()
getConnectionStr2 = "ODBC;DRIVER={SQL Server};" & _
"DATABASE=dbname;" & _
"SERVER=100.100.100.100;" & _
"UID=username;" & _
"PWD=userpassword;"
End Function
2) 应该循环抛出值并创建动态更新脚本。
财务部门计算出我们的销售预算后,我们的销售人员必须批准或更改该预算。
我们正在考虑创建一个 excel sheet 来帮助他们。
想法是从 table 中读取数据并将其显示在价差 sheet 上,然后让销售人员更改一些金额,之后 excel 必须更新 table 随着变化。
这可能吗?怎么可能是方法?
亲切的问候
应该是两个按钮:
1) 从数据库中检索数据:
Dim qt As QueryTable
sqlstring1 = "SELECT * FROM YourTable ORDER BY ProductID"
With ActiveSheet.QueryTables.Add(Connection:=getConnectionStr, Destination:=Range("A1"), sql:=sqlstring1)
Private Function getConnectionStr2()
getConnectionStr2 = "ODBC;DRIVER={SQL Server};" & _
"DATABASE=dbname;" & _
"SERVER=100.100.100.100;" & _
"UID=username;" & _
"PWD=userpassword;"
End Function
2) 应该循环抛出值并创建动态更新脚本。