VBA-problem med at skifte over til den anden åbne excel-fil
Jeg har en åben datafil som jeg gerne vil lave et udtræk fra...Jeg har blot problemer med at skifte over til den anden åbne excel-fil.
Den åbne datafil hedder altid "deliveriesView(1).csv" eller "deliveriesView(2).csv" eller "deliveriesView(3).csv"
Filnavnet er kopieret fra dialogboxen Save As, men i titellinien hedder den åbne fil "deliveriesView[2].csv". Bemærk tegnene [] i stedet for ().
Sub TestActivateDataFile()
'Henter data fra anden åben fil, der altid hedder deliveriesView(1).csv eller deliveriesView(2).csv eller deliveriesView(3).csv
Dim objOpenWB As Workbook, objWB As Workbook
Dim FromFileName As String, ToFileName As String, ToSheet As String
Dim i As Integer, LastRowNr As Integer, RowNr As Integer, GlucoseArrayVeritcalCount As Integer, CountRowsWithSameDate As Integer
DataFileNameStartString = "deliveriesView..."
'Indstillinger for hvad der skal søges efter i FromFileName
'FilterString = "JC"
' tjek om fil allerede er åben
For Each objOpenWB In Application.Workbooks
If Left(objOpenWB.Name, 14) = Left(DataFileNameStartString , 14) Then
Set objWB = objOpenWB ' registrerer at jeg allerede har filen åben
FromFileName = objOpenWB.Name
Exit For
End If
'MsgBox objOpenWB.Name
Next
If objWB Is Nothing Then
' Workbooks.Open FileName:=FetchFromPathName & FromFileName, ReadOnly:=True
Else
Windows(FromFileName).Activate
End If
End Sub
ovenstående kode fejler på linien "Windows(FromFileName).Activate" fejl: Subscript out af range
