跨工作簿复制工作表，如何改代码？

=if

Sub 调取校准数据()
''  校准数据查找
    Application.Run "检定帮助.xls!Sheet6.CommandButton1_Click"
    Dim fname$, ar
    fname = InputBox("请输入校准文件名" & Chr(10) & Chr(10) & "比如: 2011-001", "提醒")
    Application.ScreenUpdating = False
    With GetObject("D:\校准数据excel\" & [AG4] & fname & ".xls")
        ar = .Sheets(1).[a1:t45]
        .Close False
    End With
    With Sheets("原始记录")
        .Cells.ClearContents
        .[a1:t45] = ar
    End With
    Application.ScreenUpdating = True
    ' 点击保存键
    ActiveWorkbook.Save
End Sub

以上代码是复制工作表部分[a1:t45]要求复制整张工作表（带格式），不复制工作表名

好奇心

试试:
Sub 调取校准数据()
''  校准数据查找
    Application.Run "检定帮助.xls!Sheet6.CommandButton1_Click"
    Dim fname$
    fname = InputBox("请输入校准文件名" & Chr(10) & Chr(10) & "比如: 2011-001", "提醒")
    Application.ScreenUpdating = False
    With GetObject("D:\校准数据excel\" & [AG4] & fname & ".xls")
       thisworkbook.Sheets("原始记录") .Cells.ClearContents
         .Sheets(1).cells.copy   thisworkbook.Sheets("原始记录").[a1]
        .Close False
    End With
    Application.ScreenUpdating = True
    ' 点击保存键
    ActiveWorkbook.Save
End Sub

wj2368

1. Sub 调取校准数据()
   
2. ''  校准数据查找
   
3.      Application.Run "检定帮助.xls!Sheet6.CommandButton1_Click"
   
4.      Dim fname$, ar
   
5.      fname = InputBox("请输入校准文件名" & Chr(10) & Chr(10) & "比如: 2011-001", "提醒")
   
6.      Application.ScreenUpdating = False
   
7.      With GetObject("D:\校准数据excel" & [AG4] & fname & ".xls")
   
8.          Sheets(1).cells.copy Sheets("原始记录").[a1]
   
9.          .Close False
   
10.      End With
    
11.      Application.ScreenUpdating = True
    
12.      ' 点击保存键
    
13.      ActiveWorkbook.Save
    
14. End Sub

复制代码

=if

wj2368 发表于 2012-5-19 09:49

没有复制到查到的2011-001 复制的是本工作簿的第一张工作表。老师

=if

谢谢！！2楼的同志

幽夜舞

楼主，传个具体文件上来，试下代码

=if

幽夜舞 发表于 2012-5-19 12:36
楼主，传个具体文件上来，试下代码

Sub 调取校准数据()
''  校准数据查找
    Dim fname$
    fname = InputBox("请输入校准文件名" & Chr(10) & Chr(10) & "比如: 2011-001", "提醒")
    Application.ScreenUpdating = False
    With GetObject("D:\"  & fname & ".xls")
       thisworkbook.Sheets("记录").Cells.ClearContents
         .Sheets(1).cells.copy   thisworkbook.Sheets("记录").[a1]
        .Close False
    End With
    Application.ScreenUpdating = True
    ' 点击保存键
    ActiveWorkbook.Save
End Sub
   你在电脑D盘放一个Excel文件，再在桌面新建一个文件，其中一个工作表名改为“记录”再运行代码输入文件名就能把D盘的那个文件的内容复制过来 查.rar (7.86 KB, 下载次数: 359)

2012-5-19 12:51 上传

点击文件名下载附件

幽夜舞

好的，我试下

幽夜舞

可以用{:soso_e182:}，谢谢{:soso_e163:}

=if

我跟你一样是菜鸟！！互相帮助
我没看你的东西，你改下代码应当不同电脑数据都能调！！