VBA code voor openen bestand in dezelfde map

[edmoor]

Met Winrar kan je ook aangeven niet een .rar maar een .zip te maken.

 

[shalhevet]

Ohh, alweer iets geleerd ik klik meestal rechter muisknop en dan 'Add to (bestandsnaam)'.

Maar nu heb ik een zip bestand en kan ik deze nog steeds niet uploaden. Ik krijg geen foutmelding maar zie het bestand ook niet in de lijst van bestanden.

Inmiddels ook winzip gedownload maar ook met dit programma lukt mij niet om de gezipte bestanden te uploaden.

 

[edmoor]

Je doet het toch wel via de geavanceerde opties?


Klik daarna op de paperclip.


Het is niet echt de wenselijke gang van zaken hier, maar plaats hem anders eens op Filedropper en plaats hier dan de link:
http://www.filedropper.com/

 

[shalhevet]

Ik weet niet precies wat je bedoelt met geavanceerde opties. Heb winzip geïnstalleerd en dan gewoon via rechter muis knop als zip bestand opgeslagen. Daarvoor met winrar heb ik gedaan precies zoals op de foto die je had geplaatst gedaan.

Maar fijn dat het voor deze keer toch via een andere weg kan.

Hier is de link naar de eerste bestand (met de code die gelinkt is naar de tweede bestand)

http://www.filedropper.com/firstfilewithlink

en hier is de link naar de tweede bestand die geopend moet worden door de eerste bestand

http://www.filedropper.com/secondfile

 

[edmoor]

Ik weet niet precies wat je bedoelt met geavanceerde opties.

Kijk naar het plaatje in m'n vorige bericht.

 

[edmoor]

Ik zie het al. ThisWorkbook.Path is waarschijnlijk door de XLS Padlock compiler vertaald naar de waarde op het moment van compileren.


Da's lastig.

 

[shalhevet]

Sorry laatste plaatje had ik niet gezien.

Ik had de laatste plaatje in je bericht niet gezien.. en nee.. ik klik altijd op de blauw knopje +reageer op bericht

 

[edmoor]

Na een druk op Ga geavanceerd krijg je veel meer mogelijkheden.

Heb je #26 gezien?

 

[shalhevet]

Ja, ik heb #26 gezien :-(

Enig idee hoe ik dit kan oplossen?

Of zou het gewoon onmogelijk zijn?

 

[edmoor]

Ik denk dat dat een goede vraag is voor de Helpdesk van XLS Padlock.
Of het forum:
https://www.gdgsoft.info/

 

[Timshel]

De fout is het gevolg van het compileerproces. Ik zie geen oplossing.

 

[shalhevet]

Wordt vervolg

Ik heb zojuist de vraag in de forum van XLS padlock gesteld. Als ik daar antwoord krijg zal ik het hier plaatsen.

In ieder geval bedankt voor alle moeite!!

 

[edmoor]

Ik denk dat ze er eigen functies voor hebben en dat je bijvoorbeeld dit moet gebruiken:
XLSPadlock.PLEvalVar("XLSPath") & Filename

Ik heb me er niet in verdiept dus kan er verder geen uitleg over geven.
Het forum waar ik naar verwees zal daar een betere vraagbaak voor zijn.

 

[HSV]

@edmoor,

Als je in de opties van je profiel deze instelling gebruikt, heb je alles onder de knop van "Reageer op bericht".
Geavanceerde interface - WYSIWYG

 

[edmoor]

Daar heb je me eerder al eens op gewezen en niet meer aan gedacht

 

[edmoor]

@shalhevet:
Heb je deze post ook gelezen bij dat forum? De vraag komt ongeveer op hetzelfde neer en de oplossing staat er bij:
https://www.gdgsoft.info/t/create-and-save-a-workbook-in-same-folder-than-exe-file-solved/1606

In plaats van Thisworkbook.Path gebruikt hij een extra functie:

Public Function PathToFile(Filename As String)
    Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object
    PathToFile = XLSPadlock.PLEvalVar("EXEPath") & Filename
End Function

 

[Timshel]

Knap speurwerk Edmoor :thumb:

 

[edmoor]

Dank je
Maar het staat vlak onder de vraag van shalhevet, bij Suggested Topics.
Aardige suggestie lijkt me

 

[shalhevet]

Super goed

Inderdaad goede speurwerk edmoor

Ik heb inmiddels via de hulp van XLS padlock de volgende code gevonden:

in een module:

Public Function PathToFile(Filename As String)
On Error GoTo Err
Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object
PathToFile = XLSPadlock.PLEvalVar("EXEPath") & Filename
Exit Function
Err:
PathToFile = ""
End Function

en dan in de sheet zelf:

Sub Test_File()
DoSomethingWith(PathToFile("data.xls"))
End Sub

ik weet dat ik "data.xls moet wijzigen naar mijn eigen bestandsnaam maar dan nog werkt deze code bij mij niet.

Weet iemand van jullie of ik nog iets anders in deze code moet wijzigen om het wel werkend te krijgen?

 

[edmoor]

De functie mag in dezelfde module als de Sub Test_file, maar dat is meer voor het gemak.
Maak er eerst eens dit van zodat je kan zien wat er gebeurt:

Sub Test_File()
    MsgBox PathToFile("data.xls")
End Sub