2018年6月29日

导出sheet到新文件夹当中
摘要： Sub 导出当前客户达成分析()Application.ScreenUpdating = FalsemyName1 = Sheets("日期统计表").Range("B1") '客户名称myName = Sheets("配送明细报表").Range("BA2")mypath = ThisWorkbo 阅读全文
posted @ 2018-06-29 15:39 上山打老虎下山采蘑菇 阅读(188) 评论(0) 推荐(0) 编辑
dialogs打开对话框选定文件夹，getopenfilename获取文件名
摘要： 如果需要使用“打开”、“打印”等Excel内置对话框已经具有的功能，可以使用代码直接调用这些内置的对话框，如下面的代码所示。 #001 Sub DialogOpen() #002 Application.Dialogs(xlDialogOpen).Show arg1:=ThisWorkbook.Pa 阅读全文
posted @ 2018-06-29 15:34 上山打老虎下山采蘑菇 阅读(3574) 评论(0) 推荐(0) 编辑
fso文件夹操作用法实操
摘要： Sub 订单转换()Application.ScreenUpdating = FalseOn Error Resume Next Dim fso, fl, m%, n%, p%, q& Dim wb As Workbook Dim mypath As String Dim brr Sheets.Ad 阅读全文
posted @ 2018-06-29 11:23 上山打老虎下山采蘑菇 阅读(396) 评论(0) 推荐(0) 编辑
GetOpenFilename的基本用法(文件夹实操)
摘要： Sub 数据导入()Dim f, arr, i&, j&, k, m%, n%, p%, sh As Workbookf = Application.GetOpenFilename(filefilter:="Excel文件(*xls), *xls", Title:="选择Excel文件", Mult 阅读全文
posted @ 2018-06-29 11:21 上山打老虎下山采蘑菇 阅读(9179) 评论(0) 推荐(0) 编辑
VBA文件对话框的应用（VBA打开文件、VBA选择文件、VBA选择文件夹)
摘要： 在VBA中经常要用到文件对话框来进行打开文件、选择文件或选择文件夹的操作。用Microsoft Office提供的文件对话框比较方便。用法如下Application.FileDialog(fileDialogType)fileDialogType MsoFileDialogType 类型，必需。文件 阅读全文
posted @ 2018-06-29 11:20 上山打老虎下山采蘑菇 阅读(3350) 评论(0) 推荐(0) 编辑
GetOpenFilename的基本用法
摘要： GetOpenFilename '一、概述基本语法 Application.GetOpenFilename 方法 显示标准的“打开”对话框，并获取用户文件名，而不必真正打开任何文件，只是把打开文件名称返回程序。 'GetOpenFilename相当于Excel打开窗口，通过该窗口选择要打开的文件，并 阅读全文
posted @ 2018-06-29 10:37 上山打老虎下山采蘑菇 阅读(55443) 评论(0) 推荐(2) 编辑

导航