带有可变工作簿名称的运行时错误9

时间:2018-08-14 16:58:17

标签: excel vba excel-vba runtime-error

因此,用户可以从另一个Excel文件中导入数据,并且一旦值复制到当前工作簿中后,我想关闭另一个Excel文件。但是,我无法让我的代码返回并选择另一个excel文件以再次将其关闭。

我已经检查过了,它只运行一个Excel实例。

Option Explicit
Private Sub Button_ImportSubmittedData_Click()
        Dim MyFile As String
        Dim tempDataSetName As String

        tempDataSetName = "Submitted Apps"

        MyFile = Application.GetOpenFilename("Excel Files,*.xlsx")
            Workbooks.OpenText Filename:=MyFile
            ActiveSheet.Range("A2").Select
            ActiveSheet.Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
            Selection.Copy
            Windows("HET.xlsm").Activate
            Sheets("Submitted").Select
            ActiveSheet.Range("A2").Select
            ActiveSheet.Paste
            Selection.Columns.AutoFit
            ActiveSheet.Range("A1").Select
            **Windows(MyFile).Activate**
            'Application.DisplayAlerts = False
            'ActiveWindow.Close
            'Windows("HET.xlsm").Activate
            'ActiveSheet.Range("A1").Select
    End Sub

0 个答案:

没有答案