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:=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系统中出现错误???这是为什么!请哪为高手给指点!!