这个代码怎么会提示：行时错误1004 运行时错误！？

hang006

Private Sub CommandButton2_Click()

Dim wkbk As Workbook

myfilename = Application.GetOpenFilename("EXCEL文件(*.csv), *.xlsx", MultiSelect:=True)

If IsArray(myfilename) Then



    Set wkbk = Workbooks.Open(myfilename(i))
    Columns("A:I").Select
    Selection.Copy
    Application.WindowState = xlNormal
    Windows("读取数据表格.xlsm").Activate
    Range("A1").Select
    ActiveSheet.Paste
    wkbk.Close False


    wkbk.Close False

    Windows("读取数据表格.xlsm").Activate
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    Range("B:C,F:H").Select

    Selection.Delete Shift:=xlToLeft


End If


End Sub

lsc900707

不是新人应该知道提问需要附上什么。

lsdongjh

Set wkbk = Workbooks.Open(myfilename(i))

这里需要索引值，但不能是想当然的放一个变量就成啊

abc123281

i在前期没有赋值  必然报错

wj2368

改为：Set wkbk = Workbooks.Open(myfilename(1))

hang006

wj2368 发表于 2019-3-20 10:03
改为：Set wkbk = Workbooks.Open(myfilename(1))

好的，我试试看看。谢谢您