[已解决]循环语句总是出错！提示“运行时错误380”！请帮忙看看！

zwe45

先谢谢诸位前辈
这个按钮主要作用是将llistview1控件中的数据导出到在选择的路径下生成的新工作簿中，就是不知道为何一运行就出错！

最佳答案

月排行榜 / 总排行榜

雪舞子

2017-6-21 10:43

列值超限，相关循环代码修改如下：

1. For j = 1 To .ColumnHeaders.Count - 1

复制代码

跳转到最佳答案楼层

zwe45

zwe45

就是那个“生成报表”的按钮

zwe45

自己顶一下吧!

zhxl0562

我本想看看  但我只有2003版本  以上的我打不开

zwe45

zhxl0562 发表于 2017-6-19 12:48
我本想看看  但我只有2003版本  以上的我打不开

先谢谢您回复
下面就是源码
这个按钮的作用挺简单，就是将窗体中llistview1控件中的数据导出，选择的路径后生成的新工作簿中的sheet1，就是不知道为何一运行就出错！
下面是源代码，您过过目

Private Sub CommandButton9_Click()
'On Error Resume Next
Dim Filename As Variant
Dim wk As Workbook
Dim sh As Worksheet
Dim i As Long
Dim j As Long
Dim ofilename
Dim dpath As String
    'Application.ScreenUpdating = False
    Application.EnableCancelKey = xlDisabled '禁止Ctrl+Break该事件的发生
    Filename = Application.GetSaveAsFilename(FileFilter:="Excel 工作簿文件 (*.xls),*.xls", Title:="请输入文件名")
    If Filename <> False Then
       For Each wk In Workbooks
        If wk.Name = Right(Filename, Len(wk.Name)) Then MsgBox "对不起,请不要与正在打开的文件同名！", 6 + 64, "注意：": Exit Sub
       Next

       If Dir(Filename) <> "" Then
             If MsgBox("你所添加的文件已存在,是否更新？", 64 + vbYesNo, "提醒：") = vbNo Then Exit Sub
          End If
       Set wk = Workbooks.Add

        Application.DisplayAlerts = False
        wk.SaveAs Filename
        Set sh = wk.Sheets(1)
          With ListView1
                  For i = 1 To .ColumnHeaders.Count
                     sh.Cells(1, i) = .ColumnHeaders.Item(i) '将栏目头内容写入生成的工作表
                  Next i
                  For i = 1 To .ListItems.Count
                    sh.Cells(i + 1, 1) = .ListItems(i).Text '将控件内数据第一列写入工作表
                  Next i
                  For i = 1 To .ListItems.Count
                      For j = 1 To .ColumnHeaders.Count
                      sh.Cells(i + 1, j + 1) = .ListItems(i).SubItems(j) '将余下的控件数据写入工作表
                      Next j
                  Next i
           End With
         wk.Save
         wk.Close
         Set sh = Nothing: Set wk = Nothing
         Unload UserForm1
        End If
End Sub

zwe45

zhxl0562 发表于 2017-6-19 12:48
我本想看看  但我只有2003版本  以上的我打不开

我给转存称excel97-2003格式了，您应该可以打开了。

zwe45

顶一下吧！

zwe45

自己顶一下！！！

zhxl0562

引用里面这个丢失
Microsoft Windows Common Controls 6.0 (SP6)