你好，朋友，你会用Label <em>Matrix</em> 吗？往Label...-excel

这么简单还用问?LabelMatrix我不知道怎么设置，但我知道Labelmx的设置方法。供参考。来
在Labelmx中文字有一个“设置小数点后几位”，设置成0就可以了。
选中文字，在右侧属性栏点击“文字特殊处理”，在弹出的对话源框中选择“设置小数点后位数为0”。
还有一种根本的解决方法，在excel中设置，选zhidao中这一列，修改单元格类型为文本。

两种copy方式可以使用：
1、在你拖入条码时，在条码属性的DATA origin 中选择百database，这个选项要求你输入一个数据源，选择你那个EXCEl文件，找到对应度的表；
2、在菜单 插入 中，点击 数据库文件，可问以根据向导提示插入database文件，当答然也是你的excel文件。
下载一个转换软件，在网上搜下，可能不太一样，要核对下

我可以取Excel中的数据：
MyExcel:=createoleobject( 'Excel.Application ');
MyWorkbook:=MyExcel.Workbooks.Open(datamodule2.OpenDialog1.FileName);
MyExcel.Visible:=false;
myworksheet1:=myexcel.activesheet;
for bom_cell:=1 to myworksheet1.usedrange.columns.Count do
begin
if varastype(myworksheet1.cells.item[1,bom_cell],varstring)= '类别 ' then
fuxiang_field:=bom_cell;
if varastype(myworksheet1.cells.item[1,bom_cell],varstring)= '产品编码 ' then
type_field:=bom_cell;
if varastype(myworksheet1.cells.item[1,bom_cell],varstring)= '型号 ' then
name_field:=bom_cell;
if varastype(myworksheet1.cells.item[1,bom_cell],varstring)= '出口国家 ' then
guige_field:=bom_cell;
if varastype(myworksheet1.cells.item[1,bom_cell],varstring)= '周计划7a64e58685e5aeb9366 ' then //材料
cailiao_field:=bom_cell;
if varastype(myworksheet1.cells.item[1,bom_cell],varstring)= '上次欠产 ' then
danwei_field:=bom_cell;
if varastype(myworksheet1.cells.item[1,bom_cell],varstring)= '单位 ' then
danhao_field:=bom_cell;
if varastype(myworksheet1.cells.item[1,bom_cell],varstring)= '当日 ' then
gongxu_field:=bom_cell;
if varastype(myworksheet1.cells.item[1,bom_cell],varstring)= '累计 ' then
plat_field:=bom_cell;
if varastype(myworksheet1.cells.item[1,bom_cell],varstring)= '备注 ' then
danhao_field:=bom_cell;
if varastype(myworksheet1.cells.item[1,bom_cell],varstring)= '欠产 ' then
gongxu_field:=bom_cell;
if varastype(myworksheet1.cells.item[1,bom_cell],varstring)= '分厂名称 ' then
plat_field:=bom_cell;
if varastype(myworksheet1.cells.item[1,bom_cell],varstring)= '数据日期 ' then
plat_field:=bom_cell;
end;
//执行存储过程
dm.adoq1.Close;
dm.adoq1.SQL.Clear;
dm.adoq1.SQL.add( ' ');
dm.adoq1.ExecSQL;
try For bom_cell:=2 To myworksheet1.usedrange.Rows.Count do
begin
dm.ADOQ1.Close;
dm.ADOQ1.SQL.Clear;