2022年6月21日
VBA 焦点居A1，sheet居sheet1, 预览大小调整100% ,设置打印页脚水印（操作同一文件夹下所有excel）
摘要： Sub BtnChooseFolder_Click() Worksheets("util").Cells(6, 2).Value = "" Dim folderPath As String If Application.FileDialog(msoFileDialogFolderPicker).Sh 阅读全文
posted @ 2022-06-21 14:26 人鬼情未了 阅读(176) 评论(0) 推荐(0) 编辑
vba 选择文件，文件夹，判断是否存在
摘要： 打开文件夹：Public Function ChooseFolder(Rg As Range) With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then Rg = .SelectedItems(1) End If End 阅读全文
posted @ 2022-06-21 13:41 人鬼情未了 阅读(570) 评论(0) 推荐(0) 编辑