想请教Excel问题,请哪为高手给指点!(100分)

  • 主题发起人 主题发起人 lxn820217
  • 开始时间 开始时间
L

lxn820217

Unregistered / Unconfirmed
GUEST, unregistred user!
想请教一个问题,我感觉莫名其妙,请看如下程序:
path:=ExtractFileDir(Application.Exename);
name:='/aa1.xls';
ExcelID := CreateOleObject( 'Excel.Application' );
ExcelID.Visible := True;
try
ExcelID.WorkBooks.Open(pathhh+namen );
except
ExcelID.Workbooks.Add(xlWBatWorkSheet);
ExcelID.Workbooks[1].WorkSheets[1].Name := 'aaa';
ExcelID.WorkBooks[1].SaveAs( path+name);
end;
path是本机执行文件目录,如果aa1.xls不存在,则自动建立新文件aa1.xls,如果存在自动打开aa1.xls;以上程序完全可以实现;

但更改目录在另一台机器上,同样是相同的程序:
path:='//Fc/program/';//其中FC是另一台计算机网络名
name:='aa1.xls';
ExcelID := CreateOleObject( 'Excel.Application' );
ExcelID.Visible := True;
try
ExcelID.WorkBooks.Open(pathhh+namen );
except
ExcelID.Workbooks.Add(xlWBatWorkSheet);
ExcelID.Workbooks[1].WorkSheets[1].Name := 'aaa';
ExcelID.WorkBooks[1].SaveAs( path+name);
end;
这时出现了奇怪问题:如果aa1.xls存在,则自动打开;但aa1.xls不存在时,它并不自动建立aa1.xls文件,并在excel系统中出现错误???这是为什么!请哪为高手给指点!!
 
路径拼错,应该是:
path:='//Fc/program/',测试完了,马上送分吧[:D]
 
查一下//Fc/program/是否有写的权限。
 
对不起,是路经写错了,害的我忙活半天!给分!
 
哈哈,恭喜楼主
 
二楼厉害[:D]
 
恭喜楼主解决问题,顺便3Q楼主给分!
 

Similar threads

后退
顶部