精华内容
下载资源
问答
  • 上一章给大家分享了前面学的数组和Range对象的属性方法,工作薄和工作表的属性的使用...语法:Dir[(pathname[, attributes])]Pathname:第一个参数表示文件或者文件夹的路径。Attributes:第二个参数是文件或者文件...

    上一章给大家分享了前面学的数组和Range对象的属性方法,工作薄和工作表的属性的使用进行了综合举例,这一篇文章继续对上一章没有分享的内容继续举例。

    在举例子之前先对Dir函数具体说明一下:

    Dir函数的作用就是返回一个文件或者文件夹的名称。

    语法:

    Dir[(pathname[, attributes])]

    Pathname:第一个参数表示文件或者文件夹的路径。

    Attributes:第二个参数是文件或者文件夹的属性。

    vbNormal 默认值,表示指定返回没有任何属性的文件

    vbDirectory 表示指定返回没有任何属性的文件和文件夹

    当函数中没有第二个参数attributes就是表示返需要返回没有任何属性的文件。

    pathname参数指定的文件或文件夹找不到时,Dir函数返回一个0长度的空字符串” ”。

    把一个工作薄中的所有工作表拆分成单个的工作薄并保存

    a7414edeef3607f46f1b0913c8e943e7.png

    程序运行的结果:

    8d6727535d7a931e37b67fac307a10fa.png

    代码1:

    Sub ce()

    Application.ScreenUpdating = False

    Dim f As String

    Dim s As Worksheet

    f = ThisWorkbook.Path & " 今天要新建的目录"

    If Len(Dir(f, vbDirector)) = 0 Then

    MkDir f

    End If

    For Each s In Worksheets

    s.Copy

    ActiveWorkbook.SaveAs f & "" & s.Name & ".xls"

    ActiveWorkbook.Close

    Next

    Application.ScreenUpdating = True

    End Sub

    再举个例子:

    从20到120数据中随机从里面抽取4个数字a.b.c.d(可以重复),这4个数字计算:a/b * c/d,输出结果需要精确到小数点后6位!

    c473051caa5c629590d7ad38282d93e9.png

    代码2:

    Sub test1()

    Dim arr(1 To 4) As Variant

    Dim i As Integer, j As Integer

    Dim k As Double

    Randomize

    For i = 1 To 4

    arr(i) = Int((Rnd * 100) + 20)

    Next

    For j = 1 To 4

    Worksheets("sheet49").Cells(j, 1) = arr(j)

    Next

    k = (arr(1) / arr(2)) * (arr(3) / arr(4))

    Worksheets("sheet49").Range("A11").NumberFormatLocal = "0.000000_ "

    Worksheets("sheet49").Range("A11") = k

    End Sub

    运行结果:

    31e290b82ca40a77f6d36d4715bf88b6.png

    喜欢的请关注我,谢谢! 今天就先分享到这里,明天继续分享。

    展开全文
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧48 保存指定工作表为工作簿文件 12 技巧49 打印预览时不触发事件 12 技巧50 设置工作簿文档属性信息 12 技巧51 不打开工作簿取得其他工作簿数据 12 51-1 使用公式 12 51-2 使用GetObject函数 12 51-3 隐藏...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧48 保存指定工作表为工作簿文件 116 技巧49 打印预览时不触发事件 118 技巧50 设置工作簿文档属性信息 120 技巧51 不打开工作簿取得其他工作簿数据 121 51-1 使用公式 121 51-2 使用GetObject函数 122 51-3 隐藏...
  • Excel VBA实用技巧大全 附书源码

    热门讨论 2010-10-08 18:59:24
    01040设置保存自动恢复文件的时间间隔和保存位置 01041停止屏幕刷新 01042使事件无效 01043使取消键无效 01044不显示警告信息对话框 01045设置使用的打印机 01046安装加载宏 01047利用GetOpenFilename方法获取文件名...
  • Set myFolder = Fso.GetFolder(fd.InitialFileName) '将文件夹路径赋值变量 With Application.FileSearch .LookIn = myFolder '设置文件的搜索路径 .FileType = msoFileTypeExcelWorkbooks '设置要搜索的文件...
  • ASD:Microsoft Word的自动保存文件;Microsoft高级流媒体格式(microsoft advanced streaming format,ASF)的描述文件;可用NSREX打开 Velvet Studio例子文件 ASF:Microsoft高级流媒体格式文件 ASM:汇编语言...
  • Visual Basic 2008/2010从入门精通

    热门讨论 2012-02-28 19:05:54
    12.3 补充知识:Visual Basic for Applications(VBA)集合 12.4 本章小结 第13章 处理文本文件和字符串 13.1 使用文本框对象显示文本文件 13.1.1 打开用于输入的文本文件 13.1.2 FileOpen函数 13.2 使用...
  • FMLDATA的源码

    2014-06-02 15:57:42
    例3、将周收益率保存到外部文件在例2基础上,将“分析周期”改为“周线图”,则周收益率保存到000001.101.WEEK文件。 例4、将沪市A股所有股票的收盘价、成交量保存到外部文件 建一名为TESTCV公式: A:"FMLDATA@WRITE...
  • autocad命令全集

    2008-10-24 21:46:23
    127 INSERT I 把图块(或文件)插入当前图形文件 128 INSERTOBJ IO 插入OLE对象 129 INTERFERE INF 将两个或两个以上的三维实体的相交部分创 建为一个单独的实体 130 INTERSECT IN 对三维实体求交 131 ISOPLANE ...
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    【批量导入图片(自动排版)】:批量导入图片,且自动排版,可多行多列排版,可任意指定图片大小与路径 【批量导入图片批注】:批量地将图片导入批注中,可以自由设定图片显示大小 【删除所有图片】:删除当前表...
  • Excel百宝箱

    2012-10-27 17:09:21
    【批量导入图片(自动排版)】:批量导入图片,且自动排版,可多行多列排版,可任意指定图片大小与路径 【批量导入图片批注】:批量地将图片导入批注中,可以自由设定图片显示大小 【删除所有图片】:删除当前表...
  • 【批量导入图片(自动排版)】:批量导入图片,且自动排版,可多行多列排版,可任意指定图片大小与路径 【批量导入图片批注】:批量地将图片导入批注中,可以自由设定图片显示大小 【删除所有图片】:删除...
  • 【屏幕取色】 经典的屏幕取色工具,可取任意一处屏幕颜色到指定的存储格中,可显示为RGB颜色值或十六进制的颜色值,为VBA开发人员的辅助工具之一。 【万年日历】 可以查询所有节、假日信息和公农双历,以及计算两...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    【屏幕取色】 经典的屏幕取色工具,可取任意一处屏幕颜色到指定的存储格中,可显示为RGB颜色值或十六进制的颜色值,为VBA开发人员的辅助工具之一。 【万年日历】 可以查询所有节、假日信息和公农双历,以及计算两...
  • 【屏幕取色】 经典的屏幕取色工具,可取任意一处屏幕颜色到指定的存储格中,可显示为RGB颜色值或十六进制的颜色值,为VBA开发人员的辅助工具之一。 【万年日历】 可以查询所有节、假日信息和公农双历,以及计算两...
  • 【批量导入图片(自动排版)】:批量导入图片,且自动排版,可多行多列排版,可任意指定图片大小与路径 【批量导入图片批注】:批量地将图片导入批注中,可以自由设定图片显示大小 【删除所有图片】:删除当前表...
  • 【屏幕取色】 经典的屏幕取色工具,可取任意一处屏幕颜色到指定的存储格中,可显示为RGB颜色值或十六进制的颜色值,为VBA开发人员的辅助工具之一。 【万年日历】 可以查询所有节、假日信息和公农双历,以及计算两...
  • 【屏幕取色】 经典的屏幕取色工具,可取任意一处屏幕颜色到指定的存储格中,可显示为RGB颜色值或十六进制的颜色值,为VBA开发人员的辅助工具之一。 【万年日历】 可以查询所有节、假日信息和公农双历,以及计算两...
  • ArcMap使用手册.pdf

    热门讨论 2012-02-19 15:02:46
    保存定制模板 530 修改定制的缺省保存位置 532 设置工具条选项 533 宏的创建、编辑和运行 534 使用 VBA 创建自定义命令 537 操作UIControls 539 添加自定义命令 540 更新ArcID 模块 541 锁定文档和模板 ...
  • 使用DataLogMergeToPrimary命令将从路径文件移动路径 13-16 创建文件集 13-16 监视磁盘空间 13-16 周期性创建文件 13-17 在特定时间创建文件 13-17 当某个特定事件发生时创建文件 13-18 从不创建新文件 13-19 ...
  • PROJECT 2007宝典 9/9

    2012-04-01 19:13:00
     3.7.1 保存文件   3.7.2 将文件保存为模板   3.7.3 保护文件   3.7.4 关闭Project   3.8 在工作中使用项目大纲   3.8.1 在大纲中调整任务   3.8.2 复制任务   3.8.3 显示和隐藏任务   3.9...
  • PROJECT 2007宝典 8/9

    2012-04-01 19:11:45
     3.7.1 保存文件   3.7.2 将文件保存为模板   3.7.3 保护文件   3.7.4 关闭Project   3.8 在工作中使用项目大纲   3.8.1 在大纲中调整任务   3.8.2 复制任务   3.8.3 显示和隐藏任务   3.9...
  • PROJECT 2007宝典 7/9

    2012-04-01 19:08:40
     3.7.1 保存文件   3.7.2 将文件保存为模板   3.7.3 保护文件   3.7.4 关闭Project   3.8 在工作中使用项目大纲   3.8.1 在大纲中调整任务   3.8.2 复制任务   3.8.3 显示和隐藏任务   3.9...
  • PROJECT 2007宝典 6/9

    2012-04-01 19:05:22
     3.7.1 保存文件   3.7.2 将文件保存为模板   3.7.3 保护文件   3.7.4 关闭Project   3.8 在工作中使用项目大纲   3.8.1 在大纲中调整任务   3.8.2 复制任务   3.8.3 显示和隐藏任务   3.9...
  • PROJECT 2007宝典 5/9

    2012-04-01 19:02:17
     3.7.1 保存文件   3.7.2 将文件保存为模板   3.7.3 保护文件   3.7.4 关闭Project   3.8 在工作中使用项目大纲   3.8.1 在大纲中调整任务   3.8.2 复制任务   3.8.3 显示和隐藏任务   3.9...
  • PROJECT 2007宝典 4/9

    2012-04-01 18:59:17
     3.7.1 保存文件   3.7.2 将文件保存为模板   3.7.3 保护文件   3.7.4 关闭Project   3.8 在工作中使用项目大纲   3.8.1 在大纲中调整任务   3.8.2 复制任务   3.8.3 显示和隐藏任务   3.9...
  • PROJECT 2007宝典 3/9

    2012-04-01 18:56:06
     3.7.1 保存文件   3.7.2 将文件保存为模板   3.7.3 保护文件   3.7.4 关闭Project   3.8 在工作中使用项目大纲   3.8.1 在大纲中调整任务   3.8.2 复制任务   3.8.3 显示和隐藏任务   3.9...
  • PROJECT 2007宝典 2/9

    2012-04-01 18:53:07
     3.7.1 保存文件   3.7.2 将文件保存为模板   3.7.3 保护文件   3.7.4 关闭Project   3.8 在工作中使用项目大纲   3.8.1 在大纲中调整任务   3.8.2 复制任务   3.8.3 显示和隐藏任务   3.9...

空空如也

空空如也

1 2
收藏数 36
精华内容 14
关键字:

vba保存文件到指定路径