求救,新手问题

Question

vba中怎么把A.xls文件里的Sheet1,拷贝到B.xls文件里名字改成Sheet10.

Answer 1

打开Excel，在菜单的"工具"->"宏"->"录制新宏"，然后开始对Excel操作，操作完了停止录制宏，在"宏"->"Visual Basic编辑器"->"模块"里的模块就有你录制的过程的代码

Answer 2

Sheets("sheet1").Select
    Sheets("sheet1").Move Before:=Workbooks("b.xls").Sheets(1)
    Windows("b.xls").Activate
    Sheets("sheet1 (2)").Select
    Sheets("sheet1 (2)").Name = "sheet10"

Answer 3

Workbooks(c:\a.xls).Sheets("shintyoku").Copy Before:=Workbooks("a:\b.xls").Sheets("1")这样写对不对?

Answer 4

VBA里这样写：
    Application.DisplayAlerts = False
    Workbooks.Open "C:\B.xls"
    Windows("A.xls").Activate
    Sheets("Sheet1").Copy Before:=Workbooks("B.xls").Sheets(1)
    Sheets("Sheet (2)").Select
    Sheets("Sheet (2)").Name = "Sheet10"

Answer 5

VB里这样写：Private Sub Command1_Click()    Dim xlApp As Object, xlbook As Object
    
    Set xlApp = CreateObject("excel.Application")
    xlApp.Visible = True
    
    Dim xlbook As Excel.Workbook '创建工作簿    
    Set xlbook = xlApp.Workbooks.Open("C:\A.xls") '打开Excel文件    xlApp.Workbooks.Open "C:\B.xls"
        
    xlApp.Windows("A.xls").Activate
    xlbook.Sheets("Sheet1").Select
    xlbook.Sheets("Sheet1").Copy Before:=xlApp.Workbooks("B.xls").Sheets(1)
    xlApp.Windows("B.xls").Activate
    xlApp.ActiveWorkbook.Sheets(1).Name = "Sheet10"
    
    Set xlbook = Nothing
    Set xlApp = Nothing
End Sub

Answer 6

完整代码，已经测试！呵呵
Option Explicit
     
      Dim Appxls As New Application
      Dim WorkBook As WorkBook
      Dim AppSheet As Worksheet
      Dim PathName As String
      
      
      
     
      Dim WorkBook1 As WorkBook
      Dim AppSheet1 As Worksheet
      Dim PathName1 As StringPrivate Sub Form_Load()
  Set Appxls = Excel.Application   PathName = "D:\10.xls"
   Set WorkBook = Appxls.Workbooks.Open(PathName)
   Set AppSheet = WorkBook.Worksheets("sheet1")
       AppSheet.Name = "sheet10"  ' 改名字
     PathName1 = "D:\11.xls"
   Set WorkBook1 = Appxls.Workbooks.Open(PathName1)
 AppSheet.Copy After:=WorkBook1.Worksheets(WorkBook1.Worksheets.Count)
 WorkBook1.Save
 AppSheet.Name = "sheet1"      '再改回来
 WorkBook.Save
 
 Set AppSheet = Nothing
 Set WorkBook1 = Nothing
 Set WorkBook = Nothing
 
 Appxls.Quit
 Set Appxls = Nothing
 
 
 
 
 
 
  End Sub

Answer 7

假如楼主说的是在不打开B.xls的情况下,那就...