'废话不多少，上代码
'/需要在工具引用中，加入(Microsoft Access BarCode Control 9.0)
Sub BarCode()
'//定义插入的OLE对象
Dim barOLEObj As OLEObject
'//定义插入的条形码对象
Dim barObj As BarCodeCtrl
'//定义条形码的值
Dim valDbl As Double
Set barOLEObj =
Worksheets(1).oleObjects.Add(ClassType:='BARCODE.BarCodeCtrl.1',
Link:=False _
, DisplayAsIcon:=False, Left:=0,
Top:=0, Width:=210, Height _
:=75.75)
Set barObj = barOLEObj.Object
barObj.ShowData = 1 '//是否显示数字
valDbl = 2013010655555#
barObj.Value = valDbl
End Sub
今天需要做一个在shell中执行sqlplus并且将执行的结果导出到文件中，但是在执行过程中一直出现自动换行的情况，格式混乱。经过查询可以同过指定列显示长度【col
col1 format a20】来控制
问题出现截图和解决后截图如下
废话不多说，代码贴上：
#获取参数
oraName=$1
oraPWD=$2
oraSID=$3
#sqlplus 连接命令v
CMD=$oraName'/'$oraPWD'@'$oraSID
#试连接
VALUE=`sqlplus -S '$CMD' << !
set verify off
set echo off
set heading off
set
加载中…
