《版主帮帮我》使用宏将指定的数据导出

liwen

http://www.office-cn.net/forum.p ... uid=25550#pid377358

liwen

Sub Macro1()
    Workbooks.Open Filename:=ThisWorkbook.Path & "\test.xls"
    Windows("belluna.xls").Activate
    Range("A2:O" & Range("A65535").End(xlUp).Row).Copy
    Windows("test.xls").Activate
    Range("A" & (Range("A65535").End(xlUp).Row + 1)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.ActiveWorkbook.Close True
End Sub

liwen

ThisWorkbook.Path & "\test.xls" 改为固定路径。
Range("A2:O" & Range("A65535").End(xlUp).Row).Copy 改为：
Range("A2:O2").Copy

[:31]

liwen

Workbooks.Open Filename:= "f:\test.xls"