1.打开目录
第一种:
procedureTfmExportRangetoFile.btnOkClick(Sender: TObject);
Var
OpenDialog: TFileOpenDialog;
SelectedFolder: string;
begin
OpenDialog := TFileOpenDialog.Create(Self);
try
OpenDialog.Options := OpenDialog.Options +[fdoPickFolders];
If Not OpenDialog.Execute Then
Abort; //中止代码,不执行后面的代码了
SelectedFolder := OpenDialog.FileName;
ShowMessage(SelectedFolder);
finally
OpenDialog.Free;
end;
end;
运行效果:
第二种:
首先得引入shellapi单元。
procedureOpenCurDocFolderMethod;
begin
xWb := FXLApp.ActiveWorkbook ;
ShellExecute(FXLApp.Hwnd ,PChar('Open'),PChar('Explorer.exe'),
PChar('/select,'+xwb.Path[0] + '\' +xWb.Name), nil, 1);
{Explorer 命令格式:
Explorer [/n][/e][[,/root],[path]][[,/select],[pathfilename]]
参数说明:
/n 表示以"我的电脑"方式打开一个新的窗口,通常打开的是Windows安装分区的根目录。
/e 表示以"资源管理器"方式打开一个新的窗口,通常打开的是Windows安装分区的根目录。
/root,[path] 表示打开指定的文件夹,/root表示只是显示指定文件夹下面的文件(夹),不显示其它磁盘分区和文件夹;[path]表示指定的路径。
如果不加/root参数,而只用[path]参数,则可以显示其它磁盘分区和文件夹中的内容。另外,[path]还可以指定网络共享文件夹。
/select,[path filename] 表示打开指定文件夹并且选中指定的文件夹,[path filename]表示指定的路径和文件名。
如果不加/select参数,则系统会用相应的关联程序打开该文件。如果[path filename] 不跟文件名就会打开该文件夹的上级目录并选中该文件夹。}
end;
运行效果:
第三种:
procedureSplitWorkbookMethod;
var
i : Integer ;
xSht : Variant ;
xWb : Variant ;
xPath : string;
begin
FXLApp.ScreenUpdating[0] := False ;
xShts := FXLApp.Worksheets ;
if SelectDirectory('SelectPath:','',xPath,[sdNewFolder ,sdNewUI],nil) = True then
for i := 1 to xShts.Count do
begin
xSht := xShts.Item[i] ;
xSht.Copy;
xWb := FXLApp.ActiveWorkbook ;
xWb.SaveAs(xPath + '\' +string(xsht.name));
xWb.Close ;
end
else
begin
end;
FXLApp.ScreenUpdating[0] := True ;
end;
运行效果:
第四种:
选择图片(可多选)
FXLApp.GetOpenFilename(null,null,'Txt_InsertPic','Txt_Insert',True,0) ’其中参数为True时支持多选,为False时单选
运行效果:
第五种:
xFileString: string
xFileString :=FXLApp.GetSaveAsFilename('','Comma Separated Text (*.CSV),*.CSV',EmptyParam,EmptyParam ,EmptyParam ,0); FXLApp.ActiveWorkbook.SaveAs(xFileString ,xlCSV ,EmptyParam ,EmptyParam,EmptyParam ,False ,xlNoChange , EmptyParam ,EmptyParam ,EmptyParam ,EmptyParam,EmptyParam,0);
运行效果: