打开文件夹:Public Function ChooseFolder(Rg As Range) With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then Rg = .SelectedItems(1) End If End WithEnd Function 打开文件: Public Function ChooseFile(Rg As Range)
专注分享技术,共同学习,共同进步。侵权联系[81616952@qq.com]
Copyright (C)ICode9.com, All Rights Reserved.
ICode9版权所有