Windows(bestandsnaam_open).Activate

[wilbert1967]

hallo

in deze code vraag ik een bestandsnaam en nadat de inhoud is gekopieerd in een reeds openstaand excel bestand wil ik het geopende bestand sluiten

Windows(bestandsnaam_open).Activate
  Windows.Close

maar krijg foutmelding : Het subscript valt buiten het bereik


Hoe op te lossen?

Sub Bestand_openen()
  Dim bestandsnaam_open As String

  MsgBox ("Zoek het bestand op")
  With Application.FileDialog(msoFileDialogOpen)
   .InitialFileName = "o:\"
   .FilterIndex = 2
   .Show
   .Execute
  End With
  If ActiveWorkbook.Name <> ThisWorkbook.Name Then
    Application.Goto ActiveWorkbook.Sheets(1).Range("A1")
  End If
  
  bestandsnaam_open = ActiveWorkbook.Name
  
  'test
  
  Rows("1:2").Select
  Selection.Delete Shift:=xlUp
  Range("A1").Select
  Selection.End(xlToRight).Select
  Selection.End(xlDown).Select
  Range(Selection, Cells(1)).Select
  Selection.Copy
  Windows("Projectrapportage Trend.xlsm").Activate
  Sheets("Trend - Rapport Jaaroverzicht").Select
  Range("A1").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  Range("A1").Select
  Application.CutCopyMode = False
    
    
  Windows(bestandsnaam_open).Activate
  Windows.Close
  
  
    

  'eind test
    
End Sub

 

[AHulpje]

Wijzig

[COLOR=#333333] 
  Windows(bestandsnaam_open).Activate
[/COLOR][COLOR=#333333]  Windows.Close[/COLOR]

in

  'Windows(bestandsnaam_open).Activate
  Workbooks(bestandsnaam_open).Close False

 

[HSV]

Waarom zou je het activeren als het al geactiveerd is.

Onderstaande zal vast ThisWorkbook zijn die je niet hoeft te activeren.

Windows("Projectrapportage Trend.xlsm").Activate

Dus ThisWorkbook is het bestand van je code en ActiveWorkbook is het bestand wat je net hebt geopend.

with activeworkbook
 blabla doe je ding naar ThisWorkbook.Sheets("Trend - Rapport Jaaroverzicht").Range("A1").PasteSpecial xlPasteValues
.close false
end with

En gebruik geen select en selection (zie coderegel hierboven).