VBA-script åbner automatisk en tom workbook

Hvordan ser koden ud?

Set objExcel = New Excel.Application


    With objExcel.FileDialog(msoFileDialogFolderPicker)
        .Title = "Select script-folder"
        .ButtonName = "Select"
        .Show
        If .SelectedItems.Count > 0 Then
            sFoldername = .SelectedItems(1)
        End If
    End With
   
    If Len(sFoldername) > 0 Then
        Set fso = CreateObject("Scripting.FileSystemObject")
        i = 1
        Set folder = fso.GetFolder(sFoldername)
        Set Files = folder.Files
        For Each folderidx In Files
            sFilename = folderidx.Name
            If UCase(Right(sFilename, 3)) = "BAT" Then
                asFilename = Split(sFilename, ".")
                Set f = fso.opentextfile(folder.Path & "\" & sFilename)
                While f.AtEndOfStream <> True
                    s = f.readline
                    s = Replace(s, "net use ", "", compare:=vbTextCompare)
                    ss = Split(s, "\\")
                    If UBound(ss) > 0 Then
                        If Len(asFilename(0)) > 0 Then
                            ActiveSheet.Cells(i, 1).Value = asFilename(0)
                            ActiveSheet.Cells(i, 2).Value = ss(0)
                            ActiveSheet.Cells(i, 3).Value = "\\" & ss(1)
                        End If
                    End If
                    i = i + 1
                Wend
            End If
        Next
  End If

- erklæringer af objecter og variabler er skraldet fra....men den virker !

Har ændret lidt på den indledende kode, for overhovedet at kunne steppe ind i programmet.

Så vidt jeg kan se ligger problemet her - da det er her det aktive regneark udfyldes - d.v.s. at linierne i .BAT-filen ikke opfylder betingelserne:

    If UBound(ss) > 0 Then
        If Len(asFilename(0)) > 0 Then
            ActiveSheet.Cells(i, 1).Value = asFilename(0)
            ActiveSheet.Cells(i, 2).Value = ss(0)
            ActiveSheet.Cells(i, 3).Value = "\\" & ss(1)
        End If


Min Test-version

Sub test1()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)

    Dim vrtSelectedItem As Variant

    With fd
        .Title = "Select script-folder"
        .ButtonName = "Select"
        .Show
        If .SelectedItems.Count > 0 Then
            sFoldername = .SelectedItems(1)
        End If
   
    End With

   
    If Len(sFoldername) > 0 Then
        Set fso = CreateObject("Scripting.FileSystemObject")
        i = 1
        Set folder = fso.GetFolder(sFoldername)
        Set Files = folder.Files
        For Each folderidx In Files
            sFilename = folderidx.Name
            If UCase(Right(sFilename, 3)) = "BAT" Then
                asFilename = Split(sFilename, ".")
                Set f = fso.opentextfile(folder.Path & "\" & sFilename)
                While f.AtEndOfStream <> True
                    s = f.readline
                    s = Replace(s, "net use ", "", compare:=vbTextCompare)
                    ss = Split(s, "\\")
                    If UBound(ss) > 0 Then
                        If Len(asFilename(0)) > 0 Then
                            ActiveSheet.Cells(i, 1).Value = asFilename(0)
                            ActiveSheet.Cells(i, 2).Value = ss(0)
                            ActiveSheet.Cells(i, 3).Value = "\\" & ss(1)
                        End If
                    End If
                    i = i + 1
                Wend
            End If
        Next
  End If

End Sub