Clearing Immediate Window

[Paul Sansom]

Hi
Any guidance on why Line 1 (Application.) works when used in isolation but not in my test sub.
Objective - Clear the Immediate window each time i run test during development?
Cheers Paul

Sub Test()
    Application.SendKeys "^g ^a {DEL}"
       
    Dim fDialog As FileDialog, result As Integer
    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
    
    'IMPORTANT!
        fDialog.AllowMultiSelect = True
     
    'Optional FileDialog properties
        fDialog.Title = "Select a file"
        fDialog.InitialFileName = "C:\Users\Paul\Pictures\Captures"
    
    'Optional: Add filters
        fDialog.Filters.Clear
        'fDialog.Filters.Add "Excel files", "*.xlsx"
        'fDialog.Filters.Add "All files", "*.*"
     
    'Show the dialog. -1 means success!
    If fDialog.Show = -1 Then
        For Each file In fDialog.SelectedItems
            fn = fn + 1
            fn = Format(fn, "0000")
            extFind = Right$(file, Len(file) - InStrRev(file, "."))
            filesavename = Sheet9.Range("N64") & fn & " ." & extFind
            'Debug.Print file
            Debug.Print filesavename
        Next file
    End If
End Sub

 

[Kenneth Hobson]

Rather than SendKeys(), maybe overwriting it would suffice?

Debug.Print String(200, Chr(10))

 

[Rick Rothstein]

Hi
Any guidance on why Line 1 (Application.) works when used in isolation but not in my test sub.

Sub Test()
    Application.SendKeys "^g ^a {DEL}"
    ......
    ......

When used in isolation, meaning inside the VB editor, the VB editor window is the active window... when running your macro, it, not the VB editor window, is the active window. SendKeys sends its output to the active window. What Kenneth posted is a possible work-around, but note that it does not "clear" the Immediate Window, rather, it fills it with Line Feeds meaning the Immediate Window has 200 blank lines in it afterwards (scroll and click around the different rows after running his code to see what I mean).

 

[Paul Sansom]

Hi Rob & Rick
Yes that sort of works. It does overwrite with blank lines, but i have to scroll down each time to find the new file names.
Not quite as clean as clearing the window on each test run
Paul