夸工作簿复制另一个工作簿数据

忘情的城市

求老师帮忙
WPS能运行，EXCEL2007运行报错
WIN7专业版，EXCEL2007 ，检查没问题



奇怪的是下面的代码在WPS运行无问题，在EXCEL2007运行报错，代码如下

Sub B复制x月x日保户数字表到保户数字()
    Dim i%, arr, brr()
    With Sheets("汇总")
        dt = .[f5].Value
    End With
        dtt = Format(dt, "m月d日")
    ReDim arr1(1 To 3, 1 To 1)
    Application.DisplayAlerts = False
        With Workbooks.Open(ThisWorkbook.Path & "\" & dtt & "保户数字.xlsx")
            Sheets("Sheet1").Select '选择表1
            Range("A1:Q200").Select '选定要拷贝的范围
        Selection.Copy '准备拷贝
        End With
        Application.DisplayAlerts = True
    With ThisWorkbook.Sheets("保户数字a").Select '选择表2
        Range("A1:Q200").Select '选择范围
        ActiveSheet.Paste '执行拷贝
    End With

    Worksheets("保户数字a").Range("F:I").EntireColumn.Hidden = True  '隐藏指定列
    Worksheets("保户数字a").Range("K:O").EntireColumn.Hidden = True
End Sub

这句报错  With ThisWorkbook.Sheets("保户数字a").Select '选择表2

求解决方法
.

liulang0808

With ThisWorkbook.Sheets("保户数字a").Select '选择表2
        Range("A1:Q200").Select '选择范围
        ActiveSheet.Paste '执行拷贝
    End With

with 语句部分都取消
如果还报错，就先激活thisworkbook，ran选择表格

忘情的城市

liulang0808 发表于 2022-1-12 08:26
With ThisWorkbook.Sheets("保户数字a").Select '选择表2
        Range("A1:Q200").Select '选择范围
   ...

现在才发现这个帖子，还是搜索出来的，老师回复也没提醒
刘老师您好，with 相关取消还是报错，尝试激活thisworkbook 不得其法，不是保存就是缺少函数和变量各种错误，求老师指点

liulang0808

        With Workbooks.Open(ThisWorkbook.Path & "\" & dtt & "保户数字.xlsx")
            Sheets("Sheet1").Select '选择表1
            Range("A1:Q200").Select '选定要拷贝的范围
        Selection.Copy '准备拷贝
        End With
        Application.DisplayAlerts = True
    With ThisWorkbook.Sheets("保户数字a").Select '选择表2
        Range("A1:Q200").Select '选择范围
        ActiveSheet.Paste '执行拷贝
    End With

这段改成下面的看下



        With Workbooks.Open(ThisWorkbook.Path & "\" & dtt & "保户数字.xlsx")
            .Sheets("Sheet1").Range("A1:Q200").Copy ThisWorkbook.Sheets("保户数字a").Range("A1:Q200")
        End With
        Application.DisplayAlerts = True

忘情的城市

liulang0808 发表于 2022-1-17 22:04
With Workbooks.Open(ThisWorkbook.Path & "\" & dtt & "保户数字.xlsx")
            Sheets("Sh ...

感谢刘老师的指点，测试几遍非常有效。
老师我还遇到一个奇怪的事，这段代码下面加 MsgBox ("第2步：以完成！") 就不出错，能运行。
我的另一个宏添加下面的任意一个红色的代码就出错，EXCEL卡死，请问怎么解决，主要是运行按钮后有个提示
注：刚才发现问题，用.xls格式宏执行不出错，.xlsm格式运行 MsgBox ("第1步：清除数据以完成！")  就卡死

Sub 清除数据11()
    'Application.EnableEvents = False
    Worksheets("保户通报a").Range("G3:I30").ClearContents   '清除G3:I30列内容,保留K3:M3公式
    Worksheets("保户通报a").Range("K4:M30").ClearContents   
    Worksheets("保户数字a").Range("A1:Q200").Clear    '彻底清除指定单元格区域
    Worksheets("保户10M缴纳1").Range("A:C").Clear
    'MsgBox ("第1步：清除数据以完成！")
End Sub

忘情的城市

liulang0808 发表于 2022-1-17 22:04
With Workbooks.Open(ThisWorkbook.Path & "\" & dtt & "保户数字.xlsx")
            Sheets("Sh ...

老师，请问引用数据的表 不自动关闭加什么句子

liulang0808

忘情的城市 发表于 2022-1-17 23:21
老师，请问引用数据的表 不自动关闭加什么句子

M没有看明白是什么意思，什么表不自动关闭？？

忘情的城市

liulang0808 发表于 2022-1-18 07:50
M没有看明白是什么意思，什么表不自动关闭？？

        With Workbooks.Open(ThisWorkbook.Path & "\" & dtt & "保户数字.xlsx")
            .Sheets("Sheet1").Range("A1:Q200").Copy ThisWorkbook.Sheets("保户数字a").Range("A1:Q200")
        End With
        Application.DisplayAlerts = True

老师你好，上面代码是工作簿A .xlsm - 汇总表 执行，复制工作簿 XXXXX保户数字.xlsx - Sheet1表 信息。
执行后，桌面显示的是 保户数字.xlsx 表


目的：执行后桌面视野 在工作簿A .xlsm - 汇总表 ，并且引用的表（保户数字.xlsx）是关闭状态

忘情的城市

liulang0808 发表于 2022-1-18 07:50
M没有看明白是什么意思，什么表不自动关闭？？

        With Workbooks.Open(ThisWorkbook.Path & "\" & dtt & "保户数字.xlsx")
            .Sheets("Sheet1").Range("A1:Q200").Copy ThisWorkbook.Sheets("保户数字a").Range("A1:Q200")
        .Close
        End With
        Application.DisplayAlerts = True

终于找到方法了，就是在中间加一句 .Close  引用的工作簿不打开