VB应用研究(2)

来源：互联网发布：手机淘宝如何追加评论编辑：程序博客网时间：2024/04/28 01:05

Dim str As String
Dim sPath As String

Sub MaSub()
    str = Range("A1").Value
    Range("A1").Select
    ActiveCell.FormulaR1C1 = str
    Windows("1dd.xls").Activate
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown
    Range("A1").Select
    ActiveCell.FormulaR1C1 = str
    Workbooks.Add
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = str
    Range("A2").Select
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.path & "/" & str & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    Windows("dsdfds.xls").Activate
    Sheets("Sheet2").Select
    Cells.Select
    Selection.Copy
    Windows(str & ".xls").Activate
    Cells.Select
    ActiveSheet.Paste
    Range("A1").Select
    Range("A1").Value = str
    Windows("dd.xls").Activate
    Application.CutCopyMode = False
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=str & ".xls", _
        SubAddress:="'" & str & "'!A1", TextToDisplay:=str
    Windows(str & ".xls").Activate
    ActiveWorkbook.Save
    Windows("1dd.xls").Activate
    ActiveWorkbook.Save
End Sub