窗体单击按钮打开文件并复制其他工作簿的全部表

tonghau

在表1窗体界面单击打开并导入按钮，打开文件选择框，选择打开文件（表2），并将表2中的所有表分别复制移动到表1“首页”后面，代码老是报错，各位大神帮忙看看是什么问题？

3190496160

Private Sub 打开并导入_Click()
Application.ScreenUpdating = False
Dim f As FileDialog
Dim filename$
Dim i
Set ww = ThisWorkbook
Application.DisplayAlerts = False
For Each sht In Worksheets
    If sht.Index > 1 Then
        sht.Delete
    End If
Next sht
Application.DisplayAlerts = True
Set f = Application.FileDialog(msoFileDialogOpen)
With f
    .InitialFileName = ""
    .Show
    Set wb = Workbooks.Open(.SelectedItems(1))
    For Each sh In wb.Worksheets
        sh.Copy after:=ww.Worksheets(ww.Worksheets.Count)
    Next sh
    wb.Close False
End With
Application.ScreenUpdating = True
End
End Sub

3190496160

3190496160

窗体.rar (24.87 KB, 下载次数: 13)

2023-6-1 14:52 上传

点击文件名下载附件

gwjkkkkk

参与一下。。。

tonghau

3190496160 发表于 2023-6-1 14:52

老师，我还想问下，打开excel的时候是只显示窗体不显示工作表的，但是点击按钮后窗体就消失了，工作表显示，可以一直只显示窗体不显示工作表吗？

我是在thisworkbook添加
Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub