VBA - thisworkbook.path

Ich kann nicht herausfinden, was mit meinem Code falsch ist.VBA - thisworkbook.path

Aus logischer Sicht, warum funktioniert es nicht (siehe unten)? Es gibt keine Fehlermeldung.

Stattdessen wird beim Ausführen des Codes ein Ordner geöffnet, in dem ich die Datei und die Registerkarte manuell auswählen kann.

Beim Öffnen der Datei und der Registerkarte wird die korrekte Berechnung durchgeführt.

Allerdings würde ich das Makro wie genau diese für mich zu tun :)

Beispielcode:

*'define macro name* 
Sub macro_additional_indicators() 

Dim Path As String 

*'define path variable = recent workbook folder* 

Path = ThisWorkbook.Path & "\" 

*'ignore this* 

    Cells.Find(What:="Additional Indicators", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ 
     :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ 
     False, SearchFormat:=False).Activate 

    ActiveCell.Offset(1, 3).Select 

*'here the thisworkbook.path command is used and* 

    ActiveCell.Formula = "='Path & [COREP]C 02.00'!$E$19/1000000" 

    ActiveCell.Offset(1, 0).Select 

*'it should substitute the direct path stated here* 

    ActiveCell.Formula = "='C:\Users\me\Desktop\KRI\[COREP]C 02.00'!$E$19/1000000"

Quelle

2017-02-13 Verena

' "=" Path & [COREP] C 02.00'' sollte' '=' "& Pfad &" '[COREP] C 02.00'' –

Vielen Dank für Ihre schnelle Antwort Nathan. Die Anwendung Ihres Codes führt zu dem Fehler "400". Das Löschen des zweiten 'in' = '' & Pfads '' [COREP] C 02.00 'führt zu einem laufenden Code, aber die Berechnung wird nicht mehr ausgeführt. Aber ich denke, ich bin der Lösung einen Schritt näher. – Verena

@ Verena I Ich bin mir Ihres Problems nicht sicher Wenn das Problem darin besteht, dass die Formel in der Zelle nicht den vollständigen Pfadnamen enthält, kann diese Information nützlich sein: [Beschreibung der Linkverwaltung und -speicherung in Excel] (https: // support. microsoft.com/en-us/help/328440/description-of-link-management-and-storage-in-excel) –

Hmmm Ich glaube, Sie die Dateierweiterung in Ihrem Klammern fehlen sehen, wie Excel verweist in meinem einfachen Beispiel in eine Datei erstellt ich die Zellen, indem Sie auf

='C:\Example\[Source.xlsx]Sheet1'!$F$7

Also hier die enumaration ist: = 'Pfad [Filen ! AmeWithExtension] Sheetname 'Celladdress

So kann ich nur raten, wird es sein:

"='Path & [COREP.xlsm]C 02.00'!$E$19/1000000"

Oder

"='Path & [COREP.xlsb]C 02.00'!$E$19/1000000"

this helps

Quelle

2017-02-13 14:56:52 Tackgnol

Vielen Dank für Ihre hilfreichen Kommentare! Nenn mich verrückt, aber die Lösung von Nathan ohne den zweiten funktioniert jetzt. Es führte zuerst zu #REF !, dann ging ich auf eine Kaffeepause und als ich zurückkam, alles schloss und es wieder öffnete, es funktionierte. Da ich nicht an Magie glaube, werde ich das Problem jedoch lösen. Vielen Dank!

Die Dateierweiterung in der Tat ist hier nicht nötig, aber ich dachte, das gleiche am Anfang :)

Quelle

2017-02-13 15:06:48 Verena

VBA - thisworkbook.path

Antwort

Verwandte Themen