Aktivieren der Arbeitsmappe

Question

Ich habe eine Zeichenfolge "sFile", die den Namen der Arbeitsmappe mit der Erweiterung speichert.

Ich möchte diese Arbeitsmappe aktivieren, in einer Zeichenfolge gespeichert.

Und dann schließen Sie es.

-Code verwende ist:

Dim wbk as workbook 
Set wbk = Workbooks(sFile) 
wbk.Activate 
wbk.close 

Aber das ist nicht working.Please Hilfe.

Answer 1

Sie müssen sehen, ob Sie Set wbk = Workbooks(sFile) gelingen, wil es nur funktionieren, wenn die Arbeitsmappe ist geöffnet.

Wenn es nicht erfolgreich ist (wbk Is Nothing), dann müssen Sie die Arbeitsmappe öffnen.

-Code

Option Explicit 

Sub SetWB_toOpenWorkbook() 

Dim wbk As Workbook 
Dim sFile As String 
Dim FilePath As String 

' just an example of my file name (clean with extension) 
sFile = "SO_1.xlsm" 

' set the Dektop path 
FilePath = "C:\Users\" & Environ("USERNAME") & "\Desktop\" 

On Error Resume Next 
Set wbk = Workbooks(sFile) 
On Error GoTo 0 
If wbk Is Nothing Then ' if not open, then open the workbook 
    Set wbk = Workbooks.Open(FilePath & sFile) 
End If 

' just for my tests, put the workbook name in "A1" in "Sheet1" 
wbk.Worksheets("Sheet1").Range("A1").Value = wbk.Name 

wbk.Activate 
wbk.Close True 

End Sub 

Answer 2

Wie in den Kommentaren erwähnt, dauert es nur den Namen (nicht Pfad) - dies sollte es für Sie tun:

Dim wbk as workbook 
Set wbk = Workbooks(right(sFile,Instrrev(sFile,"\")+1)) 
wbk.Activate 
wbk.close