1、通過 Excel_VBA 操作組態(tài)項(xiàng)目組態(tài)提供COM 組件接口組態(tài)項(xiàng)目,函數(shù)說明參考用戶編程手冊(cè):預(yù)先完成各種組態(tài)數(shù)據(jù)庫(kù)和畫面等文件:編寫Excel 文件如下:執(zhí)行按鈕執(zhí)行VBA,操作項(xiàng)目?jī)?nèi)容:.1.SubMyVBAFunction() 激活工作表Sheets(Sheet1).Select臨時(shí)變量Dim s As StringDim n Aseger建立FameView 組態(tài)接口對(duì)象 Dim obj As ObjectSet obj = CreateObject(fmDMO.Project) If IsNull(obj) = True ThenMsgBox 建立組態(tài)數(shù)據(jù)庫(kù)失敗!End If根據(jù)

2、PLC 類型拷貝組態(tài)數(shù)據(jù)庫(kù)Dim plcType As s = Cells(1, 2)s = Left(s, 1)egerplcType = C(s)Select Case plcTypeCase 1: n = obj.ImportFile(c:tempProjectLibrary組態(tài)數(shù)據(jù)庫(kù), database1.mdb, ., database.mdb, 0)Case 2: n = obj.ImportFile(c:tempProjectLibrary組態(tài)數(shù)據(jù)庫(kù), database2.mdb, ., database.mdb, 0)Case 3: n = obj.ImportFile(c:t

3、empProjectLibrary組態(tài)數(shù)據(jù)庫(kù), database3.mdb, ., database.mdb, 0)End Select修改設(shè)備表參數(shù)Dim srvIp As String srvIp = Cells(2, 2) If srvIp ThenSelect Case plcTypeCase 1: n = obj.ModifyDeviceTableParameter(S7TCP, SrvIP, , srvIp)Case 2: n = obj.ModifyDeviceTableParameter(EtherNet/Logix, SrvIP, , srvIp)

4、 Case 3: n = obj.ModifyDeviceTableParameter(MC-QTCPIP, SrvIP, , srvIp)End SelectEnd IfDim srvPort As s = Cells(3, 2)If s = Then seger= 0srvPort = C(s)If srvPort 0 And plcType = 3 Thenn = obj.ModifyDeviceTableParameter(MC-QTCPIP, SrvPort, 1025, srvPort) End If.2.設(shè)置變量初始值n = obj.SetVXVarInitialValue(Cells(5, 2), Cells(5, 3)n = obj.SetVXVarInitialValue(Cells(6, 2), Cells(6, 3)n = obj.SetVXVarInitialValue(Cells(7, 2), Cells(7, 3)拷貝項(xiàng)目文件n = obj.ImportFile(Cells(10, 2), Cells(10, 4), Cells(10, 5), Cells(10, 6), 0)n = obj.ImportFile(Cells(11, 2),