2

我正在将工作簿中的特定工作表导入我正在使用的当前工作簿中。通过在再次导入之前删除当前工作表，导入可以连续正常工作。有一件小事需要解决。当我取消或退出GetOpenFilename应用程序时，它带有：

找不到 False.xlsx (...)

所以我补充说： 

filespec = Application.GetOpenFilename() 
If filespec = False Then Exit Sub

中Sub import_click()，但我不希望它两次向我索要文件。但是，如果我不包括filespec = Application.GetOpenFilename()它，它就不起作用。这是代码：

Sub import_click()
    filespec = Application.GetOpenFilename()

    If filespec = False Then Exit Sub

    Call deletedatasheet
    Call import

    MsgBox "Data imported", vbInformation

End Sub

Private Sub import()

Dim wsMaster As Worksheet
Dim rd As Range

Application.ScreenUpdating = False
Application.DisplayAlerts = False

    If wsMaster Is Nothing Then
        ThisWorkbook.Sheets.Add
        Set wsMaster = ActiveSheet
        Set rd = wsMaster.Range("A1")
        wsMaster.Name = "Reviewed"
        filespec = Application.GetOpenFilename()
        Set wb = Workbooks.Open(Filename:=filespec)
        Sheets("Reviewed").Activate
        Cells.Copy rd
        wb.Close
    End If

Application.ScreenUpdating = True
Application.DisplayAlerts = True


End Sub

Sub deletedatasheet()
    Dim ws As Worksheet

    Application.DisplayAlerts = False
    For Each ws In ThisWorkbook.Sheets
        If ws.Name = "Reviewed" Then
            ws.Delete
        End If
    Next
    Application.DisplayAlerts = True
End Sub

如何成功退出或取消GetOpenFilename申请，只要求一次文件？

4

1 回答 1

2

变量 filespec 必须是公开的，如果你想在另一个 sub 中使用它。在“Sub import_click()”之前添加此行：并在 Sub import 中Public filespec As Variant 删除/注释行filespec = Application.GetOpenFilename()

于 2015-10-23T10:02:32.200 回答