帮我看下怎么改

shenzhenyang

perfect131 发表于 2021-5-12 23:03
哈哈，原来你把值写在了 j1,
把所有 ThisWorkbook 换为 Excel.ThisWorkbook
把 For Ea ...

谢谢，这么晚了还帮我弄好

shenzhenyang

perfect131 发表于 2021-5-12 23:03
哈哈，原来你把值写在了 j1,
把所有 ThisWorkbook 换为 Excel.ThisWorkbook
把 For Ea ...

我再请教你下，我导出的三张表后，还要加个动作清除J1：M2的数据区域， wk.Sheets(Array(arr(1), arr(2), arr(3))).Copy
    For Each sht In ActiveWorkbook.Worksheets

        With sht.UsedRange
            .Value = .Value
        End With
        For Each shp In sht.Shapes
            shp.Delete
             Range("J1:M2") = ""     我在这里加了这个只会清除第一张表，其他2张不会，麻烦帮我加下这个，谢谢

perfect131

shenzhenyang 发表于 2021-5-13 13:54
我再请教你下，我导出的三张表后，还要加个动作清除J1：M2的数据区域， wk.Sheets(Array(arr(1), arr(2), ...

不是 Range("J1:M2") = ""
应该是 sht.Range("J1:M2") = ""

shenzhenyang

perfect131 发表于 2021-5-13 16:37
不是 Range("J1:M2") = ""
应该是 sht.Range("J1:M2") = ""

可以了，谢谢

shenzhenyang

perfect131 发表于 2021-5-13 16:37
不是 Range("J1:M2") = ""
应该是 sht.Range("J1:M2") = ""

请问下，导出来的文件，如果有重名能不能弹出提示，是否覆盖保存

shenzhenyang

perfect131 发表于 2021-5-13 16:37
不是 Range("J1:M2") = ""
应该是 sht.Range("J1:M2") = ""

现在，发现，保存如果有重复名字，变成复制三份新的表，同时把我原来工作薄的全部控件都删除，帮我修改下吧，谢谢你

perfect131

shenzhenyang 发表于 2021-5-13 17:50
请问下，导出来的文件，如果有重名能不能弹出提示，是否覆盖保存

把这两个语句注释或者删掉就会弹出提示
Application.ScreenUpdating = false
Application.ScreenUpdating = True

shenzhenyang

perfect131 发表于 2021-5-14 10:04
把这两个语句注释或者删掉就会弹出提示
Application.ScreenUpdating = false
Application.ScreenUpd ...

Dim arr(1 To 10)    请问下代码中的这个1to10 是代表什么意思

shenzhenyang

perfect131 发表于 2021-5-14 10:04
把这两个语句注释或者删掉就会弹出提示
Application.ScreenUpdating = false
Application.ScreenUpd ...

现在导出3个表保存一份新文件后，我打开这个表随便单元格填写内容，保存后。
再次重新导出表，名字重复就会把我原来的工作薄全部控件删除。

perfect131

shenzhenyang 发表于 2021-5-14 16:29
Dim arr(1 To 10)    请问下代码中的这个1to10 是代表什么意思

Dim arr(1 To 10) 一维静态数组，里面有10行数据，行号1~10
“名字重复就会把我原来的工作薄全部控件删除” 不太理解