高人、隐士、过客、看官-您会怎么改？

zhangjianiam

科技时代，我们成了电脑族，为减轻工作压力和负担，VBA我喜欢！
各位看官、过客、高人、隐士，看看下面这两段代码，您会怎么改？为什么
Sub 数据上报()
    Sheets("花名册").Select
     Range("A5:BH65530").Select
      Selection.Copy
    Dim wkbk As Workbook
    Dim myFileName As String
    myFileName = Application.GetOpenFilename("EXCEL文件(*.xlsm), *.xlsm")
    If myFileName = "False" Then
        MsgBox "请选择文件!", vbInformation, "取消"
    Else
    Set wkbk = Workbooks.Open(myFileName)
      Sheets("总花名册").Select
      Range("A5").Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A5").Select
    MsgBox "文件上报成功，请保存该文件！"
    End If
    ActiveWorkbook.Save
End Sub


Sub 数据接收()
    Dim wkbk As Workbook
    Dim myFileName As String
    myFileName = Application.GetOpenFilename("EXCEL文件(*.xlsm), *.xlsm")
    If myFileName = "False" Then
        MsgBox "请选择文件!", vbInformation, "取消"
    Else
    Set wkbk = Workbooks.Open(myFileName)
      Sheets("总花名册").Select
      Range("A5:BH65530").Select
      Selection.Copy
      Windows("总花名册附表-xls版.xlsm").Activate
      Sheets("花名册").Select
      Range("A5").Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A5").Select
    MsgBox "文件导入成功，请保存该文件！"
    End If
    ActiveWorkbook.Save
End Sub

doitbest

Range("A5:BH65530").Select
改成   Range("A5:BH" & activesheet.usedrange.rows.count).Select

zhangjianiam

doitbest真是高人哦，学习了！

旭日升

将所有的.SELECT，SELECTION全部删除，直接相连
比如：
    Range("A5:BH65530").Select
      Selection.Copy
改为：
Range("A5:BH65530").COPY
上面那种是录制宏无法避免的，所以录制后必须要手动修改，当然也可以不改，不影响结果。

zhangjianiam

听君一言，少走弯路。旭日升的建议很不错，采纳了，谢谢！

zhangjianiam

原帖由 doitbest 于 2011-5-24 17:23 发表
Range("A5:BH65530").Select
改成   Range("A5:BH" & activesheet.usedrange.rows.count).Select

该代码后用了用，效果还可以，但不知道为什么，有时候所提取的信息要出错。

zhangjianiam

原帖由 旭日升 于 2011-5-24 23:48 发表
将所有的.SELECT，SELECTION全部删除，直接相连
比如：
    Range("A5:BH65530").Select
      Selection.Copy
改为：
Range("A5:BH65530").COPY
上面那种是录制宏无法避免的，所以录制后必须要手动修改，当然 ...

修改后没问题了，比较实用。学习了

doitbest

录制宏的缺点很多,即使可用,为了速度和通用性也要进行改造