VBA常用技巧代码解析

fdcxmb

有了老师的教材，一定要好好学习下，目录上要是能增加个链接就好了。

[ 本帖最后由 fdcxmb 于 2009-6-7 14:03 编辑 ]

rover18

终于跟上袁版的步伐了，嘿嘿

yuanzhuping

原帖由 lbl016 于 2009-6-7 10:15 发表
yuanzhuping 版主，请告诉我你的邮箱好吗？我的附件太大（8M），无法在论坛中上传呀

我的邮箱yuanzhuping@yeah.net
这么大的文件，运行速度很可能会很慢，具体问题具体对待，比如有大量的公式。
附件可以分卷压缩后上传。

[ 本帖最后由 yuanzhuping 于 2009-6-7 21:37 编辑 ]

yuanzhuping

原帖由 fdcxmb 于 2009-6-7 14:00 发表
有了老师的教材，一定要好好学习下，目录上要是能增加个链接就好了。

目录上有链接的，直到该楼层，单击下试试。

[ 本帖最后由 yuanzhuping 于 2009-6-7 21:38 编辑 ]

lbl016

原帖由 yuanzhuping 于 2009-6-7 21:35 发表

我的邮箱yuanzhuping@yeah.net
这么大的文件，运行速度很可能会很慢，具体问题具体对待，比如有大量的公式。
附件可以分卷压缩后上传。

我已经把附件发到你邮箱了，

[ 本帖最后由 lbl016 于 2009-6-7 21:54 编辑 ]

yuanzhuping

原帖由 lbl016 于 2009-6-7 21:44 发表

我已经把附件发到你邮箱了，

请查收你的邮件。

lbl016

yuanzhuping 版主:如果这样修改后，速度是快了，就是无法复制和粘贴了

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i%, j%, n% Application.Calculation = xlManual '将工作簿设置为手动计算 Sheet15.Calculate '将县城工作表设置为重新计算 '原来的代码 Application.Calculation = xlAutomatic ''将工作簿设置为自动计算 End Sub

yuanzhuping

技巧177         复制指定的文件
       如果需要把文件从一个地方复制到另一个地方，可以使用FileCopy语句复制文件，如下面的代码所示。

1. #001  Sub CopyFile()
   
2. #002      Dim SourceFile As String
   
3. #003      Dim DestinationFile As String
   
4. #004      SourceFile = ThisWorkbook.Path & "\123.xls"
   
5. #005      DestinationFile = ThisWorkbook.Path & "\ABC\abc.xls"
   
6. #006      FileCopy SourceFile, DestinationFile
   
7. #007  End Sub

复制代码

代码解析：
       CopyFile过程使用FileCopy语句将示例文件所在文件夹中的“123.xls”Excel文件复制到示例文件目录下的“ABC”文件夹中并重新命名为“abc.xls”。
       FileCopy语句复制一个文件，语法如下：
       FileCopy source, destination
       Source参数是必需的，字符串表达式，用来表示要被复制的文件名。source参数可以包含目录或文件夹、以及驱动器。
       destination参数是必需的，字符串表达式，用来指定要复制的目地文件名。destination参数 可以包含目录或文件夹、以及驱动器。
       注意 不能对一个已打开的文件使用 FileCopy 语句，否则会产生错误。
       第4行代码指定被复制的文件名称和路径。
       第5行代码指定目的文件名称和路径，如果已存在相同名称的文件则会覆盖原文件。
       第6行代码使用FileCopy语句复制文件。

lbl016

yuanzhuping 版主,得到你的指点，我的问题已经解决了，真诚感谢了

nijinchuan

感动啊 谢谢了