/ip firewall nat add action=dst-nat chain=dstnat dst-port=443 in-interface=ether1 protocol=tcp to-addresses=192.168.10.100 to-ports=443
/ip firewall nat add action=dst-nat chain=dstnat dst-port=443 protocol=tcp to-addresses=192.168.10.100 to-ports=443
with ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _ "ODBC;DSN=trpvANSI;UID=dbuser;", Destination:=Range("$I$8")).QueryTable
.CommandText = Array("SELECT * FROM dbsklad;")
end with
SourceType:=0, Source:= _ "ODBC;DSN=trpvANSI;UID=dbuser;"