Skript zu finden, die Anzahl der Zeilen in excel unter einem bestimmten Ordner mit vb

Ich brauche, um herauszufinden, die Anzahl von Zeilen in jeder excel-Blätter in einem Ordner .Google-Suche zeigt, dass das Skript unten funktioniert..aber mit sehr wenig wissen über vb ,ich konnte nicht, es zu lösen.Das Skript containe "Wscript Objekt.Ich denke, das funktioniert mit der sich dieses Objekt als gut

Die Sache ist unter "c:\temp" ich habe 100 excel-Arbeitsblätter(.xls). Brauchen, um herauszufinden, die Anzahl von Zeilen in jeder Datei. Hilfe benötigt von vb-Experten

 Dim objFSO, strFolder, objFolder, objFile, objExcel, objSheet, objRange, objRows As Object

        Dim strExtension As String
        Dim V_FilePath As String = " "

        ' Specify folder.
        strFolder = "c:\\temp"    -----

        objExcel = CreateObject("Excel.Application")

        ' Enumerate files in the folder.
        objFSO = CreateObject("Scripting.FileSystemObject")
        objFolder = objFSO.GetFolder(strFolder)

        For Each objFile In objFolder.Files
            ' Select only Excel spreadsheet file.
            strExtension = objFSO.GetExtensionName(objFile.Path)

            If (strExtension = "xls") Or (strExtension = "xlsx") Then
                ' Open each spreadsheet and count the number of rows.
                objExcel.Workbooks.Open(objFile.Path)
                objSheet = objExcel.ActiveWorkbook.Worksheets(1)
                objRange = objSheet.UsedRange
                objRows = objRange.Rows

      ' Display spreadsheet name and the number of rows.

                MsgBox(objExcel.ActiveWorkbook + CStr(objRows.Count))
                ''Wscript.Echo(objFile.Path & " (" & objRows.Count & ")")

 ' Close the spreadsheet.

                objExcel.ActiveWorkbook.Close()
            End If

        Next

        ' Clean up.
        objExcel.Application.Quit()

        Dts.TaskResult = ScriptResults.Success
    End Sub

haben Sie versucht das? welche Fehler sind Sie immer ?
Das ist eine Arbeit.in dem Sinne bin ich immer die coounts. aber ich muss jede Datei Namen und so zählen, wie bekomme ich diese details

InformationsquelleAutor user1254579 | 2013-08-05

Wenn Sie tun dies in VBA in ein Excel-Makro, vielleicht ist das etwas besser:

Sub LoopThroughFiles()
    Dim strFile As String
    Dim strPath As String
    Dim colFiles As New Collection
    Dim i As Integer
    Dim rowCount As Integer

    strPath = "C:\Users\[windows_username]\Documents\" 'Your path here
    strFile = Dir(strPath)

    While strFile <> ""
        colFiles.Add strFile
        strFile = Dir
    Wend

    'List filenames in Column A of the active sheet
    If colFiles.Count > 0 Then
        For i = 1 To colFiles.Count
            ActiveSheet.Cells(i, 1).Value = colFiles(i)

            Workbooks.Open strPath & colFiles(i)
            rowCount = ActiveSheet.UsedRange.Rows.Count
            Workbooks(colFiles(i)).Close
            'Workbooks.Close
            'ThisWorkbook.Close
            ActiveSheet.Cells(i, 2).Value = rowCount


        Next i
    End If

End Sub

InformationsquelleAutor the-nick-wilson

Stellen Sie sicher, dass die Deklaration der sub-routine an die Spitze mit "Sub _()". Auch gibt es ein paar Dinge, die ich glaube, sind syntaktisch falsch über diese. Versuchen Sie dies:

Sub blah()
Dim objFSO, strFolder, objFolder, objFile, objExcel, objSheet, objRange, objRows As Object

        Dim strExtension As String
        Dim V_FilePath As String

        V_FilePath = " "
        ' Specify folder.
        strFolder = "c:\\temp"

        objExcel = CreateObject("Excel.Application")

        ' Enumerate files in the folder.
        objFSO = CreateObject("Scripting.FileSystemObject")
        objFolder = objFSO.GetFolder(strFolder)

        For Each objFile In objFolder.Files
            ' Select only Excel spreadsheet file.
            strExtension = objFSO.GetExtensionName(objFile.Path)

            If (strExtension = "xls") Or (strExtension = "xlsx") Then
                ' Open each spreadsheet and count the number of rows.
                objExcel.Workbooks.Open (objFile.Path)
                objSheet = objExcel.ActiveWorkbook.Worksheets(1)
                objRange = objSheet.UsedRange
                objRows = objRange.Rows

      ' Display spreadsheet name and the number of rows.

                MsgBox (objExcel.ActiveWorkbook + CStr(objRows.Count))
                ''Wscript.Echo(objFile.Path & " (" & objRows.Count & ")")

 ' Close the spreadsheet.


            objExcel.ActiveWorkbook.Close

            End If

        Next

        ' Clean up.

        objExcel.Application.Quit

        Dts.TaskResult = ScriptResults.Success
    End Sub

ich habe eine errorError: System.Reflexion.TargetInvocationException: Ausnahme wurde ausgelöst durch das Ziel für einen Aufruf. ---> System.InvalidCastException: der Operator " + " ist nicht definiert für den Typ 'Arbeitsmappe' und " string "36". bei Microsoft.VisualBasic.
wenn ich Typ MsgBox ( CStr(objRows.Zählen) dann würde es auch funktionieren, aber ich muss wissen, den Namen der Datei und der entsprechenden Anzahl
Diese ehrlich gesagt nicht Aussehen wie VBA. Ich glaube nicht, dass Sie können verwenden Sie ein " + " - operator zu verketten, wie das in VBA.

InformationsquelleAutor the-nick-wilson

0

Dies funktionieren würde
MsgBox(objFile.name + CStr(objRows.Count))

InformationsquelleAutor user1254579

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.