受保护的视图怎么解除

hhxq001

想将一个工作表A用宏代码导入到另一个工作簿B中，结果不成功。打开A表时，提示“受保护的视图”，只能点击“仍然编辑”，然后保存一下才能再次导入。

问一下群里的高手，有没有办法导入的时候就解除这个限制呢？





我的代码是这样的
Sub 导入工资()
    Set sh = ActiveSheet
     With Workbooks.Open(myPath)
    .Sheets(1).UsedRange.Offset(1).Copy sh.[b2]
    .Close False
    End With
    End Sub
导入不成功.zip (22.82 KB, 下载次数: 0)

2021-10-12 14:47 上传

点击文件名下载附件

hhxq001

在网上搜到这段，但不会添加
Dim oWB As Workbook
    Dim oPV As ProtectedViewWindow
    Set oPV = Excel.Application.ActiveProtectedViewWindow
    If oPV Is Nothing Then
    Else
        '如果是受保护视图,则允许编辑
        With oPV
            Set oWB = .Edit
        End With
    End If

心正意诚身修

在文件 。选项。安全性那里。你去设置一下看看呢。

hhxq001

心正意诚身修 发表于 2021-10-8 17:23
在文件 。选项。安全性那里。你去设置一下看看呢。

要代码修改的，因为文件很多，每次修改麻烦的很呢

hhxq001

在网上搜到一段可以避过受保护视图限制的代码，但只能导入前2列，讨教怎么纠正呢

导入不成功.zip (23.41 KB, 下载次数: 0)

2021-10-12 14:52 上传

点击文件名下载附件
Sub 导入某月表()
Dim conn As Object
Dim sql As String
Set conn = CreateObject("adodb.connection")
    With Application.FileDialog(msoFileDialogFilePicker) '运行后出现标准的选择文件夹对话框

      If .Show Then fn = .SelectedItems(1) Else Exit Sub '如选中则返回=-1 / 取消未选则返回=0
    End With

conn.Open "provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=No';data source=" & fn

sql = "select f1,f2 from [综合所得申报税款计算$]"

Cells(2, 2).CopyFromRecordset conn.Execute(sql)
Set conn = Nothing
End Sub

hhxq001

改成这句，可以提取所有数据了，但是表头列只能提取前7列表头，其余列表头为空白，不知为何

sql = "select * from [综合所得申报税款计算$]"

roserice

启用编辑,用microsoft query直接导入,不用代码

hhxq001

roserice 发表于 2021-10-9 22:19
启用编辑,用microsoft query直接导入,不用代码

大侠如果有时间，可以给搞一下吗

roserice

hhxq001 发表于 2021-10-10 06:35
大侠如果有时间，可以给搞一下吗

不用打开A表，在数据选项卡里面，选择其他数据源，microsoft query,按提示做就可以了

hhxq001

roserice 发表于 2021-10-10 07:31
不用打开A表，在数据选项卡里面，选择其他数据源，microsoft query,按提示做就可以了

按你的方法，找不到xecel文件啊